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.REM. 
IDENTIFICATION 

PRODUCT ID: AC-T720A-MC 

PRODUCT TITLE; C2TSCA0 T5U05 DIAG PART 3 

DEPARTMENT! COMPUTER SPECIAL SYSTEMS/PPG 

DATE! JUNE 08, 1983 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY Of 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION 
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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

THIS IS A PDP-11 RESIDENT DTAGNOSTIC UHICH CHECKS THE FUNCTIONALITY 
or A TSU05 MAGTAPE SUBSYSTEM WHILE CONNECTED TO A P0P-11//23 SYSTEM 
(UNIBUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
F(>JCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE. 



THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITM THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE C SUPERVISOR ) . THESE SERVICES PROVIDE 
THE INTER!- ACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP», ACT, APT, bLIOE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXOP* USER'S MAWAL . THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME S::RVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

PDP-11 PROCESSOR AND MEMORY 

CAUTION:DIAGNOSTIC REQUIRES 52K WORDS OF MEMORY 

(26K USEABLE I.E. 4K FOR I/O PAGE) 

TSU05 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR (KSAAA.SYS VERSION 34 OR LATER) 

PD^-^-ll DIAGNOSTIC LOADER/MONITOR (XXOPO 

1.3 RELATED DOCUMENTS AND STANDARDS 
DIGITAL EQUIPMENT CORPORATION DOCUMENTf^: 

1. CHQUS XXDP* USERS MANUAL i DOCUMENT NUMBER AC-F348F.-MC 
DATE: 14 JULY 1980. 

2. TSU05 TRANSPORT SUBSYSTEM USER'S GUIDE » DOCUMENT NUMBER EK- TSU05 UG-OOl 
DATE: AUGUST 1982 

3. TSU05 TRANSPORT SUBSYSTEM TECHNICAL MANUAL* DOCUMENT NLWBER EK -TSU05-TM-001 
DATE: AUGUST 1982 

4. TSU05 TRANSPORT SUBSYSTEM INSTALLATION MANUAL) DOCUMENT NUMe I R EK-TSUOS-IN-OOl 
DATE: AUGUST 1982 



1.4 DIAGNOSTIC HIERARCV PREREQUISITES 



FUNCTIONAL 
FUNCTIONAL 
Fi^CTIONAL 
FUNCTIONAL 



PDP-11 CENTRAL PROCESSOR AND MEMORl 
CONSOLE TERMINAL 

STANDALONE DIAGNOSTIC SUPERVISOR 
DIAGNOSTIC UQAD^R/MQHXTOR (XXOPO 



El 
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1.5 ASSUMPTIONS 

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 

PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

THE TAPE BEING USED ON THE TSOb TRANSPORT IS A KNOWN GOOD REEL 

OF TAPE. 

CVTSAA AND CVTSBA HAVE SUCESSFULLY RUN. 

?.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORhATION. REFER TO THE XXOPt USER'S MANUAL (CHQUS). 

2 . 1 COMMANDS 

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXOP* USER'S MANUAL HAS MORE DETAILS. 

COMMAND EFFECT 



START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXOP* MONITOR (XXOP» OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 

CONSIDERED TO BE ACTIVE AT START Tir»E 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 

BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

2FLAGS CLEAR ALL FLAGS (SEE SECTION 2.5) 

A COMMAND CAN OE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR ^^XAMPLE, TYPE "STA" INSTEAD OF "START". 

2.1.1 OPERATOR COMMANDS 



THE TSU05 DIAGNOSTIC IS A POP-U DIAGNOSTIC SUPERVISOR COMPATIBLE 

PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN B^ REFERENCED IN THE 

CHQUS XXDPf USERS MANUAL. DOCU^IENT NUMBER AC -F348E-MC, "THE \JSER "ENTRY IS IN QUO\ES* 



BOOT THE DIAGNOSTIC MEDIA 



.R VT5C?? 

DIAG. RUN-TIME SERVICES RFV D. ^^PR 79 
CVTSC-A-O 

♦ •••TS'JOS LOGIC DIAfiNQSTlC**** 
UNIT IS TSU05 
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>Ofl 



2.2 



SWITCHES 



THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY "DDDOD". 



SWITCH 
/TESTS;LIST 



/PASS:DDDDD 
/FLAGS tFLGS 

/EO;>:DDDDD 

/UNITS:LIST 



EFFECT 



EXECUTE ONl.v THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS: 1 :5: 7- 10. 
THIS LIST WILL CAUSE TESTS 1.5,7,3,9. IC TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
EXECUTE DDDOD PASSES (DDDOD - 1 TO 64000) 
SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 

REPORT END OF PASS MESSAGE AFTER EVERY 
DDDOD PASSES ONLY. (00000 - I TO 64000) 
TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE - /UNITS:0:5: 10- 12 
USE UNITS 0,5,10.11,12 (UNIT NUMBERS - 0-63) 



EXAMPLE OF SWITCH USAGE: 



START/TESTS : 1 -5/PASS : 1000/EOP : 100 

THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND ?) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RiCOGNIZEO BY THE FIRST THREE CHARACTERS. YOU MAY. 
FOR EXAMPLE. TYPE "/TES:l-5" INSTEAD OF "/TESTS; 1 -5" . 

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
C0MMA^4D . 



TESTS PASS 



FLAGS EOP 



START 

RESTART 

CONTINUE 

PROCEED 

DROP 

ADO 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

EXIT 



UNITS 



2.3 



FLAGS 



FLAGS ARE USED TC SET UP CERTAIN OPERATIQNAU PARAMETERS SUCH rt^ 
UOQRING ON ERROR, ALL FLAGS ARE CUAREO M STARTUP AND REMAIN 
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CLEARED UNTIL EXPLICITLY SET USIItG THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION Cf THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLMGSi THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAS^ FLAG SWITCH. 



FLAG 

HOE 

LOE 
lER* 

IBR* 



IXE* 

PR I 
PNT 
BOE 
UAM 
ISR 



IDR 
ADR 
LOT 



EFFtlCT 



HALT ON ERROR - CONTROL IS RETURNED TO 

RUNTIME SERVICES COMMAND MODE 

LOOP ON ERROR 

INHIBIT ALL ERROR REPORTS 

INHIBIT ALL ERROR REPORTS E CEPT 

FIRST LEVF.L (FIRST LEVEL CONTAINS 

ERROR TYPE, NUr«ER. PC. TEST AND UNIT) 

INHIBIT EXTENDED ERROR REPORTS (THOSE 

CALLED BY PRINTX MACRO'S) 

DIRECT MESSAGES TO LINE PRINTER 

PRINT TEST NUMBER AS TEST EXECUTES 

"BELL" ON ERROR 

UNATTENDED MODE (NO MANUAL INTERVENTION) 

INHIBIT STATISTICAL REPORTS COOES NOT 

APPLY TO DIAGNOSTICS WHICH 00 NOT SUPPORT 

STATISTICAL REPORTING) 

INHIBIT PROGRAM DROPPING OF UNITS 

EXECUTE AUTODROP CODE 

LOOP ON TEST 

♦ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 



SEE THE XXDP* USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE. 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERhOR REPORTS 
AND TYPE A "BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING: 

/FLAGS : LOE tIER; BOE 



2.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?" 
YOU MUST ANSWER "Y" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN "PRELOADED" USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP» USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A "Y". THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). 

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR). THE PROGRAM WILL ISSUE THE "CHANGE HW?" QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 



ON A "N" (NO) RESPONSE TO THE "CHANGE HW?" QUESTION, THE DIAGNOSTIC WILL 
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RUN USING TH6 DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 
TSBA/TSDB • 172520. VECTOR ■ 224 



ON A "Y" (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE. IF PRESENT. LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(D)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN "(0)" INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN "(L)" INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
"Y" FOR YES. "N" FOR NO. 



UNITS (0) ? 



UNIT 

DEVICE ADDRESS 



VECTOR (0) 224 ? 



<ENTER THE NUMBER OF H7455 CONTROLLER: 
PRESENT TO BE TESTED> 



CO) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER> 

<ENTER ADDRESS OF INTERRUPT 
VECTOR> 



THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
l^ITS CONTROLLERS) SPECIFIED IN THE "« UNITS?" QUESTION, LOGICAL UNIT 
NU1BERS ARE ASSIGNED IN ORDER. BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 
UP TO 4 TSU05 CONTROLLERS PER PDP-11 AND UP TO 2 DRIVES PER CONTROLLER 

2.5 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 

OR CONTINUE COMTIAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 

OPERATION MODES. YOU WILL BE PROMPTED BY "CHANGE SW (L) ?" 

IF YOU WISH TO CHANGE ANY PARAMETERS. ANSWER BY TYPING 

"Y* . THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPHC S ) . 

THE FOLLOWING QUESTIONS ARE ASKED ON A START. RESTART. OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 

CHANGE SW (L) ? <TYPE 1 TO CAUSE THE FOLLOWING 

QUESTIONS TO BE ASKED> 



INHIBIT ITERATIONS (L) N ? 



<TYPE "Y" TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
R(J^ AS QUICKLY AS POSSIBLE, 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 



i^.6 EXTENDED P-TABLE DIALOGUE 



II 
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WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS f-OR EACH 
UNIT TO BE TESTED, IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 
A MASS STORAGE COMPTROLLER WITH SEVERAL DRIVES OR A COMMUNICMUON 
DEVICE WITH SEVERAL LINES. THIS BECOMES TEDIOUS SINCE MOST OF 
T.HE ANSWERS ARE REPETITIOUS. 

TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 
A DEVICE, THE ):Yll. SUPPOSE THIS DEVICE CONSISTS OF 
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR, THIS Q-FACTOR MAY BE OR X. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XYU WITH EIGHT UNITS. 

* UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) 7 160000<CRi 
SUB-DEVICE P (0) ? 0<CR> 
Q-FACTOR (0) ? 1<CR> 

UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ''0) ? 1<CR> 
Q-FACTOR (0) . ? 0<CR> 



UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE (0) ? 2<CR> 
Q-FACTOR (0) ? <CR> 

UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE « (0) ? 5^CR^ 
Q-FACTOR (0) ? <CR> 

UNIT ?) 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE (0) ? 4/CR> 
Q-FACTOR (0) C 7 <CR> 

UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
IJB-DEVICE « CO) ? 5<CR> 
Q-FACTOR CO) ? <CR^ 

UNIT 7 

CSR ADDRESS CO) 7 X600C0<CR> 
SUB-OEMCE C CO) ? 6<CR> 
Q-FACrOR CO) ? 1<CR> 

UNIT 8 

CSR ADDRESS CO) 160000<CR> 

SUB-DEVICE P CO) ? 7<CR> 
Q-FACTOR CO) 1 ? <CR> 
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NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 

AS YOU CAN SEE FROM THE ABOVE EXAMPLE. THE HARDWARE PARAMETERS 

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 

NOT VERY EFFICIENT. 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE, 

UNITS CD) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE (0) ? 0.1<CR> 
Q-FACTOR CO) ? 1,0<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE • (0) ? 2-5<CR> 
Q-FACTOR CO) ? 0<CR> 

UNIT 7 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE P C0> 7 6.7<CR> 
Q-FACTOR CO'^ 7 l'CR> 

AS YOU CAN SEE IN THE ABOVE DIALOGUE. TIC RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN TH€ FIRST PASS. TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE XT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS. FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED, THE 
"-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
'^ROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2. 3. 4 AND 5 WERE SPECIFIED. C IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES. THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIFD PASS. 

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 

# UNITS CD) ? 8<CR> 

UNIT 1 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE CO) ? 0-7<CR> 
Q-FACTOR CO) ? 0, 1 ,0. . , , 1 . 1<CR> 

A3 YQU CAN SEE FROM THIS EXAMPLE. NULL REPLIEi: C COMMAS ENCLOSING 
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A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 

2.7 QUICK START-UP PROCEDURE (XXOPO 

TO START-UP THIS PROGRAM: 

1. BOOT XXDP* 

a GIVE THE DATE AND ANSWER THE LSI AND 50HZ (IF THERE 
IS A CLOCK) QUESTIONS 

3. TYPE "R NAME", WHERE NAME IS THE NAME OF THE BIN OR 13IC 
FILE FOR THIS PROGRAM 

4. TYPE "START" 

5. ANSWER THE "CHANGE HW" QUESTION WITH "Y" 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE v^ING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL. BASIC AND EXTFNDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE "lER" : LAG IS SET (SECTION 2.3). 
THE GENERAL ERROR MESSAGE IS OF THE FORM; 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PCiXXXXXX 
ERROR MESSAGE 

, WHERE t NAME ■ DIAGNOSTIC NAME 

TYPE • ERROR TYPE (SYS FATAL, DEV FATAL. HARD OR SOFT) 

NUMBER ■ ERROR NUMBER 

UNIT NUMBER - - N (N IS LAST UNIT IN PTABLE) 

TST NUMBER - TEST AND SUBTEST WHERE ERROR OCCURRED 

PC:XXXXXX ■ ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERrtOR. T.MESE ARE ALWAYS PRINTED UNLESS 
THE "lER" OR "IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE A;^E ALWAYS 
PRINTED UNLESS THE "lER", "IBR" OR "IXR" FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 
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BELOW ARE SAMPLE ERROR MESSAGES. EACH ER^OR MESSAGE 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 



REPRESENTS DIFFERENT TYPES 



ERROR MESSAGE EXAMPLE 1 

THIS ERRO:^ IS INDICATIVE OF AN INCORRECT REGISTt."^ OR STATUS WORD RETURNED 
TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST f ^NCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEiR MNEMONICS FOR THE 
INCORRECT REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 
DATA. 

TST: 016 FIFO EXERCISER TEST 

CVISC HRD ERR 01610 ON UNIT 00 TST 016 S»JB 002 PC: 040624 

FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 

TAPE BUS SIGNALS IN WORD #6: - DESIGNATOR <BIT «> 
PARERR<15> lEOT <12> IFMK <9> IRDV<6> IRWD<2> 
IRESV2<14> IIDENT<11> IHFR <e> I0NL<5> IFBY^^ 
IRESV1<13> ICER <10> ISP'^ED<7> ILDP<4> IFPT<0> 

TAPE BUS SIGINAL5 IN WORD *9: 
DATMIS<7> ILW<6> 0UTRDY<5> ILtUY<4> 

MESSAGE BUFFER ADDRESS ■ 047352 

MESSAGE BUFFER CONTENTS: 
WORD 00 EXPD: 100020 SECV: 100020 XOR : 000000 
WORD #1 EXHD: 000012 RECV: 000012 XOR: 000000 
WORD *2 EXPD: 000000 *tCV: 000000 XOR: 000000 
WORD «3 EXPD: OOOOlO RECV: 000010 XOR: 000000 
WORD #4 EXPD: 000000 RECV: 000000 XOR: 000000 
WORD *5 EXPO: 000000 RECV: 000000 XOR: 000000 
W09D *6 EXPD: 000000 RECV: 000000 XOR: 000000 
'"M^O 07 EXPD: 000000 RECV: 000000 XOR: 000000 
' "^D 08 EXPO: 070217 RECV: 070217 XOR: 000000 

-URD 09 EXPD: 000074 RECV: 000034 XOR: 000040 



ERROR MESSAGE EXAMPLE 2 

THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE, IN THIS 
INSTANCE A UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 
MAY BE DEFECTIVE. 

CVTSC HRO ERR 0C159 ON UNIT 00 TST 001 SUB 005 PC- 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TS3R ■ 100214 

TSSR BITS SET: SC.SSR 

TERMINATION CLASS CODE ■ 

PACKET ADDRESS - 026420 

PACKET WORD - 140010 

PACKET WORD - 000010 

PACKET WORD « • COOOOO 

PACKET WORD 4 • QQQ024 



UNRECOVERABLE ERROR 



Ml 
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ERROR MESS/%GE EXAMPLE 3 

THIS ERROR SHOWS THAI THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH FXTENOED FEATURES MODE ENABLED. 

CVTSC HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT CXSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPO: 000312 RECV: 000112 XO'^: 000200 

4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS. THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE "EOP" SWITCH CAN BE USED TO CONTROL HOW OKTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 

SUCCESSFUL RUN EXAMPLE (PDP-11) 

DR>STA/FLAiPNT:HOE 

UNITS (0) ? 1 

UNIT 

DEVICE ADDRESS (0) 172520 ? <CR> 

VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 

THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
SWITCHES ON WHICH ARE "PRINT EACH TEST NBR AS EXECUTED" AND "HALT ON 
ERROR". 

TST: 001 INITIALIZE 04 TEST 

TST; 002 OFF-LINE REJECT AND REWIND TEST 

TST: 003 BASIC WRITE DATA TEST 

TST: 004 BASIC READ DATA TEST 

TST: 005 SPACE RECOPOS TEST 

TST: 006 REREADS TEST 

TSTi 007 WRITE DATA RETRY TEST 

TST: 006 WRITE TAPE MARK TEST 

ERRORS 

NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT 
HAS BEEN SPECIFIED WITH THE "/PASS;" SWITCH. 

PROGRAM RUN TIMES 

THE AVERAGE RUN TIMES OF THE PROGRAM APE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A POP-11 
PROCESSOR WITH A LA34 CONSOLE. 
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Nl 



SEQ 013 



THE PROGRAM RUNS IN TWO MODES j NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE. EACH TEST IS RUN ONCE. WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "Y" (YES). 



TEST 


N/I 


NUMBER 


DEF 


NUMBER 


SECS. 


ITER 


SECS 


1 


3 


10 


7 


2 


3 


8 


5 


3 


38 


250 


21;? 


4 


60 


300 


240 


5 


60 


300 


240 


6 


120 


360 


240 


7 


120 


600 


480 


8 


22 


90 


66 



THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 8 IN ONE COMMAND: 



Q.V. 
DEFAULT 



7 MINUTES 
31 MINUTES 



5.0 DEVICE INFORMATION TABLES 

WHENEVER THE PROGRAM IS STARTED. VIA THE STACRT) COMMAND, 
THE SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGES: 



CHANGE HW CL^ ? 
UNITS (D) ? 

UNIT 

DEVICE ADDRESS 



vECTor :o) 224 ? 



CENTER THL NUMBER OF M7455 C0NT:^0LLERS 
PRESENT TO BE TESTED* 



CO) 172520 ? <ENTER THE ADDRESS OF THE 
VSOA/TSDB REGISTER^ 

<ENTER ADDRESS OF INTERRUPT 
VECTOR> 



THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH C THE NUt-©ER OK 
UNITS (CONTROLLERS) SPECIFIED IN THE "0 UNITS?' QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER. BEGINNING AT 0. UP TO TOUR UNITS CAN B& 
SELECTED FOR TESTING. 



IN ADDIflON, ON A START. RESTART OR CONTINUE THE SUPERVISOR 
REQUESTS CHANGCi* TO THE SOFTWARE OPERATING PARAMETERS, AS 

FOLLOWS: 
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SEQ 014 



CHANGE SW (L) ? 



INHIBIT ITERATIONS (L) N ? 



6.0 TEST SUMMARIES 



TEST I: INITIALIZE PA TEST 

THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
(I.E. LOCPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF 
EXTENDED FEATURES SWITCH. ETC.) 

TEST 2: OFF-LINE AND REJECT REWIND 

THIS TEST VERIFIES BASIC TAPE -MOTION COMMAND DECODING AND BASIC 
OPERATION OF THE REWIND POSITIONING COMMAND. IT DOES NOT 
NECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN 
ARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY 
CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST 
TYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST 
SEQUENCES. 

TEST 3! BASIC WRITE DATA 

THIS TEST VERIFIES THAT THE WRITE DATA (rCXT) COMMAND OPERATES 
PROPERLY. UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 
WRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS 
LIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH 
THE CORRECT REGISTER. MESSAGE BUFFER AND RAM CONTENTS. 

CAUTION 
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES(16 51) 
ARE ONLY CHECKED WHEN RUNNING ON A PDP-11 SYSTEM WITH MORE THAN 
l2dK WORDS OF MEMORY! 



TEST 4; BASIC READ DATA (FORWARD AND REVERSE) 

THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
DATA BUFFER BOUNDARIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY 
SPACE IS AVAILIABLE), AND BYTE-SWAP CONTROL ARE USED. THIS TEST 
OF COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND Bt ACTUALLY 
READING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER 
TERMINATIONS ON EXCF.PTIONAL OR ERROR CONDITIONS! RECORD LENGTH 
LONG. RECORD LENGTH SHORT » READ REVERSE AT BOT, ILLEGAL DATA 
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S£Q CIS 



BUFFER ADDRESSES* ILLEGAL CODES IN THE MODE FIELD OF THE BASIC 
READ COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY. 

CAUTION 

THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINESC16-21) 
ARE ONLY CHECKED WHEN RUNNING ON A PDP-11 SYSTEM WITH MORE THAN 
128K WORDS OF MEMORY* 



TEST 5: SPACE RECORDS 



THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 
RECORDS REVERSE POSITION COMMANDS OPERATE PROPERLY WHEN SPACING 
OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS 
IS VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST 
SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL 
RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH 
OF THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS 
OF VARYING SIZES AND DATA CONTENT i THE FIRST 4 BYTES OF EACH 
RECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER 
EACH SPACING OPERATION, THE TAPE POflTION IS VERIf lED BY READING 
THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 
THE EXPECTED RESULT. 



TEST 6: REREADS 

THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT 
COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
DATA BUFFER BOUNDRIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY 
SPACE IS AVAILIA6LE). AND BYTE-SWAP CSWP) AND OPPOSITE (OPP) 
CONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON 
EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG. RECORD 
LENGTH SHORT. READ REVERSE AT BOT. ILLEGAL DATA BUFFER ADDRESSES. 
AND DATA BUFFERS IN NONEXISTENT MEMORY. 

CAUTION 
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINESC 16-21) 
ARE ONLY CHECKED WHEN RUNNING ON A PDP-11 SYSTEM WITH MORE THAN 
128K WORDS OF MEMORY! 

TEST 7: WRITE DATA RETRY 

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 



TEST a; WRITE/READ TAPE MARK 

THIS TEST VERIFIES THAT THE WRITE T 'tPE MARK COMMAND OPERATES 
PROPERLY. IT IS VERIFIED THAT THE T> PE MARK IS WRITTEN ONTO TAPE 
BY CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE 
TAPE MARK. IN ADDITION, SINCE WRITE APE MARK IS THE FIRST 
SUBCOMMAND IM)^R THE FORMAT COMMAND BEING TESTED, IT IS VERIFIEO 
THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT 



D2 
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FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED. 

7,0 MAINTENANCE HISTORY 

REVISION A - JUNE 1963 
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E2 



SEQ 017 



1 






2 






I 
10 


000000 








11 
IC 
13 


000000 








1«> 




** 


20 






21 




002000' 


22 


002000 
002000 




23 






24 






25 






26 






27 






28 






29 






30 


002000 




31 


002000 
002000 






002000 


103 




002001 


132 




002002 


124 




002003 


123 




002004 


103 




002005 


000 




002006 


000 




002007 


000 




002010 






002010 


101 




002011 






002011 


060 




002012 






002012 


OOOOOO 




002014 






002014 


001217 




002016 






002016 


112510' 




002020 






002020 


11264?' 




002022 






002022 


002146' 




002024 






002024 


002156' 




002026 






002026 


112736' 




002030 






002030 


OOOOOO 




002032 






002032 


OOOOOO 




002034 






002034 


OOOOOO 




002036 






002036 


OOOOOO 



.TITLE TSV2 - PROGRAM HEADER 
.SBTTL PROGRAM HEADER 
.PSECT ABS 



UiaSfi" 



TSV2: : 



i ♦♦ 



.MCALL SVC 
SVC 

.ENABLE LC 
.NLIST BEX.CNO 
.ENABL AMA 
. -2000 
.-.♦2000 
BGNMOD TSV2 



( INITIALXZE SUPERVISOR MACROS 



I THE PROGRAM HEADER IS THE INTERKACt BETWEEN 
I THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



, ._ 



L J NAME! 



POINTER BGNSW , BGNSF" T , BGNAU . BGNDU , BGNRPT 
HEADER CZTSC,A,0.655. .0 

I DIAGNOSTIC NAME 





.ASCII 


/c/ 




.ASCII 


/2/ 




.ASCII 


n/ 




.ASCII 


/%/ 




.ASCII 


/€/ 




.BYTE 







.BYTE 







.BYTE 





LiREV:: 








.ASCII 


/A/ 


LIDEPO: 








\ascii 


/o/ 


LIUNIT: 








' .WORD 





L$TIML: 








'.WORD 


655. 


LJHPCP: 








* .WORD 


LIHARD 


LISPCP: 








'.WORD 


LiSOFT 


LIHPTP: 








' .WORD 


LSHW 


LISPTP: 








* . WORD 


L»5W 


LILADP: 








' . WORD 


LJLAST 


L*STA: : 








.WORD 





LICO: : 








.WORD 





L»0TYP: 


• 






.WORD 





L5APT:: 








.WORD 






(REVISION LEVEL 
|0 

(NUMBER or UNITS 
(LONGEST TEST TIME 
(POINTER TO H.W. QUES. 
(POINTER TO S.W. QUES. 
(PTR. TO DEF. H.W. PTABLE 
iPTR. TO S.W. PTABLE 
(DIAG. END ADDRESS 
(RESERVED FOR APT STATS 

(DIAGNOSTIC TYPE 
(APT EXPANSION 



F2 
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SEQ 016 



3? 
33 
34 
35 
36 
37 

39 



002040 
002040 
002042 
002042 
002044 
002044 
002046 
002046 
002050 
002050 
002051 
002052 
002052 
002054 
002056 
002056 
002060 
002060 
002062 
002062 
002064 
002064 
002066 
C020CC 
002070 
002070 
002072 
002072 
002074 
002074 
002076 
002076 
002100 
002100 
002102 
002102 
002104 
002104 
002106 
002106 
002110 
002110 
002112 
002112 
002114 
002114 
002116 
002116 
002120 
002120 



002124' 

000000 

000000 

000000 

003 
003 

000000 
000000 

000000 

003372' 

022524' 

000000 

000000 

022212' 

022310' 

000000 

003400' 

104035 

000000 

021416' 

022476' 

022416' 

021406' 

000000 

000000 

000000 



L$DTP: 
L$PRI0 
L$ENVI 
LVEXPl 
L»MREV 

L$EF:: 

LSSPC: 

LJDEVP 

L*REPP 

LJEXP4 

L$EXP5 

L$AUT 

L$OUT 

L$LUN 

LIDESP 

L$LOAD 

L$ETP 

L$1CP 

LiCCP 

L*ACP 

LSPRT 

LATEST 

L$DLYt : 

UIHIMEj J 



I 



.WORD 

.WORD 

.WORD 

.WORD 

.BYTE 
.BYTE 

.WORD 
.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

EMT 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.SBTTL 



iPTR. TO DISPATCH TABLE 
L IDISPATCH 

iDIAGNOSTIC RUN PRIORITY 


(FLAGS DESCRIBE HOW IT WAS SETUP 


{EXPANSION WORD 


I SVC REV AND EDIT 
CIREVISION 
CREDIT 

IDIAG. EV<-NT FLAGS 







LJOVTYP 

LJRPT 





LIAU 

L$DU 



L$DESC 

E$LOAD 



LIINIT 

LICLEAN 

LI AUTO 

LIPROT 







DISPATCH TABLE 



I POINTER TO DEVICE TYPE LIST 
;PTR. TO REPORT CODE 



|PTR. TO ADO UNIT CODE 

(FiR. TO DROP UNIT CODE 

(LUN FOR EXERCISERS TO FILL 

(POINTER TO DIAG. DESCRIPTION 

(GENERATE SPECIAL AUTOLOAD EMT 

iPOINTER TO ERRTBL 

tPTR. TO INIT CODE 

|PTR. TO CLEAN-UP CODE 

iPTR. TO AUTO CODE 

iPTR. TO PROTECT TABLE 

I TEST NUMBER 

(DELAY COUNT 

iPTR. TO HIGH MEM 



t THt DISPATCH TABLE CONTAINS THE STARTING AODREf^S Of EACH TEST, 
; IT XS USED &Y THE SUPeRVISQR TO DISPATCH TO EACH TEST. 
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DISPATCH TABLE 






39 






40 002122 




DISPATCH 8 


002122 


000010 


.WORD 8 


002124 




LJDISPATCH: : 


002124 


023306' 


.WORD Tl 


002126 


024422' 


,WORD T2 


002130 


027102' 


.WORD T3 


002132 


034252' 


. WORD T4 


002134 


046506' 


.WORD T5 


002136 


055434' 


.WORD T6 


002140 


075006' 


.WORD T7 


002142 


105044' 


.WORD T8 



SEQ 019 



41 

42 

43 

44 

45 

46 

47 

46 

49 

50 002144 
002144 
002146 
002146 

51 

52 002146 

53 002150 

54 002152 

55 002154 
002154 

56 

57 

58 

59 

60 

61 

62 

63 002154 
002154 
002156 
002156 

64 

65 002156 

66 002160 
67 

68 

69 002162 

70 002164 

71 002166 
002166 

7L' 

7? 002166 

74 



000003 



172520 
000224 
000200 



000004 



000000 
000000 



000017 
000310 



.SBTTL DEFAULT HARDWARE P- TABLE 



♦ * 



I THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
i THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
I IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 



I - - 



LiHW; : 
DFPTBL:: 



BGNHW DFPTBL 

.WORD L10000-L$HW/2 



.WORD 172520 



L 10000: 



t ♦• 



.WORD 
.WORD 
ENDHW 



224 

PRI04 



iDEFAULT HARD-P-TABLE 



I 15T (OF 2) REGISTERS 
I INTERRUPT VECTOR 
I INTERRUPT PRIORITY. 



.SBTTL SOFTWARE P-TABLE 



I THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
I PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



I - - 



BGNSW 
.WORD 

L$SW:: 

SFPTBLi : 


SFPT8L 
L 10001 


■L$SW/2 


TRANSTST;; 
NOITS: : 


.WORD 
.WORD 


I 
1 


LERRMAX; : 
GERRMAXt ; 

ENOSW 
LlOOOli 


.WORD 
.WORD 


15. I 
200. i 



ENABLE TEST OF TRANSPORT(S) IF 

INHIBIT ITERATION OPTION. 

. . . • ITERATE. 

. . .NZ • INHIBIT ITERATE. 

LOCAL (PER TEST) ERROR LIMIT 

GLOBAL (PER UNIT) ERROR LIMIT 



ENDMOD 
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SEQ 020 



7 

8 
13 
19 

?0 002166 
002166 
21 

2a 

23 

24 
25 
26 
27 
26 
29 
33 002 16o 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

00 I 000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



TSV3;; 



.TITLE TSV3 - GLOBAL AREAS 
.SBTTL GLOBAL EQUATES SECTION 



BGNMOn TSV3 



.SBTTL GLOBAL EQUATES SECTION 



f ♦ 



1 THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
i ARE USED IN MORE THAN ONE TEST. 



EQUALS 
; BIT DIFINITIONS 



I GET STANDARD EQUATES. 



RIT15- 


- 100000 


BIT14- 


- 40000 


BITi3- 


• 20000 


BIT12- 


• 10000 


BITll- 


- 4000 


BITIO- 


• 2000 


BIT09- 


- 1000 


BIT08- 


■ 400 


BIT07- 


■ 200 


BIT06- 


- 100 


BIT05- 


- 40 


BIT04- 


- 20 


BIT03- 


■ 10 


BIT02- 


• 4 


BITOl- 


- 2 


BITOO- 


■ 1 


BIT9-- 


BIT09 


BIT8-- 


BIT08 


BIT7-- 


8IT07 


BIT6-- 


BIT06 


BIT5-- 


BIT05 


BIT4-- 


BIT04 


BIT5-- 


PIT03 


BIT2-- 


bIT02 


BIT1-- 


BITOl 


BITO-- 


BITOO 



000040 
000037 
000036 
000035 
000034 



1 EVENT FLAG DEFINITIONS 

I EF52:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMfNICATION 



EF.START-- 


32. 


EF.RESTART-- 


31. 


EF. CONTINUE- " 


30. 


EF.NEU-- 


29. 


Er\PWR" 

I 

i 


28, 



I START COMMAND WAS ISSUED 
I RESTART COMMAND WAS ISSUED 
I CONTINUE COMMAND WAS ISSUED 
I A NEW PA^jS HAS BEEN STARTED 
I A POWER-FAIL/POUER-UP OCCURRED 



rr~^ii"~ZL 
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SEQ 021 



J PRIORITY LEVEL DEFINITIONS 



34 

35 002166 



000540 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
00004 C 
000100 
000200 
000400 
OOIOOO 
002000 
004000 
010000 
020000 
040000 
100000 



000250 

177572 
177574 
177576 
172516 



PRI07 


-• 340 


PRI06-- 300 


PRI05-- 240 


PRI04-- 200 


PRI03-- 140 


PRI02-' 100 


PRI01-- 40 


PRI0O»" 


! OPERATOR FLAG BITS 


EVL-- 4 


LOT-- 


10 


ADR-' 


20 


IDU"« 


40 


ISR-' 


100 


UAM-« 


200 


BOE-' 


400 


PNT-' 


1000 


PRI-- 


2000 


IXE-' 


4000 


IBE-' 


10000 


IER-' 


20000 


LOE-' 


40000 


HOE"- 100000 


KTU 


.SBTTL MEMORY MANAGEMENT DEFINITIONS 


i*KTll VECTOR ADDRESS 


MMVEC- 250 


i*KTll STATUS REGISTER ADDRESSES 


SRO- 177572 


SRI- 177574 


SR2- 177576 


SR3- 172516 


.IF N6 


(♦USER "I" PAGE DESCRIPTOR REGISTERS 


UIPORO- 177600 


UIPDRl- 1776'^? 


UIPDR2- 177604 


UIP0R3- 177606 


UIP0R4- 177610 


UIP0R5- 177612 


UIPDR6- 177614 


UIPDR7- 177616 


.IF NB 


i*USER "D" PAGE DESCRIPTOR REGISTOnS 


UOPDRO- 177620 


UOPDRl- 177622 


UDPDR2- 177624 


U0PDR3- 177626 


U0PDR4- 177630 


U0PDR5- 177652 


U0PDR6- 177654 


UOPOI 


^7* 177636 



(DEFINE MEMORY MANAGEMENT REGISTERS 
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J 






SEQ 022 



,ENDC 




j*USER "I" PAGE 


ADDRESS REGISTERS 


UIPARO- 177640 




UIPARl- 177642 




UIPAR2" 177644 




UIPAR3- 177646 




UIPAR4- 177650 




U::PAR5- 177652 




UIPAR6- 177654 




UIPAR7- 177656 




.IF NB 




t*USER "D" PAGE 


ADDRESS REGISTERS 


UOPARO- 177660 




UOPARl- 177662 




U0PAR2- 177664 




UOPAR;- 177666 




U0PAR4- 177670 




U0PAR5- 177€72 




U0PAR6- 177674 




U0PAR7- 177676 




.ENOC 




,ENOC 




.IF NB 




(♦SUPERVISOR "I' 


' PAGE DESCRIPTOR REGISTERS 


SIPORO- 172200 




SiPDRl- 172202 




SIPDR2- 172204 




SIP0R3- 172206 




SIP0R4- 172210 




SIPDR5- 172212 




SIP0R6- 172214 




SIP0R7- 172216 




.IF NB 




s ♦SUPERVISOR "D' 


• PAGE DESCRIPTOR REGISTERS 


SDPDRO- 17;3220 




SOPOR 1- 1/2222 




SDP0R2- 172224 




SOPORS- 172226 




?0PDR4- 172230 




SDPDR5- 172232 




S0PDR6- 172234 




SDP0R7- 172236 




.ENDC 




(♦SUPERVISOR "I' 


" PAGE ADDRESS REGISTERS 


SIPARO- 172240 




SIPARl- 172242 




SIPAR2- 172244 




SIPAR3' 172246 




SIPAR4- 172250 




SIPAR5- 172252 




SIPAR6- 172254 




STPAR''- 172256 




,IF NB 




••SUPERVISOR "D 


" PAGE ADDRESS REGISTERS 


SDPARO- 172«;60 




SDPARl- 172262 




SDPAR2- 172264 





I<2 
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StQ 023 



172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
172342 
172344 
172346 
172550 
172352 
172354 
172356 



39 
40 
41 
42 

43 
44 
45 
46 
47 



SDPAR3- 172266 

SDPAR4- 172270 

SDPAR5- 172272 

SDPAn6- 172274 

S0PAR7- 172276 

»ENOC 

,ENDC 

»*KERV.^L "I" PAGE DESCRIPTOR REGISTERS 

KIPORO- 172300 

KIPDRl- 172302 

KIPDR2- 172304 

KIP0R3- 172306 

KIP0R4- 172310 

KIP0R5- 172312 

KIPDR6- 172314 

KIPDR7- 172316 

.IF NB 

i*['ERNEL "D" PAGE 

DESCRIPTOR REGISTERS 
KDPORO- 172320 
KOPDRl- 172322 
KDPDR2- 172324 
K0PDR3- 172326 
KDPDR4- 172330 
KDPDR5- 172332 
KDPDR6- 172354 
KDP0R7- 172336 
.ENOC 

(♦KERNEL '*!" PAGE ADDRESS REGISTERS 
KIPARO- 172340 
KIPARl- 172342 
KIPAR2- 172344 
KIPAR3- 172346 
KIPAR4- 172350 
KIPAR5- 172352 
KIPAR6- 172354 
KIPAR7- 172356 

.IF NG 

I ♦KERNEL "D" PAGE ADDRESS REGISTERS 

KDPARO- 172360 

KDPARl- 172362 

KDPAR2- 172364 

KDPAR3- 172366 

KDPAR4- 172370 

KDPAR5- 172372 

K0PAR6- 172374 

KDPAR7- 172376 

.ENDC 



.SBTTL TSU05 REGISTER AND PACKET DEFINITIONS 



; SOME GENERAL EQUATES, 



OOOOOA 



J 



ERRVEC 



» POINTER TO ERROR VECTOR FOR BUS TIME OUT, 



L2 
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SEQ 024 



48 


000060 


49 


177560 


50 


177562 


51 


177520 


52 




53 




54 




55 




56 




57 


100000 


58 


040000 


59 


020000 


60 


010000 


61 


004000 


62 


002000 


63 


001400 


64 


000200 


65 


000100 


66 


000060 


67 


000016 


68 




69 




70 




71 




72 




73 




74 




75 




76 




77 


100000 


78 


040000 


79 


020C00 


80 


C 10000 


81 


004000 


82 


002000 


83 


001000 


64 


000400 


85 


000200 


86 


000100 


87 


000040 


88 


000020 


89 


000010 


90 


000004 


91 


000002 


92 


000001 


93 




94 




95 




96 




97 




98 




19 


I 00000 


100 


040000 


101 


020000 


102 


017375 


1C3 


000400 


104 


000002 



TTIVEC- 


60 


TTICSR- 


177560 


TTIBFR- 


177562 


BDVPCR- 


177520 


!eiT DEFINITIONS FOR T 


SC- 


BIT15 


BIE- 


BIT14 


SCE- 


BIT13 


RMR- 


BIT12 


NXtl- 


BITll 


NBA- 


BITIO 


HIADDR- 


BIT9»DIT8 


SSR- 


BIT7 


OFL- 


BIT6 


FATERR- 


BIT4JBIT5 


TERCLS- 


BIT3!BIT2!BIT1 



I INTERRUPT VECTOR FOR CONSOLE INPUT 
I BUS ADDRESS OF CONSOLE INPUT 
I CONSOLE INPUT DATA BUFFER 
I BDVll PAGE CONTROL REGISTER 



(SPECIAL CONDITION 

;BUS INTERFACE ERROR 

I SANITY CHECK ERROR 

I MODIFICATION REFUSED 

iNONEXISTANT MEMORY ERROR 

I NEED BUFFER ADDRESS 

I EXTENDED ADDRESS BITS 

I SUB SYSTEM READY 

lOFF LINE BIT 

I FATAL TERMINATION ERROR CODES 

(TERMINATION CODES 



( ♦ 

I 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 
(XSTO) 



I • 

XSOTMK 
XSORLS 
XSOLET 
XSORLL 
XSOWLE 
XSONEF 
XSOILC 
XSOILA 
XSOMOT 
XSOONL 
XSOIE- 
XSOVCK 
XSOPED 
XSOWLK 
XS060T 
XSOEOY 



BIT15 

BIT14 

BIT13 

BIT12 

BITll 

BITIO 

BIT9 

BITS 

Fir? 

BIT6 

BIT5 

BIT4 

BIT3 

BIT2 

BITl 

BITO 



(BIT DEFINITIONS 
j(XSTl) 



(TAPE MARK DETECTED 
(RECORD LENGTH SHORT 
(LOGICAL END OF TAPE 
(RECORD LENGTH lONG 
(WRITE LOCK ERROR 
iNON EXECUTABLE FUNCTION 
(ILLEGAL COMMAND 
(ILLEGAL ADDRESS 
(TAPE IN MOTION 
(TRANSPORT ON LINE 
(INTERRUPT ENABLE 
(VOLUME CHECK BIT 
(PHASE ENCODED DRIVE 
(WRITE LOCKED 
(BEGINNING OF TAPE 
(END OF TAPE 



FOR EXTENDED STATUS REGISTER 1 



Xl.OLT 
XI. SPARE 
XI. COR 
X1.M6Z 
Xl.RBP 
Xl.UNC 



BIT15 (DATA LATE 

BIT14 (NOT USED 

BIT13 (CORRECTABLE DATA ERROR 

BIT12*8IT11*BIT10^BIT9*BIT7*BIT6»BIT5*BIT4*BIT3»BIT2»DIT0 (ALWAYS 

BITS (READ BUS (-ARITY ERROR 

BITl (UNCORRECTABLE DATA OR HARD ERROR 
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TSU05 REGISTER AND PACKET DEFINttlONS 



M2 



SEQ 025 



105 




106 




107 




108 




109 




110 


100000 


111 


040000 


112 


035400 


113 


002000 


114 


000200 


115 


000100 


116 


000077 


117 


000007 


118 




119 




120 




121 




122 




123 


177400 


124 


000200 


125 


000100 


126 


000040 


127 


000020 


128 


000010 


129 


000006 


130 


000001 


131 




132 




133 




134 




135 




136 


100000 


137 


040000 


138 


020000 


139 


017400 


140 


000377 


141 




142 




14^. 




14a 




145 




146 




147 




148 




149 


000006 


150 


000006 


151 




152 




153 




154 




155 




156 




157 




158 


000000 


159 


000000 


160 


000001 


161 


000001 



(BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
!(XST2) 



X2 . 0PM 

X2.RCE 

X2. SPARE 

X2.UCF 

X2.EXTF 

X2.BUFE 

X2.REV 

X2.UNIT 



BIT15 lOPERATION IN PROGRESS (TAPE MOVING) 
BIT14 (RAM CHECKSUM ERROR 

BIT13tBIT12+BITll+BIT9*BIT8 iNOT USED BY TSU05 (ALWAYS-0) 
BITIO iURITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
BIT7 iIF WRITE CHAR CMD THEN - EXTENDED FEATURES ENABLED 

BIT6 ilF WRITE CHAR CMD THEN - BUFFERING ENABLED 

000077 I IF WRITE CHAR CMD THEN ■ MICROCODE REVISION LEVEL 
BIT2fBITl+BIT0 ;IF GET STATUS THEN ■ CURRENTLY SELECTED UNIT NO. 



jBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
;CXST3) 



iMICRO-DIAGNOSTIC ERROR CODE 

jNOT USED BY TSU05 

lOPERATION INCOMPLETE 

I REVERSE 

I TRANSPORT RESPONSE FAILURE 

jDENSITY CHt^.CK 

iNOT USED ALWAYS 

I REVERSE INTO BOT 



iBIT DEFINITIONS FOR EXTENDED STATUS REGIS . £R 4 
;CXST4) 

X4.HSP 
X4.RCE 
X4.TSM 
X4.MBZ 
X4 . WRC 



X3.MDE ■ 


• 177400 


X3. SPARE ■ 


• BIT7 


X3.0PI ' 


• BIT6 


X3.REV ' 


• BITS 


X3.TRF ■ 


• BIT4 


X3.DCK ' 


• BIT3 


X3.M6Z - 


•DIT2*BIT1 


X3.RIB • 


- BITO 



BIT15 jHIGH SPEED 

BIT14 ;RETRY COUNT EXCEEDED 

BIT13 t TRANSPORT SPECIAL MODE 

BIT12fBITll*BIT10»»IT0*BIT8 jNOT USED ALWAYS 

000377 (WRITE RETRY COUNT FIELD 



iTSSR TERMINATION COOES CBIT 0-2) 



TSREJ- 3*2 
UNREC- 6 



» COMMAND REJECTED 
J UNRECOVERABLE ERROR 



t ♦ 



DEVICE REGISTER OFFSETS 



TSBA-« 

TSDB-- 

TSBAH" 1 

TSDBH-- X 



tTSDB/TSBA REGISTER 
(TSOB/TSBA REGISTER HIGH BYTE 



N2 
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TSSR-- 2 
TSSRH-- 3 



SEQ 026 



162 


0O0002 


163 


000003 


164 




165 




166 




167 




168 


000003 


169 




170 




171 




172 




173 


00001 7 


174 


000013 


175 


000012 


176 


000011 


177 


000010 


178 


000006 


179 


000005 


180 


000004 


101 


000001 


18c 




183 




184 




135 




166 


100000 


187 


040000 


188 


020000 


189 


010000 


190 


007400 


191 


000200 


192 


000140 


193 


000037 


104 




195 




196 




197 


000000 


198 


000400 


199 


001000 


200 


002000 


201 


002400 


202 




203 




20-^ 




205 




206 


000167 


207 


000200 


ro8 


000201 


209 


000210 


210 


000215 


211 


000234 


212 




213 




214 




215 




216 




217 




218 


000006 



iTSSR REGISTER 

iTSSR REGISTER HIGH BYTE 



TSDB ADDRESS BIT DEFINITIONS 
A1716 - BIT1»BIT0 :ADDRESS BITS 17!l6 ARE IN 1:0 



COMM^IND DEFINITIONS 



P. GET STAT 
P.INIT 
P. CONTROL 
P. FORMAT 
P. POSITION 
P.WRTSUB 
P. WRITE 
P.WRTCHAR 
P.READ 



17 

13 

12 

11 

10 

6 

5 

4 

1 



;GET STATUS 

t INITIALIZE 

I CONTROL COMMANDS 

(FORMAT 

I POSITION 

J SUBSYSTEM WRITE 

(WRITE 

I WRITE CHARACTERISTICS 

;READ 



COMMAND PACKET HEADER WORD BIT DEFINITIONS 

P.ACK - BIT15 jBUFFER AVAIL FOR CONTRCl.LER 

P.CVC ■ BIT14 i CLEAR VO'.UME CHECK 

P.OPP " Biri3 iREVERSE SEQUENCE OF DATA BITS 

P.SWB ■ BIT12 jSWAP BYTES IN MEMORY 

P. MODE - BIT11!BIT10!BIT9!BIT8 ;EXTENDED COMMAND MODE FIELD 

P. IE - BIT7 (INTERRUPT ENABLE 

P.FMT- BIT6!BIT5 jPACKET HEADER TYPE (ALWAYS'O) 

P.CMO - 37 I MAJOR COMMAND FIELD 

i CONTROL COMMAND MODE CODES 



PC. RELEASE 
PC. REWIND 
PC NOOP 
PC.IEREW 
PC. ERASE 



- 0*256 

- 1*256 

- 2*256 

- 4*256 

- 5*256 



I RELEASE BUFFER 

; REWIND 

(NO-OP 

(REWIND IMMEDIATE 

; SECURITY ERASE 



INTERRUPT 



! CONTROLLER RAM DEFINITIONS 



RMCHBEG • 


167 


RMCHENO ■ 


200 


RMPKTBEG- 


201 


RMPKTEND- 


210 


RMMSGBEG* 


215 


RMMSGENO« 


234 



(CHARACr'"<ISTICS 10 DATA BEGIN RAM ADDRESS 
(CHARACTERISTICS 10 DATA END RAM ADDRESS 
(COMMAND PACKET BEGIN RAM ADDRESS 
(COMMAND PACKET END RAM ADDRESS 
(MESSAGE BUFFER BEGIN RAM ADDRESS 
(MESSAGE BUFFER END RAM ADDRESS 



(REGISTER DEFINITIONS IN THE MESSAGE BUFFER 

I 

( - 



XSTO" 



(EXTENDED STATUS REGISTER (WORD 4) 



B3 



TSV3 • GLOBAL 


AREAS 


TSU05 REGISTER 


AND PAD 


^19 


000010 


220 


000012 


21' 1 


000014 


222 


000016 


223 




224 




225 




226 




227 




228 




22"* 




250 




231 


000002 


252 


000004 


253 


000006 


234 




235 


000010 


236 




237 




238 




239 




240 


000000 


241 


000001 


242 


000002 


245 


000004 


244 




245 




246 




247 




248 


000000 


249 


000001 


250 


000002 


251 


000003 


252 


000004 


253 


000005 


254 


000006 


255 


000007 


256 


000010 


257 


OOOOll 


258 


000020 


259 


000021 


260 


000022 


261 


000023 


262 


000024 


263 




264 




265 




266 




267 


000200 


268 


000100 


269 


000040 


270 


000020 


271 


0000 10 


272 


000004 


273 


000002 


274 


000001 


275 





MACRO M1115 0l-FEB-e4 17!54 

:t definitions 



SEQ 027 



XST1-- 


8. 


XST2--. 


10. 


XST5-- 


12. 


XST4-- 


14. 



lEXTENDED STATUS REGISTER 1 (WORD 5) 
iEXTENOEO STATUS REGISTER 2 (WORD 6) 
lEXTENOEO STATUS REGISTER 3 (WORD 7) 
(EXTENDED STATUS REGISTER 4 (WORD 8) 



OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



PKLOW 
PKHI 
PKBCNT ■ 

EXBCNT-10 



iLOW ORDER CHARACTERISTIC DATA POINTER 
IHIGH ORDER CHARACTERISTIC DATA POINTER 
(NUMBER OF BYTES IN DATA PACKET 

(NUMBER OF BYTES IN EXTENDED DATA PACKET 



(DATA PACKET OFFSETS FOR WRITE SUB5YTEM COMMAND 
I - 



BSELO 
8SEL1 
SEL2 

SELDATA 



(BYTE 

(BYTE 1 

(WORD 2 

(WORD 3 



I * 



(BSELO SELF.CT COOES FOR WRITE SUBSYSTEM COMMAND 



PU.NOP 


■ 


PW. RDRAM 


■ I 


PW.WTRAM 


' 2 


PW.RFIFO 


■ 3 


PW.WFIFO 


> 4 


PW.ROSTAT 


• 5 


PW.WCTL 


■ 6 


PW.WFMT 


• 7 


PW.WMISC 


■ 10 


PU.UNPR 


• 11 


PW.022 


• 20 


PW.Dll 


- 21 


PW.013 


• 22 


PU.N01511 


• 23 


PW.RDEXT 


• 24 


IbSL'LI COOES FgR 


WRITE 


WC.IF^O 


■ BIT7 


WC.ICfAO 


• BIT6 


WC.UTAO 


■ BIT5 


WC.I5RESV 


• BIT4 


WC.IREW 


' BIT3 


WC . IRWU 


• BIT2 


WC . IFEN 


• BITl 


WC.IGO 


» BITO 



(NO-OP 

iREAD RAM 

(WRITE RAM 

(READ FIFO 

(WRITE FIFO 

(READ STATUS 

(WRITE TAPE CONTROL 

(WRITE TAPE FORMAT 

(WRITE MISCELLANEOUS 

(WRITE NPR CONTROL 

(00 MICROTEST 22 

(00 MICROTEST 11 

(00 MICROTEST 13 

(DISABLE MICROTEST 11 AND 13 

(READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 



TAPE CONTROL 



lIFAD - FORMATTER ADDRESS 

(ITADO - TRANSPORT ADDRESS 

(ITADl - TRANSPORT ADDRESS 

(IRESV5 - RESERVED *5 

(IREW - REWIND 

(IRWU - REWIND ANU ItiLOAU 

I IFEN ' FORMATTER ENABIE 
I GO 



BIT 

BIT 



}i-i;a5-R^b?i?^R'^s^6^Ac,<EniPiniH3Ns°^-'^^°-°'' 



17:54 



C3 



SEQ 028 



^78 



iBSBLl CODES FOR WRITE FORMAT 



279 


000200 


280 


000100 


281 


000040 


282 


000020 


285 


OOOOIO 


284 


000004 


285 


000002 


286 


000001 


287 




288 




289 




290 




291 




292 


000200 


293 


000020 


294 


000010 


295 


000006 


296 


000001 


297 




298 




299 




300 


000000 


301 


000002 


302 


000004 


303 


000006 


304 




305 




306 




307 


000200 


308 


000100 


309 


000040 


310 


000020 


311 




312 




313 




314 




315 


000200 


316 


000100 


317 


000040 


318 


000020 


319 


OOOOIO 


320 


000004 


321 


000003 


322 


100000 


323 


040000 


324 


020000 


325 


OlOOOO 


326 


004000 


327 


002000 


328 


001000 


329 


000400 


330 


000200 


331 


000100 


332 


000040 



WF.IHISP 


• BIT7 


IHISP 


- HIGH SPEED 


WT.IWRT 


• BIT6 


IWRT 


- WRITE 


WF.IREV 


- BITS 


IREV 


- REVERSE 


WF.IWFM 


• BIT4 


IWFM 


- WRITE FILE MARK 


WF.IEDIT 


■ BIT3 


lEDIT 


- EDIT 


WF , lERASE 


- BIT2 


lERASE 


- ERASE 


WF.I3RESV 


- BITl 


IRESV3 


- RESERVED #3 


WF.I4flESV 


■ BITO 


IRESV4 


- RESERVED *4 



I * 

iBSELl CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 



MS. EXT 


- BIT7 


MS.RSFIFO 


■ BIT4 


MS.RSTAPE 


■ BIT3 


MS. ATTN 


■ BIT2!BITl 


MS.RSO 


- BITO 



I INVERT SENSE OF EXTENDED FEATURES SWITCH 

iRESET FIFO AND INPUT PARITY ERRORR 

iRESET TAPE STATUS IN 2 FLIP-FLOPS 

I ATTENTION TRIGGER FIELD 

(RESET TIMER A,B THEN DELAY TIMES IN SEL2 



I MS. ATTN SUBCODES 
t- 

MSA.NOP ■ 0*2 

MSA. VOL ■ 1*2 

MSA.NRAM* 2*2 

MSA.FRAM- 3*2 

I WRITE SUBSYSTEM WRITE NPR BSELl BIT DEFINITIONS 

NP.IR - BIT7 

NP.OUT • BIT6 

NP.LOOP ■ BITS 

NP.WRP • BIT4 

I ♦ 

I READ STATUS MESSAGE BUFFER BIT DEFINITIONS 

I - 



iNO-OP CNOTMING TRIGGERED) 
iSIMULATE ON-LINE/OFF-LINE TRANSIbUON 
iFORCE NON-FATAL RAM ERROR (FORCES ERRCOOE 
I FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 



54) 



lINTERRUPT REQUEST (0-1 TRANSITION) 

iTAPE DATA DIRECTION OUT (0- IN) 

I ENABLE TRANSPORT LOOPBACK 

iWRITE CORRECT PARITY (SET-0 TO WRITE WRONG) 



S2.DIM 
S2.ILW 
S2.0UTRDY 
S2.INRDY 
S2.ATIMR 
S2.BTIMR 
S2.UN0EF 
Sl.PARIN 
S1.I2REdV 
Sl.IlRESV 
Sl.IEOT 
Sl.IIDENT 
Sl.ICER 
IFMK 
IHER 
SO.ISPEEQ 
SO.IRDY 
SO.IQNU 



SI 
SI 



Bir7 

BIT6 

BITS 

BIT4 

BIf3 

BIT2 

BIT1*BIT0 

BIT15 

BIT14 

BIT13 

BIT12 

BITll 

BITIO 

BIT9 

BITS 

BIT? 

BIT6 

BITS 



WORD 09 BYTE 2 



(UNDEFINED) 
WORD #8 BYTE 



WORD 08 BYTE 



DATA IN MISS 
ILW H 
OUT RDY H 
IN RDY H 
TIMER A FLAG H 
TIMER B FLAG H 

PAR IN H 
IRESV2 
IRESVl 
lEOT L 
IIDENT H 
ICER H 
IFMK M 
IHER H 
ISPEED H 
IRDt L 

lONU L 



i^^SR^b^f^hW^PACKEVWlRiHSNS^^-^^^-^* 



17!54 



D3 



SEQ 029 



533 

334 

355 

336 

357 

358 

359 

340 

341 

54^ 

345 

344 

345 

346 

347 

346 

349 

350 

351 

352 

353 

554 

355 

356 

357 

358 

359 

360 

361 

362 

365 

364 

365 

366 

367 

368 

369 

370 

371 

372 

375 

374 

575 

376 

377 

378 

379 

380 

381 

382 

385 

384 

385 

386 

387 

588 

389 



000020 
000010 
000004 
000002 
000001 



170200 



SO.ILDP - BIT4 

50.IDBY - BIT5 

SO.IRWO - BIT2 

SO.IFBY - Bin 

SO.IFPT ■ BITO 

lUNIBUS MAP DEFINATXONS 



ILDP 
lOBY 
IRWD 
IFBY 
IFPT 



MMRO' 



170200 



.SBTTL SPECIAL MACROS AND OPDEFS. 



(SAVE GENERAL REGS 1 TO 5 
t - 



.MACRO 

JSR 

.ENOM 



SAVREG 
RS.REGSAV 



iREAD TSSR 

lis FORCER SET? CLEAVE C BIT ALONE) 
(BR IF YES 



I MACRO TO FORCE AN ERROR 

. MACRO FORCERROR TAG , NOTSSR 

,NLIST 

.IIF NDF LISTALL. .NLIST 

.LIST 

,IF B NOTSSR 

MOV TSSRCR5),R1 
.ENOC 

MOV FORCER, FORCER 

BNE TAG 
.NLIST 

.IIF NOF LISTALL, .LIST 
.LIST 
.ENOM 

t ♦ 

I MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 

I WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

I SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 

t FORCER TO 177777 

I TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 

.MACRO FORCEXIT TAG 

.NLIST 

.IIF NOF LISTALL, .NLIST 

.LIST 

MOV FORCER, FORCER |IS FORCER NEGATIVE? 

BMI TAG j6R IF YES 

.NLIST 

.IIF NDF LISTALL, .LIST 
.LIST 
.ENOM 
i * 



E3 



TSV5 - GLOBAL AREAS MACRO M1113 
SPECIAL MACROS AND OPDEFS. 

390 

591 

39^ 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 000000 

412 

413 

414 

415 

416 

417 

418 

419 002166 000000 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

455 

436 002170 000000 

437 002172 000000 

438 002174 000000 

439 002176 000000 

440 002200 000224 

441 002202 000200 

442 002204 OOOOOO 

443 002206 OOOOOO 

444 002210 OOOOOO 

445 002212 OOOOOO 

446 002214 OOOOOO 



Ol-FEB-84 I7i54 



SEQ 030 



J MACRO TO INCREMENT ERROR COUNTS 

!macro NEXT.ERRNO 

.NLIST 

ni.IIF NDF LISTALL, .NLIST 

ERRN0-ERRN0»1 
jM.IIF NDF LISTALL, .LIST 
.LIST 
.ENDM 

(MACRO TO PERFORM XOR 
I' 



.MACRO 


XOR A,B 


MOV 


A,-CSP) 


BIC 


B.fSP) 


BIC 


A.B 


BIS 


(SP)*,B 


.ENDM 




EN-0 




. SBTTL 


FORCER - F 



J INITIALIZE ERROR NUMBER 
- FORCE ERROR FLAG 



I THE FOLLOWI^X; LOCATIONS MAY BE PATCHED BY THE USER 

J TO OBTAIN THE RESULTS DESCRIBED FOR EACH, 

1 



FORCER I : 



I FORCE TYPE ALL HARD ERRORS (THE ONES CALLED 

1 - BY THE MACRO "IFERROR"). AN ERROR NEED NOT - 
I - EXIST. JUST ASSUME AND TYPE THE MESSAGE. 



.SBTTL GLOBAL DATA SECTION 



I THE GLOBAL DATA SECTION 
ilN MORE THAN ONE TEST. 



CONTAINS DATA THAT ARE USED 



jiHE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
(SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 



EPRTSU: : 

UNITN:; 

QVP:: 

CSRADDR; : 

IVEC:; 

IPRI : i 

TSTCNT: 

LOOPCNT 

DEVCNT: 

FATFLG: 

INTRECV 



.UORO 
.WORD 
.WORD 
.WORD 










.WOrtD 224 
.WORD PRI04 



.WORD 
.WORD 
.WORD 
.WORD 
,U0RD 











(PRINT SWITCH 
(UNIT # UNDER TE^T. 
(QUICK VERIFY FLAG. 
(ADDRESS OF CSR FOR 
(INTERRUPT VECTOR 
(INTERRUPT 
(NUMBER OF 
(REMAINING 
(NUMBER OF 
(SET IF 
(SET IF 



CURRENT DEVICE 

PRIORITY. 

TESTS RUN IN THIS PASS 

ITERATION COUNT FOR TEST 

DEVICE UNDER TEST 
FATAL ERROR IS DETECTED IN TEST 
TAPE INTERRUPT WAS RECEIVED 



F3 



TSV3 - GLOBAL AREAS 
GLOBAL DATA SECTION 



447 002216 

448 002220 

449 002222 

450 002224 

451 002226 

452 002230 

453 002232 

454 002272 

455 002274 

456 002276 

457 002300 

458 002302 

459 002304 

460 002306 

461 002310 

462 002312 

463 002456 

464 002622 
465 

466 
467 
468 
469 
470 
471 
4 72 
473 
474 
475 
476 
477 
478 
479 
^80 
461 
482 

483 002742 

484 0027^2 

485 002744 

486 002746 

487 002750 

488 002752 

489 002754 

490 002756 

491 002760 

492 002762 

493 002764 

494 002766 

495 002770 
49fi 0O2772 

497 002774 

498 002776 

499 005000 

500 003002 

501 003004 

502 003006 

503 003010 



000000 
000000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
177777 
00000 1 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
177776 
177775 



MACRO M1113 Ol-FEB-84 17J54 



EXTFEA: 

BENesU: 

EXPO: 

RECV: 

ERRHI 

ERRLO 

RAMDATA : : 

RAMSIZ: : 

RCVHIADD : 

RCVLOADD: 

COUNT : : 

DATA:: 

TSTFLAG: : 

TSTPTR 

PRMNO: 

EXPMSG 

RECMSG 

TMPBFR 



.MORD 


t 


.WORD 


1 


.WORD 


1 


.WORD 


t 


.WORD 


I 


.WORD 


1 


.BLKW 


16. 1 


.WORD 


1 


.WORD 


; 


.WORD 


t 


.WORD 


1 


.WORD 


1 


.WORD 


1 


.WORD 


1 


.WORD 


I 


.BLKB 


100. 1 


.BLKB 


100. t 


■ BLKB 


80. 1 



SEO 031 



I EXTENDED FEATURES SOFTWARE SW O-OFFjl-ON 

iBUFFER ENABLE SWITCH SW O-OFFjl-ON 

I EXPECTED RAM DATA FOR PRAMPKT ROUTINE 

(RECEIVED RAM DATA FOR PRAMPKT ROUTINE 

(HIGH ADDRESS MEMORY ERROR 

I LOW AODRF.SS MEMORY ERROR 

I DATA READ FROM RAM PACKET OR MESSAGE BUF ARE.'V 

iRAM DATA SIZE FOR PRAMPKT ROUTINE 

; RECEIVED BUFFER HIGH ADDRESS 

I RECEIVED BUFFER LOW ADDRESS 

I TEST COUNT PATTERN 

I TEST DATA 

I TEST FLAG WORD 

iTSTBLK POINTER 

I PRINT ROUTINE TEMP 

I EXPECTED MESSAGE BUFFER DATA 

iRECEIVED MESSAGE BUFFER DATA 

I TEMPORARY STORAGE FOR PRINT 



.SBTTL TSTBLK - TEST DATA TABLE 

* 

THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 

IN SEQUENCE THE DATA IS: 

/\LL ZEROS 

ALL ONES 

WALKING ONES 

WALKING ZEROS 

ALTERNATING ONES AND ZEROS 



(ALL ZEROS 

(ALL ONES 

I DATA FOR WALKING ONES 



TSTBLK:: 




.WORD 





.WORD 


177777 


.WORD 


BITO 


.WORD 


BITl 


.WORD 


BIT2 


.WORD 


BIT3 


.WORD 


BIT4 


.WORD 


BIT5 


.WORD 


BIT6 


.WORD 


BIT7 


.WORD 


BIT8 


.WORD 


BIT9 


.WORD 


BITIO 


.WORD 


BITll 


.WORD 


BIT12 


.WORD 


BIT13 


.WORD 


BIT14 


.WCRD 


BIT15 


.WORD 


tCBITO 


.WORD 


tCBITl 



I DATA FUR WALKING ZEROS 



G3 



TSV3 - GLOBAL AREAS MACRO M1113 01-FEfi-e4 17J54 
TSTBLK - TEST DATA TABLE 



SEQ 032 



504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

516 

519 

520 

521 

522 

523 

524 

5^5 

526 

527 

528 

529 

530 

531 

532 

533 

554 

535 

536 

537 

536 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

55k 

553 

554 

555 

556 

557 

558 

559 

560 



003012 
005014 
003016 
003020 
003022 
003024 
003026 
003030 
003032 
003034 
003036 
003040 
003042 
003044 
003046 
003050 



003052 
003062 



003102 

003104 

003106 
003110 
003112 
003114 
003 116 
003120 
003122 



003124 
003126 
003130 
003132 
003134 
003136 
003140 
003142 
003144 
003146 
003150 
003152 
003154 
003154 
003156 
003160 



177773 
177767 
177757 
177737 
177677 
177577 
177377 
176777 
175777 
173777 
167777 
157777 
137777 
077777 
125252 
052525 
003052' 



000000 100000 000000 
000000 000000 000000 



000000 

000000 

000000 
000000 
000000 
000000 

oooooo 

000000 

oooooo 



oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

002000 

oooooo 
oooooo 
oooooo 
oooooo 

oooooo 
oooooo 
oooooo 



.WORD 


tCBIT2 


.WORD 


tCBIT3 


.UORD 


tCBIT4 


.WORD 


tCBIT5 


.WORD 


tCBIT6 


.WORD 


tCBIT7 


.WORD 


tCBIT8 


.WORD 


tCBIT9 


.WORD 


tCBITlO 


.WORD 


tCBITll 


.WORD 


tCBIT12 


.WORD 


tCBIT13 


.WORD 


tCBIT14 


.WORD 


tCBITlS 


.WORD 


125252 


.WORD 


052525 


TBLEND--. 





I ALTERNATING ONES, ZEROS 

I ALTERNATING ONES, ZERO OPPOSITE TROM ABOVE 



.SBTTL GLOBAL ENVIRONMENT STORAGE 

J STORAGE FOR DEVICE REGISTERS 

DUMMY! 0,100000.0.0 iDUMMY DEVICE REGISTERS... 
0,0.0,0,0,0,0,0 

»..,FOR MULTI-UNIT CHECKOUT. 



DUFLG: : 


.WORD 





NODEV:: 


.WORD 





TEMPI;: 


.WORD 





TEMP2!: 


.WORD 





XXCOMM:: 


.IJORD 





FREE : : 


.WORD 





FRESIZ: : 


.WORD 





FREEHI: .WORD 







KTFLGi: 


.WORD 





KTENABLEii 


.WORD 





NXMFLG: : 


.WORD 





NXMLO: : 


.WORD 





NXMHI : : 


.WORD 





T23A:: 


.WORD 





T23B:: 


.WORD 





T3BFLG: : 


.WORD 





PST32W: ; 


.WORD 


2000 


SIFLAG: : 


.WORD 





BAODAT: : 


.WORD 





GODAT : : 


.WORD 





LOOPFL: : 


.WORP 





CTAB: : 






CTABMi! 


.WORD 







.WORD 







.WORD 






("DROPPED '^UT- FLAG. 

I INHIBITS CODE IN "CLEAN-UP". 

J FLAG TO SAY NO DEVICE. 

I SOME TEMP LOCATIONS. 

iXXOP* com BLOCK POINTER, 
J 1ST FREE MEMORY ADDRESS... 
* ...AND SIZE (IN WORDS). 
(LAST WORD IN FREE SPACE 

iKTll, MEM AVAIL FLAG - 

I- .WORD • <24K OR NO KT - 

i - NZ • >24K AND KT. 

I SET BY TEST ROUTINES TO FLAG >28K UNDER TEST 

iSET IF we CAN TEST CLtAREO OTHERWISE 

iNXM LO ADDRESS BITS 

(NXH HI ADDRESS BITS FOR DAL' S 16-21 

jPROCESSCR TYPE FLAG 

(PROCESSOR TYPE FLAG B 

I TEST 3B FLAG tO 

|32W BLOCK ADDRESS FOR 32K START 

(ACTUAL DATA 
(EXPECTED DATA 

(CONFIGURATION TABLES, 
(CONFIG WORK. 
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TSV3 - GLOBAL AREAS MACRO M1113 
GLOBAL ENVIRONMENT STORAGE 



561 005162 

562 005164 

563 003166 
564 

565 
566 
567 
568 
569 
570 
571 
572 

573 003166 

574 003566 
575 

576 003370 

577 

576 

579 

5d0 

581 

582 

583 

584 

585 

586 

587 

588 

580 

590 

591 003372 
003372 
003372 

592 

607 

608 

609 

610 003400 
003400 
003400 

618 
619 
620 
621 
622 
623 
624 

625 003472 

626 003512 

627 003532 

628 003535 

629 003541 

630 003545 

631 003551 

632 003555 



000000 
177777 



01 -FEB -84 17:54 



. WORD 

.WORD -1 I END OF MEM TABLE. 

CTABE:: 

t ERROR STATISTICS TABLE CI WORD PER UNIT), 64 UNITS MAX; 



SEQ 033 



000000 
000000 



124 



123 



125 



052 



052 



052 



003532' 
003573' 
123 
102 
123 
122 
116 
116 



003535' 
003577' 
103 
111 
103 
115 
130 
102 



003541 
003603 
000 
105 
105 
122 
115 
101 



i 
( 
t 
t 
t 

ERTABL: 
ERTABE: 





100000 

lOXXXX 

160000 

160001 

14XXXX 



BLKW 
WORD 



UNIT NOT TESTED 

UNIT ONLINt. NO ERRORS 

UNIT ONLINE. ENCOUNTERED XXXX ERRORS 

UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 

UNIT DROPPED, NOT IDLE AT START 

UNIT DROPPED. ENCOUNTERED XXXX ERRORS 

64. 





SKIPT; .WORD 



.SBTTL 



tl-SKIP SUBTEST 0-NO SKIP OF SUBTEST 
GLOBAL TEXT MESSAGES 



i THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
I MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
I MORE THAN ONE TEST. 
( -- 



(NAMES OF DEVICES SUPPORTED 
I- 

DEVTYP <TSU05> 
L^DVTYP:: 

.ASCIZ /TSU05/ 
.EVEN 

TEST DESCRIPTION 
I - 

DESCRIPT <•♦♦♦ TSU05 DIAG PART 3 - CHK CABLES-TRANSPORT IF ERR ♦♦**> 
L^DESCt : 

".ASCIZ /♦*♦♦ TSU05 DIAG PART 3 - CHK CABLES-TRANSPORT IF ERR ***♦/ 
.EVEN 



iBIT TO ASCII CONVERSION FOR TSSR REGISTER 
I - 



TSSRBITi 



H 
2» 
3t 
4t 
5» 

6i 



.ASCI7 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



.WORD 

.WORD 

•SC 

'BIE' 

•SCE' 

'RMR' 

•NXM' 

'NBA' 



1»,2I.3»,4$.5$,6I.7I.8$ 
9l,10Mll.l2i.l3M4$.l5$.16$ 
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TSV3 - GLOBAL AREAS 
GLOBAL TEXT MESSAGES 



MACRO MU13 01-FEB-a4 17:54 



SEQ 034 



635 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

646 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

67] 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

662 

683 

664 

685 



003561 
003566 
003573 
003577 
003603 
003610 
003615 
003622 
003627 
003634 

003642 
003675 
003730 
003767 
004010 
004050 
004107 
004113 
004142 
004205 
0O4211 
004246 
004270 
004325 
004377 
004447 

004517 
004520 
0O4523 
0O4557 
004633 
004735 
005003 
005046 
005103 
005176 
005270 
005362 
005450 



005544 
005544 
005544 
005544 
005550 
005554 



102 
102 
123 
117 
102 
102 
102 
102 
102 
102 

124 
124 
040 
045 
045 
045 
045 
040 
040 
045 
040 
040 
045 
040 
040 
040 

000 
045 
045 
045 
045 
122 
040 
127 
124 
124 
106 
105 
045 



111 
111 
123 
106 
111 
111 
111 
111 
111 
111 

123 
123 
040 
101 
101 
101 
116 
040 
040 
116 
040 
040 
101 
040 
040 
040 



116 
101 
116 
101 
101 
040 
122 
123 
123 
101 
122 
116 



124 
124 
122 
114 
124 
124 
124 
124 
124 
124 

123 
123 
116 
040 
040 
040 
045 
125 
111 
045 
116 
111 
040 
042 
042 
042 



000 
040 
045 

040 
115 
103 
111 
125 
123 
124 
122 
045 



7$: 

8$! 

9$: 
10$ 
11$ 
12$ 
13$ 
14$ 
15$ 
16$ 



SFIERR: 
SFHERR: 

NXR; 

NXRX: 

TSSX: 

FUSI: 

USI: 

NSI: 

FNOINTR: 

NOINTRi 

IFAULT: 

INTX: 

NOINIT 

N5INIT 

BRINi: 



NUL: 

NLLCR: 

EXPGOT 

EXPGT2 

QUAD 12 

PKTRAH 

SCME: 

URTMSG: 

URTERR: 

RDERR : 

SCHERH: 

RETERR: 

NOMEM: 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.A3CIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.Ascrz 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



'BIT9' 

'BITS' 

'SSR' 

•OFL' 

'BIT5' 

•BIT4' 

'BIT3' 

'BIT2' 

'BITl' 

'BITO' 

•TSSR ERROR AFTER SOFT INIT' 

'TSSR ERROR AFTER BUS RE^ET' 

/ NON-EXISTANT DEVICE REGISTER/ 

/KA ADDRESS: i<06/ 

/i<A TSBA.TSSR EXP'D: «06<<A.»«06*N/ 

/#A TSBA.TSSR REC'D: it06«A,f(06/ 

/#NiiA/ 

/ UNtXPECTED INTERRUPT/ 

/ INTERRUPT EXPECTED, NOT RECEIVED/ 

ASCII /rt^A/ 
/ NO INTERRIJPT WAS GENERATED/ 
/ INTERRUPT FAULT/ 
/#A CPU PC: ^06*A TSBA: 406/ 
/ "BUS-INIT" DIDN'T INITIALIZE CONTROl.LErt/ 
/ "SOFT-INIT" DIDN'T INITIALIZE THE DPU/ 
/ "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

// 

/KN/ 

/liA EXP^D: *06*A, REC'D: ^06/ 

/#NKA EXP'D: #06tfA. tf06#NtfA REC'D: XOfiA. i<06/ 

/#A REGCW) WRITTEN TO: ii06i<A REGCR) READ* EXP'D: *<06*A, REC'D: f*06/ 

.ASCIZ 'RAM Cortt«nt« Do Not Match Packet Sent' 

/ CONFIG DOESN'T MATCH MFG. MASTER/ 

'WRITE CHARACTERISTICS Failed' 

•TSSR Incorrect After WRITE Command. More Bits Set Than SSR' 

'TSSR Incorrect After READ Command. More Bits Set Than SSR' 

•FATAL ERROR IN SUBTEST - CHECK TAPE, CABLES. TRANSPORT etc' 

'ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED' 

•KNfl^A ♦♦♦♦♦ NO NXM ADDRESS- -CANNOT TEST NXM TIMEOUT. ♦♦♦**KN' 



.SBTTL GLOBAL ERROR REPORT SECTION 

i ♦ • 

I THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 

i CALLS THAT ARE USED IN MORE THAN ONE TEST, 

I ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 

I -- 



NXRERR: : 



BGNMSG NXRERR 



013746 003104' 
012746 005767' 
012746 000002 



PRINTX 
MOV 
MOV 
MOV 



^XRX.NOCEV 
NODEV, -CSP) 
#NXRX,-(SP) 
02, -CSP) 



tNON-PXISTANT DEVICF REGISTER. 
(NODEV - NEXM ADDRESS. 
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TSV5 - GLOBAL AREAS MACRO Ml 113 
GLOBAL ERROR REPORT SECTION 



Ol-FEB-84 17:5-1 



SEQ 035 



005560 


010600 




005562 


104415 




005564 


062706 


000006 


686 005570 


004737 


005576' 


687 005574 






00^^574 






005574 


104423 




688 






689 






690 






691 






692 






693 






694 005576 


005727 




695 005600 


000000 




696 005602 


001402 




697 005604 


004777 


177770 


698 005610 






005610 


012746 


004520' 


005614 


012746 


000001 


005620 


010600 




005622 


1044)5 




005624 


062706 


000004 


699 005630 


000207 




700 






701 






702 






703 






704 






705 






706 






707 






708 






709 






710 






711 






712 






713 






714 






715 






716 






717 






718 






719 005632 






720 005632 






721 005636 


010104 




722 005640 






005640 


010446 




005642 


012746 


006315' 


005646 


012746 


000002 


005652 


010600 




005654 


104414 




005656 


062706 


000006 


723 005662 


010400 




724 005664 


004737 


015744- 


725 005670 


103410 




726 005672 







MOV 


SP.RO 


TRAP 


CIPNTX 


ADO 


06, SP 


JSR 


PC, EXTEND 


ENOMSG 




L10002: 





I PRINT EXTENSION IF REQUIRED. 



TRAP 



CJMSG 



I THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
; TO ANY OF THE ABOVE ERROR SIGNATURES. 



I ■ NO EXTENSION. 

I APPEND EXTENSION TEXT. 
I PRINT A BLANK LINE 



EXTEND! 


TST 


CPO* 


EXTA: 









BEQ 


1) 




JSR 


PCSEXTA 


1*: 


PRINTX 


#NULCR 




MOV 


*NULCR.-CSP) 




MOV 


Ol.-CSP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADD 


♦4.SP 




RTS 


PC 



.SBTTL PRITSSR - PRINT TSSR CONTENTS 

♦ 

ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITION*- OF 
THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED . 'iLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS: 

Rl CONTENTS OF TSSR 
SUBORDINATE ROUTINES; 

CHKAMB CHECK FOR AMBIGUOUS CONTENTS 



(SAVE GENERAL REGISTERS 
;SAVE THE TSSR CONTENTS 
(PRINT THE CONTENTS OF TSSR 



PRITSSR; 




SAVREG 




MOV 


R1.R4 


PRINTB 


tfTSSRF0R,R4 


MOV 


R4, -(SP) 


MOV 


dTSSv^FOR.'CSP) 


MOV 


02. -(SP) 


MOV 


SP.RO 


TRAP 


OPNTb 


ADO 


<^,SP 


MOV 


R4.R0 


JSR 


PC, CHKAMB 


BCS 


5$ 



PRINTX flAMBTSSH 



»G£T TSSR BACK FOR CHKAh*6 
jARE CONTENTS AMBIGUOUS ? 
I BRANCH IF NOT 
I SHOW CONTENTS ARE AMBIGUOUS 



TSV5 - GLOBAL AREAS MACRO M1U3 

PRITSSR - PRINT TSSR CONTENTS 



Ol-rEB-84 17:54 



K3 



SEQ 036 



005672 


012746 


006535' 




MOV 


#AMBTSSR,-(SP) 


005676 


012746 


000001 




MOV 


#1.-(SP) 


005702 


010600 






MOV 


SP.RO 


005704 


104415 






TRAP 


C$PNTX 


005706 


062706 


000004 




ADD 


«4,SP 


727 005712 


010403 




5$: 


MOV 


R4,R3 


728 005714 


042703 


001476 




BIG 


<>HIAD0R»FATERR! 


729 005720 


001434 






BEQ 


20$ 


730 005722 


012702 


002622' 




MOV 


0TMPBFR,R2 


731 005726 


012701 


003472' 




MOV 


OTSSRBIT.Rl 


75? 005/52 


005705 




lOi: 


TST 


R3 


733 005734 


001413 






BEQ 


15$ 


734 005736 


000241 






CLC 




755 005740 


006103 






ROL 


«3 


736 005742 


103006 






BCC 


13$ 


737 005744 


011100 






MOV 


(R1)»R0 


738 005746 


112022 




11$: 


MOVB 


CR0)*.CR2)* 


739 005750 


001576 






BNE 


11$ 


740 005752 


112762 


000054 177777 


MOVB 


*' ..-1(R2) 


741 005760 


005 7? 1 




13$: 


TST 


(RD* 


742 0O57t2 


000763 






BR 


10$ 


743 005764 


105042 




15$: 


CLRB 


-(f(2) 


744 005766 








PRINTX 


*TSSDEF.*TMPBFR 


005766 


012746 


002622' 




MOV 


*TMPBFR,-(3P) 


005772 


012746 


006506' 




MOV 


9TSSDEF,-(SP) 


005776 


012746 


000002 




MOV 


*2,-(SP) 


006002 


010600 






MOV 


SP.RO 


006004 


104415 






TRAP 


C$PNTX 


006006 


062706 


000006 




ADD 


#6,SP 


745 












746 006012 


0J0403 




20$: 


MOV 


R4,R3 


747 006014 


042703 


177761 




BIC 


*tCTERCLS,R3 


748 006020 


016303 


006576' 




MOV 


TC0C0D(R3),R3 


749 006024 








PRINTX 


0TC0ASC.R3 


006024 


010346 






MOV 


R3.-(SP) 


006026 


012746 


006376' 




nov 


*TC0ASC,-(SP) 


006032 


012746 


000002 




MOV 


#2,-(SP) 


006036 


010600 






MOV 


SP.RO 


006040 


104415 






T.-^AP 


L$PNTX 


006042 


062706 


000006 




ADD 


^>6.5P 


750 006046 


010403 






MOV 


R*»R3 


751 006030 


042703 


177717 




BIC 


#tCFATERR.R3 


752 006054 


001416 






BEQ 


25$ 


753 006056 


006203 






ASR 


R3 


754 006060 


006203 






ASP 


H? 


755 006062 


006203 






ASR 


R3 


756 006064 


016303 


007136' 




MOV 


TSFCOD(R3),R3 


757 00O070 








PRINTX 


♦TFCASC.R3 


006070 


010346 






MOV 


05. -(SP) 


006072 


012746 


006437' 




MOV 


*TFCASC,-CSP) 


0060/6 


012746 


000002 




MOV 


«2.-CSP) 


006102 


010600 






MOV 


SP.RO 


006104 


1044 in 






TRAP 


c$PNrx 


006106 


06270^'. 


000006 




ADD 


06. SP 


758 006112 


042704 


176377 


25$: 


V. iC 


*tCHIADDR,R4 


759 006116 


001411 






BFQ 


50$ 


760 006120 








PRINTX 


0TEXASC,R4 



I CONTENTS OF TSSR 
TESCLS»R3 I CLEAR ALL MULTIPLE BIT FIELDS 
iNO BITS ARE SET 



iNO BITS ARE SET 
(TEMPORARY ASCII BUFFER 
I ASCII EQUIVALENT OF BITS 
iREMAINING BITS TO CONVERT 
1 BRANCH WHEN ALL ARE DONE 
J CLEAR CARRY '"'^'^ '^^^■"-' 



, DEFINITION 
BUFFER 



ALL ARE _. 

, FOR SHIFT 

I SHIFT NEXT BIT TO CARRY 

iBRANCH IF BIT NOT SET 

iPOINTER TO BIT 

(MOVE ASCIZ TO 

(MOVE ALL BUS 

(INSERT A COMMA TO TERMINATE 

(POINT TO NEXT DESCRIPTION 

(GET THE REMAINING BITS 

(TERMINATE THE LINE 

(PRINT THE BIT DEFINITIONS 



(GET THE TSSR CONTENTS 

(CLEAR ALL BUT TERMINATION 

(GET THE 1ERMINATI0N CODE MEANING 

(PRINT THE TERMINATION: CODE 



(TSSR CONTENTS AGAIN 

(CLEAR ALL BUT FATAL TERMINATION 

(DON'T PRINT IF ZERO 



(ALINE TERMINATION CODE FOR INDEX 
(GET THE FATAL TERMINATION CODE 
(PRINT THE FATAL TERMINATION CODE 



(CLEAR ALL BUT EXTENDED ADDRESS 

(DON'T PRINT IF ZERO 

(PRINT THE EXTENDED ADDRESS BITS 



L3 
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PRITSSR - PRINT TSSR CONTENTS 



76X 
762 



753 
764 
77D 
776 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
79'J 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
806 
809 
810 
611 
812 
813 
814 
815 
816 
817 
818 
819 
820 
621 



006120 
00t>:22 
006i2C 
006132 
006134 
006136 
006142 
006146 
006146 
006150 
006154 
006156 
006160 
006164 

006166 
006256 
006315 
006335 
006376 
006437 
006506 
006535 

006576 
006616 
006641 
006667 
006711 
006731 
007013 
007062 
007106 



007136 
0C7146 
007202 
007213 
007257 



010446 
012746 
012746 
010600 
104415 
062706 
013703 

010346 
012746 
010600 
104415 
062706 
000207 

045 
045 
045 
045 
045 
045 
045 
045 



006335 
000002 



000006 
002170' 



000001 
000004 



116 
116 
116 
116 
116 
116 
116 
116 
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MOV 

MCV 

MOV 

MOV 

TRAP 

ADO 

MOV 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



30$: 



045 
045 
045 
045 
045 
045 
045 
045 



E.'^RTl: 

EPRT2: 

TSSRFOR 

TEXASC 

TCOASC 

TFCASC 

TSSDEF 

AMBTSSR 



ASCIZ 
ASCIZ 



006616' 006641' 006667' TCOCOD: 



116 
124 
124 
106 
122 
122 
125 
106 



157 
145 
141 
165 
145 
145 
156 
141 



162 II 

162 2» 

160 3$ 

156 4$ 

143 5$ 

143 6$ 

162 7$ 

164 8* 



EVEN 

UORO 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

EVEN 



007146' 007202' 007213' tsfCODi .WORD 



111 
122 
102 
122 



156 
14^ 
16-. 
145 



164 1$ 

163 2$ 

163 3$ 

163 At 



.PSCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



StQ 03V 



R4.-(SP) 

*TEXASC,-CSP) 

«'2,-CSP) 

SP.MO 

CIPNTX 

«6,SP 

EPRTSW.R3 

R3 

R3.-CSP) 

«1,-CSP) 

SP,RO 

CJPNTX 

*4,SP 

PC 



; PRINT MEAASGE BUf r£R ADDRESS 
(PRINT PROPER MESSAGE 



I RETURN TO CALLER 



'i^NiiA 

'liNtfA 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 



♦****CHeCK 
♦♦♦♦♦CHECK 



CABLES BETWEEN 
TRANSPORT^^^^^ 



M7455 AND TRANSPORT*^+** 



'i(NKA 
'#NiiA 
'#N^A 
'liN^A 

•#N#A -. 

'irfNi^A TSSR Contents Are Ambiguous' 



TSSR • *06 

Extended Address Bits * 

Terminotton Class Code 
Fatal Termination Class 
TSSR Bits Set: ^J 



ii06' 
Code 



liT 



ll,2i,3*,4$»5$,6l.7$,8J 

'Normal Termination' 
'Termination Condition' 
' Tape Status Alert' 
'Function Reject' 
'Recoverable Error - Tape 
'Recoverable Error - Tape 
'Unrecoverable Error' 
'Fatal Controller Error' 



Position One Record Down 
Wfts Not Moved' 



1*.2I.3$.4$ 

'Internal Diagnostic Failure' 

' Reserved' 

'Bus Interface or Sanity Check Error 

' Reserved' 



.SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 

IHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 



INPUT : 



RO 
R3 
R4 



NUMBER OF WORDS IN PACKET 

HIGH ORDER COMMAND PACKET ADDRESS 

ADDRESS OF COMMAND PACKET 



NOTE: R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR 



M3 
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PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 



833 
834 
835 
836 
837 
838 
839 
840 



841 
842 
843 
844 
345 
846 
84 7 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 



007270 
007270 
007274 
007276 
007302 
007304 
007306 
007310 
007312 
007314 
007316 
007316 
007320 
007322 
007326 
007332 
007334 
007336 
007342 
007344 
007346 
007350 
007354 
007356 
007360 
007562 
007362 
007364 
007366 
007372 
007376 
007400 
007402 
007406 
007410 
007412 
007414 

007416 
007454 



010005 
005737 
001001 
005003 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
012402 

010246 
010146 
012746 
012746 
010600 
104414 
062706 
005201 
020105 
002762 
000207 

045 
C45 



003124 



007454 
000003 



000010 



017220' 



007416 
000003 



000010 



116 
116 



045 
045 



PRIPKT:: 

SAVREG 

MOV 

TST 

BNE 

CLR 

10$: MOV 
MOV 
ROL 
ROL 

PRINTS 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

15$: MOV 
BEQ 
MOV 
JSR 
MOV 

20$: CLR 

25$: MOV 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

INC 

CMP 

BLT 

RTS 

PKTFRM: .ASCIZ 
PKTADD: .ASCIZ 
.EVEN 



R0.R5 

KTENABLE 

10$ 

R3 

R3,R1 

R4,R0 

RO 

Rl 

*PKTAD0.R1.R4 

R4,-(SP) 

Rl.-CSP) 

#PKTADD, -CSP) 

«,-(SP) 

SP.RO 

C$PNTB 

#10. SP 

R3,R0 

20$ 

R4,R1 

PC.SETMAP 

R0.R4 

Rl 

CR4)f.R2 

#PKTFRM,R1,R2 

R2,-(SP) 

Rl.-CSP) 

<>PKTFRM,-CSP) 

«.-CSP) 

SP.RO 

C^rMTB 

#10 "D 

Rl 

Rl.P^ 



'*N*A 



Packet 
Packet 



.SBTTL PRIBac.- 



SEQ 038 



(SAVE THE REGISTERS 

iSAVE NO. OF WORDS IN PACKET 

I ABOVE 28K UNDER TEST? 

I BR IF YES 

I SET HIGH ORDER ADDRESS TO 

I COPY HIGH ORDER ADDRESS 

J GET LOWER ADDRESS 

(SHIFT BIT 15 INTO C BIT 

(AND INTO HIGH ORDER. 

(PRINT PACKET ADDRESS 



(GET HIGH ORDER ADDRESS 

(BR IF NOT ABOVE 28K . 

(GET LOW ORDER ADDRESS 

(SETUP PAfi6 MAPPING FOR 18 BIT ADDRESS 

(GET RETURNED PAR6 ADDRESS BIAS 

(SAVE WORD NUMBER 

(GET PACKET CONTENTS 

(PRINT THE DATA 



(NEXT WORD NUMBER 
(OONE ALL PACKET WORDS? 
(Li,:^P TT' L ALL OONE 

;REU '.V 



fHi^ 



»A - liO'./ 
rf01*i05' 



M' "-KPD, REC^' M,.. ''^ tJ-r fP 



PRINT EXPECTED DATA, RECEIVED DATA, AND XU^ •" THfc DATA E \. 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT Rl^'TINHS. 



INPUTS: 



Rl 
R2 



RECEIVED DATA 
EXPECTED OATA 



OUTPUT: 



I 



N3 



T5V3 - GLOBAL AREAS MACRO M1113 Ol-FEB-84 17:54 
PRIBXOR - PRINT EXPD, RECV AND XQR BYTE 



865 
860 
867 
868 
869 
870 
871 
?72 
873 
874 
875 
876 
877 



SEQ 039 



876 
ft79 
880 
681 
882 
883 
884 
885 
686 
887 
888 
889 
890 
891 
892 
893 
894 
695 
896 
897 
898 
899 
900 
901 
90<7 
903 
904 
905 
906 
907 



007512 
007512 
007516 
007520 
007530 
007534 
007536 
00 7540 
007542 
007542 
007544 
007546 
007550 
007554 
007560 
007562 
007564 
007570 
007572 

007574 



007642 
007642 
007646 
007650 
007660 
007660 
007662 
007C64 
007666 
007^.72 
007676 



010203 

012700 
040001 
040002 
040003 

010346 
010146 
0?0240 
012746 
012746 
010600 
104414 
062706 
010300 
000207 

045 



177400 



010203 



010346 
010146 
010246 
012746 
012746 
010600 



007574 
000004 



000012 



116 



045 



1 KU 

PRIBXOR:: 


;^UH Uh tXKtLIt 


SAVREG 




MOV 


R2.R3 


XOR 


R1.R3 


MOV 


*tC<377^.R0 


BIC 


RO.Rl 


BIC 


R0,R2 


BIC 


R0,R3 


PRINTS 


*X0R8F0R,R2»R1 


MOV 


R3.-CSP) 


MOV 


Rl.-CSP) 


MOV 


R2,-CSP) 


MOV 


«XORBrOR.-CSP) 


MOV 


*4.-(SP) 


MOV 


SP.RO 


TRAP 


CJPNTB 


ADD 


«12.SP 


MOV 


R3,R0 


RTS 


PC 


XORBFOR: 


.ASCIZ 'i^NrfA 



J SAVE THE REGISTERS 
jEXPECTEO DATA 
J FORM THE EXCLUSIVE OR 
J BYTE MASK 
J SAVE LOW BYTE RECV 
I SAVE LOW BYTE EXPO 
iSAVE LOW BYTE XOR 
.R3 J PRINT THE MESSAGE 



jRO HAS XOR ON RETURN 
J RETURN TO CALLER 

i^NrfA EXPO: HOli^fK RECV: i<03i<A XOR: fli03' 



.EVEN 



■SBTTL PRIXOR - PRINT EXPD. RECV AND XOR 



PRINT EXPECTED DATA. RECEIVED DATA. AND XOR OF THE INO 
THIS ROUTINE IS NORMALLV CALLED ONLY FOR PRINl ROUTINES. 



INPUTS: 



Rl 
R2 



OUTPUT: 



RO 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



007712' 
000004 



PRIXOR: : 






SAVREG 


iSAVE THE REGISTERS 




MOV 


R2.R5 ;EXPECTED DATA 




XOR 


R1.R3 (FORM THE EXCLUSIVE 


OR 


PRINTQ 


#X0RF0R.R2.R1.R3 (PRINT THE MESSAGE 




MOV 


R3.-CSP) 




MOV 


Ri.-(SP) 




MOV 


R2. -CSP) 




MOV 


OXORFOR, -CSP) 




MOV 


«4, -(SP) 




MOV 


SP.RO 





G4 



TSV5 - GLOBAL AREAS 


MACRO Mil 13 


PRIXOR 


- PRINT 


EXPO, RECV AND XOR 




007700 


104414 






007 702 


062706 


000012 


^oa 


007706 


010300 




909 


007710 


000207 




910 








911 


007712 


045 


116 


912 








913 








914 








915 








916 








917 








918 








919 








920 








921 








922 








925 








924 








925 








926 






"" 


927 








928 


007760 






929 


007760 






930 


007764 


000207 




931 








952 








933 








934 








935 








936 








937 








938 








939 








940 








941 








942 








943 








944 








945 








946 


007766 






947 


007766 






940 


007772 








007772 


010446 






007774 


012746 


010016' 




OlOOOO 


012746 


000002 




010004 


010600 






010006 


104414 






010010 


062706 


Q00006 


949 


010014 


000207 




950 








951 


010016 


045 


116 


952 








953 








954 








955 








956. 
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SEQ 040 



TRAP CJPNTB 

ADD 012, SP 

HOV R3.R0 

RT3 PC 



iRO HAS XOR ON RETURN 
iRETURN TO CALLER 



045 



XORFORi .ASCIZ 
.EV^.N 



liNiiA EXPDi i<06*A RECVt «06*A XORj #06' 
.SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENf 



ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



INPUTS: 



RO 

Rl 



OCTAc VALUE TO CONVERT 

TABLE OF POINTERS TO ASCII EQUIVALENT 



PRIEQUs 



SAVREG 

RTS PC 



I SAVE THE REGISTERS 
iRETURN TO CALLER 



.SBTTL PRIRAM - PRINT RAM ADDRESS 



I ♦ 



iPRINT CONTROLLER RAM ADDRESS. 

iTHlS ROUriNE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES, 

I INPUTS: 

I 

I 

1 



PRIRAMj 



R4 


RAM ADDRESS 


SAVREG 




PRINTS 


MAHF0R.R4 


MOV 


R4 , - ( SO ) 


MOV 


ORAMFOR. -(SP) 


MOV 


02, (SP) 


MOV 


SP.RO 


TRAP 


CIPNT6 


ADO 


♦6,SP 


RTS 


PC 



iSAVE RI-R5 ^TIL NEXT RETURN 
jPRINT RAM ADDRESS IN ERROR 



iRETURN 

045 RAMfOR; .ASCIZ ' 1*N*A CONTROLLER RAM ADDRESS ■ *06 
.EVEN 



.S&TTL PRXAOD 



PRINT MEMORY ERROR ADDRESS 



I* 



^^5(^00 '^':°?SiN?"^i^0Rv ERe88°ABiM§s ^^--^^^-^^ 



17(54 



C4 



SEQ 041 



^57 






958 






95** 






960 






961 






962 






963 






964 






965 






966 






967 010060 






966 010060 






969 010064 


015700 


002226' 


970 010070 


013701 


002230' 


971 010074 


010102 




972 010076 


006101 




975 010100 


006100 




974 010102 






010102 


010246 




010104 


010046 




010106 


012746 


010130* 


010112 


012746 


000003 


010116 


010600 




010120 


104414 




010122 


062706 


000010 


975 010126 


000207 




976 






977 010130 


045 


116 


978 






979 






980 






981 






982 






985 






984 






985 






986 






987 






988 






989 






990 






991 






992 






995 010174 






994 010174 






995 010200 


013702 


002226' 


996 010204 


013701 


002230' 


997 






998 






999 






1000 010210 






010210 


010146 




01021? 


012746 


010256' 


010216 


012746 


000002 


010222 


010600 




010224 


104414 




0102^6 


062706 


000006 



PRINT MEHORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 

IMPLICIT INPUTS 



PRlADOi 



045 PRIi\0: 



ERRHI 


- HIGH ORDER 


CRRLO 


- LOW ORDER 


SAVREG 




MOV 


ERRMI.RO 


MOV 


ERHLO.Rl 


MOV 


R1,R2 


ROL 


Rl 


ROL 


riO 


PRINTB 


♦PRIA0,R0,R2 


MOV 


R2,-(SP) 


MOV 


RO.-CSP) 


MOV 


♦PRIAO.-(SP) 


MOV 


♦3,-(SP) 


MOV 


SP.RO 


TRAP 


C$PNTB 


ADD 


«10,SP 


RTS 


PC 


.ASCIZ 


'liNitA MEMORY 


.EVEN 





iSAVr R1-R5 UNTIL NE-XT RETURN 

I GET HIGH AOORESSS 

(GET LOW ADDRESS 

I COPY LOW ADDRESS 

iSMIFT BIT 15 TO C BIT 

I SHIFT INTO HIGH ORDER 

(PRINT MEMORY ADDRESS IN ERROR 



(RETURN 
ERROR ADDRESS • ¥01*05 



.SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



IMPLICIT INPUTS 



ERRHI 
ERRLO 



- HIGH ORDER ADDRESS 

- LOW ORDER ADDRESS 



PRXTAQDi 



SAVREG 

MOV 

MOV 

(MOV 

(ROL 

I ROL 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



ERRHI. R2 

ERRLO, Rl 

R1.R2 

Rl 

RO 

dPRITO.Rl 

Rl.-(SP) 

*PRTTC,-($P> 

♦2, -CSP) 

SP.RO 

CIPNTB 

ft6»SP 



(SAVE R1-R5 UNTIL NEXT RETURN 

(GET HIGH AOORESSS 

(GET LOW ADDRESS 

(COPY LOW ADDRESS 

(SHIFT BIT 15 TO C BIT 

(SHIFT INTO HIGH ORDER 

(PRINT MEMORY ADDRESS LOW IN ERROR 



^^!(TV:mNf^^§ORy TiP/K%^^§ °^-'^^«-«'' '"■'' 



D4 



SEQ C42 



1001 



1002 
1003 
1004 
1005 
1006 
1007 

looe 

1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
101^ 
1020 
1021 
1022 
102T 
1024 
1025 
1026 
102-' 
1026 
1029 

3o:;o 
io!;i 

1032 
1033 
1034 
1035 
102f 

r.:?7 

1056 
103** 
1040 
1041 
1042 
10^3 
1«>44 
104 :i 
104C 
104/ 
1043 
1049 
105C 
lOSl 



010232 
010232 
010234 
010240 
010244 
010246 
010250 
010254 

010256 
010321 



0.\0416 



010246 
012746 
012746 
010600 
104414 
062706 
000207 

045 
045 



010321' 
000002 



000006 



116 
116 



045 
045 



PRITO: 
PRITli 



PRINTS 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

.ASCIZ 
.ASCIZ 
,EVEN 



^RIT1.R2 

R2,-(SP) 

0PRIT1,-CSP) 

*2, (SP> 

SP.RO 

CIPNTB 

*6,SP 

PC 



I PRINT MEMORY ADDRESS HIGH IN ERROR 



I RETURN 



'*N*A MEMORY TEST ADDRESS LOW - *06' 
'iiH9if\ MEMORY TEST ADDRESS HIGH - #06 



.SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



ROUTINE TO ISSUE A SPACE RECORDS 
COMMAND (FORWARD OR REVERSE) 



INPUT: 



R3 



P5 



NUMBER OF RECORDS TO BE SPACED OVER 

BIT15 CONTROLS DIRECTION 

BIT15 ■ IS FORWARD 

BIT15 - 1 IS REVERSE 

FIRST DEVICE UNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT ; 



CARRY SET ■ SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 



RO 



THE CONTENTS OF R4 IS MOVED TO RO 



IMPLICIT OUTPUT: 

TAOE HAS BEEN MOVED 
SIDE EFFECTS: 

SPACE:: 



012737 
012757 
005705 
100403 
010537 
000407 



0'X>764 010560' 
140010 010550' 



010552 



SAVREG 




MOV 


*500. .SOELAY 


MOV 


*140010,80I 


TST 


R3 


BMl* 


51 


MOV 


R3.90$ 


BR 


10$ 



I SAVE THE GENERAL REGISTERS 

I SET UP DELAY 

I SET UP COMMAND, SPACE FORWARD 

(CHECK FOR DIRECTION 

tBR. IF REVERSE INDICATED 

I LOAD UP NUMBER OF RECORDS TO SPACE 

I GO 00 COMMAND 



E4 
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SPACE - SPACE PtECORDS (FORWARD AND r^EVERSE) COMMAND 



SEQ 043 



\0S2 
1053 
10.?4 
105*> 
1056 
1057 
105« 
1059 



1060 
1061 
1062 
1063 
1064 
?.065 
1066 
lOf.7 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
107'> 
107(. 

10 r? 

107fl 
107£* 
10(51 
1085 

low 

108^- 

10*^6 
10<i7 
1038 
1089 
1090 
10)) 
109P 
109.^ 
10-^^ 

1096 
1097 

1095 
109Q 
1100 
1101 



0*04 i>0 
010424 
010430 
010436 
010442 
010446 
010452 
010454 
010454 
010460 
010462 
010466 
010470 
0;,O474 
f.lC>476 
010502 
010504 
010510 
010512 
010514 
010520 
010524 
010526 
010530 
010532 
010534 
010536 
010540 
010540 
010S42 



010552 

Ulv554 
01055^ 
010560 



042703 
010337 
052737 
012704 
010465 
004737 
103420 

012727 
000000 
013/27 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
000411 
016501 
012702 
020201 
001401 
000402 
000261 
000401 
000241 

010400 
000207 



C105<4 



O.r0550 000000 



000000 

ocoooo 

000000 
000000 



100000 5$! 

010552' 

000400 010550' 

010550' 10$: 

000000 

016150' 15$! 



000250 

002116' 

177772 

177756 

010560 



000002 

000200 



20$: 
2^$: 

40$: 

60$: 
70$: 



BIC 

MOV 

BIS 

MOV 

MOV 

JSR 

BC5 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

BR 

MOV 

MOV 

CMP 

BEG 

BR 

SEC 

BR 

CLC 

MOV 
RTS 



*BIT15,R3 

R3,90$ 

*6IT8,60$ 

*80$,R4 

R4,TS0BCR5) 

PCWAITF 

20$ 

250 

«250.(PC)* 



L$0LY,CPC)* 



-6(PC) 

.-4 

-22CPC) 

.20 

SOELAY 

15$ 

60$ 

TSSR(R5),R1 

#SSR,R2 

R2.RI 

40$ 

60$ 

70$ 



R4,R0 
PC 



I CLEAR DIRECTION BIT 
I LOAD UP NUMBER OF RECORDS TO SPACE 
I SET REVERSE BIT IN COMMAND PACKET 
I SET UP R4 WITH PACKE^ ADDRESS 
(SEND OUT COMMAND 
iWAIT FOR SSR 
I BR, IF SSR IS SET AND OK 
(DELAY ABOUT .25 SECONDS 



(BUMP DELAY COUNTER DOWN 

I BR. IF MORE DELAY 

(BR IF TROUBLE CARRY ■ CLEAR 

I READ TSSR 

I SET UP EXPECTED 

I ARE THEY OK 

(BR, IF EQUAL - OK 

(TROUBLE EXIT 

(SET CARRY NO TROUBLE 

(EXIT 

I CARRY CLEAR « ERROR 

;PASS PACKET ADDRESS 
(RETURN 



; PACKET FOR SPACE COMMAND 



.BLKB 10-<.-TSV267> 



t 



iCOMMANO WORD 



80$: 
I NUMBER 
90$: 



SDELAY: 



.WORD 

OF RECORDS 

.WORD 

.WORD 

.WOPO 

.WORD 

.EVEN 



TO BE SPACED OVER WORD 







(DELAY COUNTER 



.SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 



I » 



(ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
(COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 

( INPUT : 



F4 



TSV? ■ GLOP.'H AReAS MACRO Mil 13 
WHTCHR - WRITE CHARACTERISTICS COMMAN 



11C4 
llOS 
1106 
1107 
1108 
1109 
1110 
1111 

\y\d 

1113 
U14 

ins 

1116 

in? 
ma 

1119 
li.?0 

lic'i 

IWc: 
1123 
IKM 
112'-. 
1126 
11^7 

ilL:i5 
11P9 

1130 
1131 
ll.-^.> 

HIT 



NO 



-FEB-84 17:54 



SEQ 044 



R4 ADDRESS OF PACKET FROM TEST 
R5 FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT : 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 

SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA - EXTENDED FEATURES PRESENT 
BENBSW - BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



1V6A 



oio"".-/;* 

OlCliVt 

010602 
OIGCD^ 
01'J^.\0 
01061? 



11 J*:. O'.OGj/j 



1136 

1137 

lliV 
ll-'O 

i'4:. 

HAS 
1K4 

114C 

xvvr 
114a 

1149 
3150 

ll^il 

115? 
ll'?^^3 
IIM 

115*5 
1156 

115V 

1158 
il59 



C; JfvSO 

oiorri 

I.MCX4 

01'..f ''^o 
'.0 0€j5C 
OlOf'h 
1^10660 
OH:?;-.'^ 
0!'>:Vh4 
0i06->t' 

o:o<".74 

Ol07on 
010 /o; 

OlO^O". 
OlOVt;,- 

oicvia 



005037 
005037 
010465 
004737 
103401 
000455 
016501 
012702 
032701 
001402 
052702 
0'?020l 
001401 
000421 
062704 
011403 
052763 
001402 
005237 

032763 
001402 
005237 

000261 
000401 
000241 
016500 
000207 



002220' 
002216' 
000000 
016236- 



000002 
000200 
000100 

000100 



000010 

000200 000012 

002216' 

000100 000012 

002220' 

000002 



WRTCHR: 



10$ 



20$ 



25$ 



40$ 



45$ 



50$ 



60$ 
70$ 



SAVREG 

CLR 

CLR 

MOV 

JSR 

6CS 

BR 

MOV 

MOV 

BIT 

BEQ 

BIS 

CMP 

BEQ 

BR 

ADD 

MOV 

BIT 

BEQ 

INC 

BIT 
BEQ 
INC 

SEC 
BR 

CLC 
MOV 
RTS 



BENBSW 

EXTFEA 

R4,TSDBCR5) 

PC.CHKTSSR 

20$ 

601 

TSSR(R*:>),R1 

«SSR,R2 

*0FL.R1 

25$ 

«)FL,R2 

R2.R1 

40$ 

60$ 

#8. .R4 

(R4) R3 

*X2.EXTF.X5T2CR3) 

45$ 

EXTFEA 



I SAVE THE GENERAL REGISTERS 
(CLEAR BUFFER ENABLE SWITCH 

I CLEAR EXTENDED FEATURES SW SWITCH 

(SEND OJT COMMAND 

iWAIT FOR SSR 

iBR. IF SSR IS SET AND OK 

I BR IF TROUBLE CARRY - CLEAR 

J READ TSSR 

(SET UP EXPECTED 

J WAS OFF LINE SET IN TSSR 

iBR. IF NO OFL SET 

I MAKE THEM LOOK ALIKE 

(ARE THEY OK 

;BR. IF EQUAL " OK 

(TROUBLE EXIT 

(POINT TO WRT CHARA DnTA PACKET 

J GET ADDRESS OF MESSAGE BUFFER 

(EXTENDED FEATURES BIT SET? 

;BR IF NO 

(SET EXTENDED FEATURES SW SWITCH 



0X2. BUTE, XST2(R3) 

50$ 

BENBSW 



70$ 

T5SRCR5).R0 
PC 



(BLFFER ENABLE SWITCH SET 
(BR. IF SWITCH NOT SET 
(SET SOFTWARE SWITCH FOR ENABLED 

(SET CARRY NO TROUBLE 

(EXIT 

(CARRY CLEAR - ERROR 

(RETURN TSSR CONTENTS 

(RETURN 



.SBTTL REWIND 



POSITION TAPE (REWIND) COMMAND 



G4 



ISV? - CLOB;^*. AKFrtS 

REWINC - POSITION TAPE (REWIND 



1160 
1161 

1165 
1V64 
1165 
1166 
1167 
1168 
116^ 
1170 
1171 
1172 
1173 
11/4 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1186 
1139 
1190 
1191 
119? 
1193 
1194 



MACRO M1113 ,_ 
) COMMAND 



,8, 



1 -FEB -84 17:54 



SEQ 045 



119S 
1196 
1197 
1198 
11^» 
li?00 
1201 
1203 
120'-; 
1206 
3 20? 
1208 
1209 
1210 



010711; 

01071'. 
010/20 
010721 

010?3(J 

01073-': 

0107'"^ 

oiova;> 

OlOV^t- 
01075C 

0107',') 

0107'S.; 

03 07(V 
01076'! 

010 ^■'. 

0U)7/" 
Oll'.VWj 

oiioo> 



Olloi'i 
OU0\ ' 

oiiot*; 
OllOl^ 



012704 
010465 
012703 
004737 
103417 

012727 
000000 
013727 
000000 

005567 
001375 
005367 
001.^67 
ro:.A03 
001357 
00O241 
010400 
000207 



102010 
000000 



THIS ROUTINE WILL REWIND THE SELECTED TAPE. 

CAUTION: THE ROUTINE DOES NOT WAIT FOR BQT 

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE: 

DO A SOFT INIT 

DC A WRITE CHARACTERISTICS 

JSR PC, REWIND 



INPUT: 



OUTPUT 



R5 



RO 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



011010' 
000000 
000550 
016150- 



000372 
002116' 
177772 
17V756 



REWIND: 


* 
"SAVREG 






MOV 


^WPACK,R4 




MOV 


R4,TS0B(R5) 




MOV 


*360. ,R3 


10$: 


JSR 


PC.WAITF 




BCS 


201 




DELAY 


250. 




MOV 


*250..CPC)* 




.WORD 







MOV 


LiDLY.CPO* 




. WORD 







DEC 


-6(PC) 




BNE 


.-4 




DEC 


-22(PC) 




BNE 


. -20 




DEC 


R3 




BNE 


10$ 




CLC 




20$: 


MOV 


R4,R0 




RTS 


PC 



(SAVE R1-R5 UNTIL NEXT RETURN 

iGET PACKET ADDRESS 

I SEND PACKET MDDRESS TO EXECUTE 

iLNOUGH TIME FOR 2400' REEL TO REWIND 

;WAIT FOR SSR TO SET 

iLEAVE WHEN SSR IS SET 

iWAIT FOR .25 SECONDS 



RWPACKi 



.BLKB 10-<. -TSV2S7> 



.WORD 
.WORD 



102010 




I BUMP COUNTER Du'>^N 

I KEEP GOING 

I CLEAR CARRY TO SET ERROR 

I PASS THE PACKET ADDRESS 

(RETURN 



I POST ION COMMAND (REWIND) 
I NOT USED 



.SBTTL CKRAM - COMPARE RAM TO I/O PACKET 



1-14 



T?V5 ' GLOliAi. ARKAS 
CK«AH - COHPAflE RAM 

mi 
i2ir. 

1216 

.\21? 
1216 
1PA9 

1521 

1223 
12^4 
1225 
1226 
122V 
1228 
1229 
1230 
1231 
1232 
1233 
123^. 
123S 

1236 
1237 
1238 
1239 
1240 
1241 
1242 
1245 
1244 
1245 
1246 
1247 
1240 
1249 
12S0 
12?1 
12i2 
1253 
1254 
12S5 
1256 
125/ 
12bft 
125 9 
126v) 
1261 
126? 
1?63 
1264 
!.'.>*> ^ 

icich 

1267 



MACRO M1113 
TO I/O PACKET 



01 -FEB -64 17:54 



SEQ 046 



01 J or A 
0U014 
0i.]02«*! 
0UO^4 
0110^0 
011032 

oiro^o 

011C'A4 
011050 
011054 

oiif>6a 

01ir>64 

().riGf,6 
01 10 ;o 

OllC/:^ 
O.LlO?4 

otM;x> 

OU302 
Ci) 104 
oil Vlif 

oil' I ■• 

OiiU^! 
Ollj.22 



012701 
012702 
005003 
004737 
112765 
004737 
010265 
0C4737 
116511 
122124 
001401 
005203 
005202 
020227 
003761 
i>05703 
001402 
000241 
000401 
000261 
012737 
000207 



ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET, 



INPUT: 



R4 
R5 



OUTPUT : 



CARRY 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 

SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAMi 



002232' 
000201 

016236 
000000 
016236 
000000 
016236 
000000 



000210 



000000 



000010 002272 



I SAVE THE GENERAL REGISTERS 

(ADDRESS TO SAVE THE RAM DATA 

iBYTE ADDRESS OF FIRST RAM DATA 

» CLEAR THE ERROR FLAG 

I WAIT FOR SSR 

I SET MAINTENANCE MODE 

iWAIT FOR SSR TO SET 

(SELECT NEXT RAM ADDRESS 

iWAIT FOR SSR TO SET 

I READ THE RAM DATA 

iCOMPARE TO EXPECTED 

(BRANCH IF OK 

(SET ERROR FLAG 

(ADDRESS OF NEXT RAM LOCATION 

(REACHED END YET ? 

(BRANCH TILL ALL READ 

(UAS AN ERROR FOUND ? 

(BRANCH IF NOT 

(CLIAR CARRY TO SHOW ERROR 

(AND EXIT 

(SHOW GOOD COMPARE 

(SETUP RAMSIZ FOR PRAMPKT ROUTINE 

(RETURN 



.SBTTL CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 





SAVREG 






MOV 


«PAM0ATA.R1 




MOV 


#RMPKTBEG.R2 




CLR 


R5 




JSR 


PCCHKTSSR 




MOVB 


<K),TSDB(R5) 


10$: 


JSR 


PCCHKTSSR 




MOV 


R2.TSDB(R5) 




JSR 


PCCHKTSSR 




MOVB 


TSBA(R5).(R1) 




CMPB 


(Rl)f.(R4)f 




BEQ 


204 




INC 


R3 


20$: 


INC 


R2 




CMP 


R2.0RMPKTEND 




BLE 


10$ 




TST 


P3 




BEQ 


30$ 




CLC 






BR 


50$ 


30$: 


SEC 




50$: 


MOV 


08. .RAMSIZ 




RTS 


PC 



14 



SV3 - GLOBA'. ARi:A5 MACRO M1113 Ol-rEB-84 17:54 
CKRAMJ - COMPARt RAM TO I/O CHARACTERISTICS DATA 



SEQ 047 



1268 
1869 

3 370 
1271 
1^7^ 
127?; 
127*1 
127? 
1276 
1277 
1278 
12-'; 
1280 
128?. 

128:; 

3 234 

l2flS 

1286 

1287 

1280 

138*^ 

12^*. 

1291 

1292 

1295 

12'V) 

12-?€ 
1297 
1298 
12)9 
130.'; 
1301 
1302 
1303 
130^ 
1305 
1306 
1307 
1308 
1309 

ino 

1. 1 
I3i.<? 
1315 
1314 
1315 
1316 
1317 
1518 
1319 
1320 
1521 
1 5v-:!2 
1323 
1324 



0iU.>I 
01 U/-" 
01 J.l/.,: 
OU15.4 
011140 
0111>J 
ClK4o 

otriv, 

OlJl^O 
0Ut6 ! 

oi);.7o 

0111 .". 
01 il/.. 

Ol^rlvKl 
011.-?('.^ 

oii2.:m 

Oil-^J- 

oii:!v> 
oil, , 

0112.^t. 
OllrV^-' 
0112^4 
0112^6 

oii::.U' 

011c4a 

01124^. 
0112S0 
011.^^)2 
OIl^S-*, 
0112^6 



oi;-7oi 

0»2702 
OOS003 
004737 
112765 
004737 
010265 
0<*4757 
3 10511 
122124 
001401 
005203 
005202 
Olr'737 
00^.737 
001407 
012737 
020227 
003750 
':>OO403 
02022 ? 
003744 
00^703 
001402 
000241 
000401 
000261 
000207 



002232' 
000167 

016236' 

000000 000000 

016236' 

000000 

016236' 

OOOOOC 



000010 002272' 
002216' 

000012 002272' 
000200 



000176 



iROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 

: MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 

1 INPUT! 

J 

1 

I OUTPUT; 



R4 
R5 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



CARRY 



t 

1 IMPLICIT OUTPUT: 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM. 

RAMSIZ IS SET TO 6. OR 10. FOR PRAMPKT ROUTINE 



;SIDE EFFECTS: 

I THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



* 

I - 



CKRAM2: • 



"^EG 



! i'' 



10$: 



20$: 



25* 

27$ 



30$: 
50$: 



novB 

JSR 
MOV 
JSR 
MOVB 

criPB 
BEQ 

INC 

INC 

MOV 

TST 

BEQ 

MOV 

CMP 

BLE 

BR 

CMP 

BLE 

TST 

BEQ 

CLC 

BR 

SEC 

RTS 



«RAM0ATA,R1 

*RMCH6EG,R2 

R5 

PC.CHKTSSR 

<K)»T50B(R5) 

PC.CHKTSSR 

R2,TS0BCR5) 

PC.CHKTSSR 

TSBA(R5).(R1) 

(R1)*,CR4)* 

20^ 

R3 

R2 

08. .nAMSI2 

EXTFEA 

25$ 

010. .RAMSIZ 

R2 . ORMCHEND 

10$ 

27$ 

R2. ORMCHEND -2 

10$ 

R3 

30$ 

50$ 

PC 



SAVE THE GENERAL REGISTERS 

ADDRESS TO SAVE THE RAM DATA 

BYTE ADDRESS OF FIRST RAM DATA 

CLEAR THE ERROR FLAG 

UAIT FOR SSR 

SET MAINTENANCE MODE 

WAIT FOR SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOR SSR TO SET 

READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 

ASSUME EXTFEA NOT SET 

IS THE SOFTWARE EXTENDED FEATURES SET 

BR, IF NOT SET 

SET RAMSIZ FOR EXTEND FEATURES 

AT END OF EXTENDED BUFFER 

BR, IF NOT AT END YET 

AT END BRANCH 

REACHED END YET ? 

BRANCH TILL ALL READ 

WAS AN ERROR FOUND ? 

BRANCH IF NOT 

CLEAR CARRY TO SHOW ERROR 

AND EXIT 

SHOW GOOD COMPARE 

RETURN 



J4 



iSV.^ - .CBMl. ARtAS MACHO M1113 01-FE8-84 17:54 
CKhhb COMPAHt WRXTF. CHAR. MESSAGE BUFFERS 



SEQ 048 



ir.? 
).?.?■'* 

15. V 

15-.;? 

U>.4 
5 5 ■/.' 
1?'.6 
lJo7 

i:v.' 
ir. ! ) 
r:- ■ 
i:v., 
i.v:-: 

1? , 

1j.;s 

i.^si 
1J5-: 

1.^5? 

i:ir.'^ 

155b 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
137? 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 



011260 
^:M2^0 
0.', i:'(:4 

01130^' 
01130c 
0ilo06 
011310 
01131? 
011514 
011316 
01132? 
0H326 
011330 
01133? 
011354 
011340 
011544 
011346 
011354 
011356 
011362 
011364 
011366 
011370 
01137? 
011574 
011376 



0V003" 
5 ' .) \ c- ,' 
0' /;■."/ 3/ 
OOi.403 
004737 
OlOOOi 
0050C4 
00500? 
010205 
011?64 
011164 
022221 
001401 
005203 
062704 
020427 
005764 
032765 
001403 
020427 
003755 
005705 
001402 
000241 
000401 
000261 
000207 



.SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 



ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPO AND RECV 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



OUTPUT: 



RO 
Rl 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOU ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY SET - MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMPG 
RCVHIADD 
RCVLOADD 



B'JFFER IS SET TO EXPO DATA 

Bof FER IS SET TO RECV DATA 

SET TO HIGH ORDER ADDRESS OF RECV 

SET TO LOW ORDER ADDRESS OF RECV 



CKMSG 



002274 
002276 
003124 

017220 



002312 
002456 



000002 

000014 

000200 000012 
0000X6 



10$: 
15$: 

25 J: 



50$: 



55$: 
60$: 



•JAVREG 

MOV 

MOV 

TST 

BEQ 

JCR 

MOV 

CLR 

cm 

MOV 

MOV 

MOV 

CMP 

BEQ 

INC 

ADD 

CMP 

BLE 

BIT 

BEU 

CMP 

BLE 

TST 

BEQ 

CLC 

BR 

SEC 

RTS 



RO. RCVHIADD 

Rl.RCVLOAD 

KTENABLE 

10$ 

PC.SETMAP 

RO.Rl 

R4 

R3 

R2,R5 

CR?).EXPMSGCR4; 

(R1).RECMSG(R4j 

(R2)*,(R1)» 

25$ 

R3 

*2,R4 

R4.C14 

15$ 

0X2.EXTF,XST2CR5 

50$ 

R4.016 

15$ 

R3 

55$ 



60$ 
PC 



.wJTTL CKMSG2 



SAVE R1-R5 UNTIL NEXT RETURN 
SAVE RECV HIGH ADDRESS 
SAVE RECV LOW ADDRESS 
TESTING ABOVE 2eK? 
BR IF NO 

RETURN ADDRESS BIASLO TO PAR6 IN RO 
GET RETURNED ADDRESS BIASED TO PAR6 
WORD IN BU^FER 
CLEAR ERROR SEEN Ft. AG 
GET E^PO BUffflR AODHEbS 
SAVE EXPO FOR ERROR REPC^PT 
SAVE RC.CV rOR ERROR REPORT 
EXPD EQUAL RECV? 
BR IF YES 

StT ERROR SEEN FLAG 
POINT TO NEXT WORD AOOKFSS 
DONE FIRST 7 WORDS? 
BR IF NO 

),IS EXTENDEO FEATURES SET IN tXPD? 
BR IF NO 

DONE EXTENDED FEATURES WORD? 
BR IF NO 

ANY ERRORS SEEN? 
BP IF NO 
SET FAILURE 

SET SUCCESS 
RETURN 



COMPARE EXPD RECV MESSAGE BUFFERS 



I<4 



TSV3 - GLOBAL AREAS 


MACRO Ml 113 


01 -FEB -84 


17:54 




CKMSG^ 


- COMPARE EXPD 


RECV MESSAGE 


BUFFERS 






1382 








J ♦ 






1383 














1384 








1 ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 


1385 








|B>JFFER 


. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 


1386 








(ERROR 


PRINT ROUTINES. 


1387 














1338 








\ INPUT : 






1389 














1390 










RO 


RECV MESSAGE BUFFER HIGH ORDER ADORE? 


1391 










Rl 


RECV MESSAGE BUFFER LOW ORD£R ADDREL. 


139? 










R2 


EXPD MESSAGE BUFFER ADDRESS 


1393 










R3 


NUMBER OF BYTES TO COMPARE 


1394 














1395 








IcUTPUT 


: 




1396 














1397 










CARRY 


SET - MESSAGE BUFFERS MATCH 


1398 












CLR - MESSAGE BUFFERS DON' T MATCH 


1399 














1400 








J IMPLICIT OUTPUT! 


1401 














1^02 










tXPMSG 


BUFFER IS SET TO EXPD DATA 


1403 










RECMSG 


BUFFER IS SET TO RECV DATA 


1404 








» 


RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 


1405 








» 


RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 


1406 








! 






1407 








• " 






1408 


011400 






CKMSG2: 


• 
• 




1409 


011400 








SAVREG 


(SAVE R1-R5 UNTIL NEXT RET'JHN 


1410 


011404 


030327 


000144 




CMP 


R3,#RECMSG-EXPMSGiOS0 IS COUNT ABOVE MAX ALLOWED? 


1411 


011410 


003412 






BLE 


51 iQSO BR IF NO 


1412 


0114i2 


012703 


000144 




MOV 


0RECMSG-EXPMSG.R3|8aO 


1413 


011416 








PRINTF 


*OEBUGMSG 1 SOD 




011416 


012746 


011532' 




MOV 


<K)EBUGMSG,-CSP) 




011422 


012746 


000001 




MOV 


*1»-(SP) 




011426 


010600 






MOV 


SP.RO 




011430 


104417 






TRAP 


CIPNTF 




011432 


062706 


000004 




ADD 


*4,SP 


1414 


011436 


010037 


002274' 


5*: 


MOV 


RO, RCVHIADD (SAVE RE^V HIGH ADDRESS 


1415 


011442 


010137 


002276' 




MOV 


Rl.RCVLOAD (SAVE RE^V LOW ADDRESS 


1416 


01144b 


005737 


003124' 




TST 


KTENABLE (TESTING ABOVE 2BK? 


1417 


011452 


001403 






BEQ 


10$ ;BR IF NO 


1418 


011454 


004737 


017220' 




JSR 


PC.SETMAP (RETURN ADDRESS BIASED TO PAR6 IN RO 


1419 


011460 


010001 






MOV 


RO.Rl (GET RETURNED ADDRESS BIASED TO PAR6 


1420 


0U462 


005004 




10$; 


CLR 


R4 (WORD IN BLfFER 


1421 


011464 


005005 






CLR 


R5 (CLEAR ERROR SEEN FLAG 


1422 


011466 


111264 


002312' 


15$ i 


MOVB 


(R2).EXPMSG(R4) (SAVE EXPD FOR ERROR REPORT 


1425 


011472 


111164 


002456' 




MOVB 


CR1).RECMSGCR4) (SAVE RECV FOR ERROR REPORT 


1424 


011476 


122221 






CMPB 


CR2)*.CR1)* (EXPO EQUAL RECV? 


1425 


011500 


001401 






BEQ 


25$ (BR IF YES 


14.^6 


01150? 


005205 






INC 


R5 (SET ERROR SEEN FLAG 


14^^7 


011504 


062704 


000001 


25$ J 


ADD 


#1,R4 (POINT TO NEXT BYTE 


1428 


011510 


020405 






CMP 


R4.R3 (DONE ALL BYTES? 


1429 


011512 


002001 






BGE 


50$ (BR IF ^ES 


1430 


011514 


000764 






BR 


15$ (DO NEXr BYTE 


1431 


011516 


005705 




50$: 


TST 


R5 (ANY ERRORS SEEN? 


1432 


0115^0 


001402 






BEQ 


55$ (BR IF NO 


1433 


011522 


000241 






CLC 


(SET FAILURE 



SEQ 049 



L.4 



TSV3 - GLOBAL AREAS MACRO H1113 Ol-FtB-84 17:54 
CKMSG^ COMPARE EXPO RF.CV MESSAGE BUFFERS 



SEQ 050 



1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 

1461 
1462 
14e3 



1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 

1477 
1478 
1479 
1480 



1481 
1462 
1483 
1484 



011524 
011526 
011530 

011532 
011622 
011633 
011666 
011721 



011734 
011734 
011734 
011740 
011744 
0117A4 
011744 



011746 
011746 
011746 
011752 
011756 
011762 
011762 
01176iil 



000401 
000261 
000207 

120 
045 
040 
056 
124 



122 
116 
040 
056 
105 



117 
045 
124 
056 
123 



004737 
004737 



104423 



005632 
017104 



004737 
012700 
004737 



104423 



005632' 

000004 

007270' 



55$: 
60$: 



BR 

SEC 

RTS 



60* 
PC 



I SET SUCCESS 
I RE TURN 



DEBUGMSG: 
FERCM: .ASCII 
ERCM: .ASCIZ 
SIMSG: .ASCIZ 
TINERRj .ASCIZ 
.EVEN 



.ASCIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED- ' ;5)5)D 

/liNiiA ***/ 

/ TSSR ERROR CODE REC'D - / 

/■ AFTER DOING SOFT INIT/ 

/TEST: ,../ 



PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
INPUT : 

Rl CONTENTS OF TSSR AT ERROR 
SIDE EFFECTS: 

EXECUTES DROP UNIT TO CEASE TESTING 



SFIMSG: : 



BGNMSG SFIMSG 



L10003: 



i • 



JSR 
JSR 
ENDMSG 

TRAP 



PC.PRITSSR 
PC.CKDROP 



CIMSG 



(PRINT CONTENTS OF TSSR REGISTER 
;DROP UNIT, IF ALLOWED 



[PRINT ROUTINE TO PRINT THE CONTENTS OF 

;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET 



(INPUTS; 



; 

; 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



BGNMSG PKTSSR 



PKTSSR; ! 




JSR 


PC.PRITSSR 


MOV 


04, RO 


JSR 


PC.PRIPKr 


ENDMSG 




L 10004: 





(PRINT THE CONTENTS OF TSSR REGISTER 

iNO. OF WORDS IN PACKtT 

(PRINT THE CONTENTS OF COMMAND PACKET 



TRAP 



C$MSG 



I * 



(PRINT ROUTINE TO PRINT THE CONTENTS OF 
(TSSR AND A GET STATUS COMMAND PACKET. 



M4 



TSV3 - GLOBAL AREAS MACRO Mill; 
CKMSG^ - COMPARE EXPD RFXV MESSAGI 



1485 
1466 
1487 
1488 
1489 
1490 
1491 
1492 
1493 



^>hm-'' '"•^' 



SEQ 051 



i 



INPUTS: 



1494 
1495 
1496 
1497 



1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 

1510 
1511 



1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 

1528 
1529 
1530 
1531 
1532 



011764 
011764 
011764 
011770 
011774 
012000 
012000 
012000 



012002 
012002 
012002 
012006 
012006 
012006 



012010 
012010 
012010 
012014 
01201b 
012020 
012024 
012024 
012024 



004737 005632' 
012700 000002 
004737 007270' 



104423 



Rl 
R4 



BGNMSG 

PKTGETS: : 

JSR 
MOV 
JSR 
ENDMSG 

LI 0005; 

TRAP 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



PKTGETS 

PC.PRITSSR 

ft2.R0 

PC.PRIPKT 



C$MSG 



iPRINT THE CONTENTS OF TSSR REGISTER 
iNO. OF WORDS IN GET STATUS PACKET 
t PRINT THE CONTENTS OF COMMAND PACKET 



PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



004737 005632' 



104423 



SFFMSG:: 



L 10006: 



EGNMSG SFFMSG 

JSR PC.PRITSSR 
ENDMSG 



(PRINT CONTENTS OF TSSR REGISTER 



TRAP 



C$MSG 



.SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
BUFFER FOR ERROR REPORTS 



INPUTS: 



Rl CONTENTS OF TSSR 

R2 LOW ORDER MESSAGE DUFFER 

R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

NOTE- R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 



004737 005632' 

010200 

010301 

004737 014142' 



104423 



PKTMES 5 



BGNMSG PKTMES 



L10007: 



JSR 

MOV 
>0V 
..SR 
ENDMSG 

TRAP 



PC.PRITSSR 
R2.R0 
R3,R1 
PC.PRMESS 



C$MSG 



(PRINT CONTENTS OF TSSR 
I LOW ORDER ADDRESS 
(HIGH ORDER ADDRESS 
i PRINT THE MESSAGE BUFFER 



N4 



TSV3 - GLOBAc AREAS MACRO M1113 Ol-FEB-84 17:54 
PKTHES - PRINT TSSR AND MESSAGE BUFFER 



SEQ 052 



1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 

1548 
1549 
1550 
1551 



1552 
1553 
1554 
1555 
1556 
1557 
1550 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 

1567 
1568 
1569 
1570 
1571 



1573 
1574 
1575 
1576 
1577 
1578 
1579 

i5ao 

1581 
1582 
1583 



012026 
012026 
012026 
0120->2 
012036 
012042 
012042 
012042 



012044 
012044 
012044 
012050 
012054 
012056 
012062 
012066 
012066 
012066 



.SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 

i^RINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A MEMORY TEST ADDRESS 



INPUTS: 



R5 FIRST DEVICE UNIBUS ADDRESS 
ERRHI HIGH ORDER MEMORY TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 



004737 010174 
016501 000002 
004737 005632 



104423 



ADDSSR : 



L.I 0010: 



BGNMSG ADDSSR 



JSR 
MOV 
JSR 
ENDMSG 

TRAP 



. C.PRITADD 

TSSR(R5).R1 

PC.PRITSSR 



CJMSG 



(PRINT MEMORY TEST ADDRESS 

(GET CURRENT TSoR 

iPRINT THE CONTENTS OF TSSR REGISTER 



.SBTVL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 



PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 

IMPLICIT INPUTS: 

EXPMSG EXPECTED MESSAGE BUFFER 

REChSG - RECEIVED MESSAGE BUFFER 

RCVHIAOO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



BGNMSG MSGEXP 



012700 000007 

005737 002216' 
001402 

012700 000010 

004737 014452' 



104423 



MSGEXP: 


J 






MOV 


07. RO 




TST 


EXTFEA 




BEQ 


5$ 




MOV 


08. .RO 


5$: 


JSR 
ENDMSG 


PC.PRMSGEXP 


LlOOll: 








TRAP 


C$MSG 




.SBTTL 


riFEXP - P 



(ASSUME NO EXT FEATURES 

(EXT FEAT'JRES SET? 

iBR IF NO 

tEXT FEAT'JRE BUFFER IS 8 WORDS 

(PRINT EXPO/RECV MESSAGE BUFFERS 



- PRINT FIFO EXP/RECV DATA 

♦ 

PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 

Rl - BYTE COUNT 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MEi:SAGE BUFFER (CONTAINS FIFO DATA ONLY 



E 



y5 



TSV3 - GLOBAL AREAS MACRO M1115 
FIFEXP - PRINT FIFO EXP/RECV DATA 



Ol-FEB-a4 17t54 



SEQ 053 



1584 
1535 
1586 

1587 



1588 



1589 
1590 
1591 



1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 

1610 
16U 
1612 
1613 



012070 
012070 
012070 
012070 
012072 
012076 
012102 
012104 
012106 
012112 
012112 
012116 
012122 
012124 
012126 
012132 
012134 
012140 
012140 
012140 
01 -.1*12 
012211 



1614 
1615 
1616 

1617 



1619 



012250 
012250 
012250 
012254 
012256 
012260 
012260 
012262 
012266 
012270 
012272 
012276 
012300 
012304 
012310 
012310 

oiasio 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
010100 
004757 



104423 
045 

045 



RECMSG 



I - 



FIFEXP: 



RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
BGNMSG FIFEXP 

iPRINT BYTES TRANSFERRED 



012142- 
000002 



000006 

012211 
000001 



000004 
015022 



116 

116 



045 
045 



L 10012: 

FIFIMSG: 
F1F2MSG: 



Pf IN TX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

hOV 

MOV 

TRAP 

ADD 

MOV 

JSR 

ENDMSG 

TRAP 



WIFIMSG.RI 

R1,-(PP) 

#FIF1MSG.-CSP) 

#2.-(SP) 

SP.RO 

CiPNTX 

#6,SP 

♦FIF2MSG 

*FIF2M5G,-(SP) 

01. -(SP) 

SP.RO 

CIPNTX 

♦4»SP 

Hl.RO 

PC.PRBYTEXP 



I PRINT HEADER MSG 



iGET BYTE COUNT 

iPRINT FIFO BITES IN ERROR 



.EVEN 



CIMSG 

.ASCIZ '*NKA NUMBER OF BYTES TRANSFERRED - #02' 

,ASCIZ 'f«N«A FIFO DATA BYTES IN ERROR; ' 



.SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



IMPLICIT INPUTS: 



EXPMSG - EXPECTED MESSAGE PIJFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIAOO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012701 012312- 

012100 

001410 

010046 

012746 000001 

010600 

104415 

062706 000004 

000766 

0127OO 0000(2 

004737 014A^2' 



104423 



MSGSTAT: 
10$: 



BGNMSG MSGSTAT 



20 « 



L100131 



MOV 

MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

MOV 

JSR 

ENOMSG 

TRAP 



•STATCOO.Rl 

(Rn».RO 

201 

RO 

RO. (SP) 

01, (SP) 

SP.RO 

CIPNTX 

04. SP 

10» 

010. .RO 

PC.PRMSGEXP 



cmsQ 



(ASCII ADDRESS TABLE 
I DONE ALL MSG LINES? 
iBR IF YES 
iPRINT STATUS BIT NAMES 



iDO ANOTHER MSG LINE 

iNUMBER OF WORDS IN A READ STATUS BUFFER 

I PRINT EXPD/RECV MESSAGE BUFFERS 



.!.i^iTAT^':°^e'tNf i?^Tus MiH m'ks^km(j?hhv-^' 



C5 



SEQ 054 



iei9 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1626 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 

1643 
1644 
1645 
1646 



012312 
012330 
012372 
012463 
012554 
012645 
012707 



164 7 
164B 
1649 
1650 



1651 
1652 
16S3 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 



012764 
012764 
012764 
012770 
012772 
012774 
012774 
012776 
013002 
013004 
013006 
013012 
013014 
013020 
013024 
013024 
015024 

013026 
013046 
013121 
013220 
013317 
013416 
013515 
013614 



012330' 
045 
045 
045 
045 
045 
045 



012372 
116 
116 
116 
1J6 
116 
116 



012701 013026' 

012100 

001410 

010046 

012746 000001 

010600 

104415 

062706 000004 

000766 

012700 000012 

004737 014452 



104423 

013046' 
045 
045 
045 
045 
045 
045 
045 



013121 
116 
116 
116 
116 
116 
116 
116 



012463' 
045 
045 
045 
045 
045 
045 



013220 
045 
045 
045 
045 
045 
045 
045 



STATCODi 



3$ 

4$ 
5» 
6$ 



CIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



.WORD 
KNitA Tap* 
*N#A 
#M^A 

4Ni<A Tap« 
itNKA 



1$.2I.3I.4$,5>.6$|0 
Bus Signal* in Word ^S: 

PARERR<15> 

IflESV2<l4> 

IRESV1<13> 
Bu« Signals 

DATMIS<7> 



lEOT <12> 

II0ENT<11> 

ICER <10> 

in Word #9j' 

ILW<6> 0UTRDY<5> 



IFMK <9> 

IHER -e^ 
ISPEeD<7> 



IRDY<6> 
I0NL'5> 
ILDP<4> 



IRW0<2>' 
IFBY'1>' 
IFPT<0>' 



INR0Y<4> 



.EVEM 



.SBTTL MSGLOOP • PRINT UUOPBACK HEADER AND MESSAGE BUFFERS 

* 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS: 

EXPMSO - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE DUFFER 

RCVHIAOD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADO- RECEIVED MESSAGE BUTFER LOW ORDER ADDRESS 



MSGLOOPi 
105: 



BGNMSG MSGLOOP 



201: 



L 10014: 



MOV 

MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

MOV 

JSfl 

ENOMSG 



OLOOPCOO.Rl 

<R1)»,R0 

20$ 

RO 

RO,-(SP) 

•l.-CSP) 

SP.RO 

C$PNTX 

»4.SP 

10$ 

♦10.,fl0 

PC.PRMSGEXP 



I ASCII ADDRESS TABLE 
iDONE ALL MSG LINES? 
iBR IF YES 
iPRINT STATUS BIT NAMES 



»D0 ANOTHER MSG LINE 

(NUMBER OF WORDS IN A READ STATUS BUFFER 

(PRINT EXPD/RECV MESSAGE BUTFERS 



TRAP 



C«MSG 



LOOPCOO: 
1«:. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



21 
3t 

4$ 
51 
61 

71 



.WORD 
^N#A Taps 



«N«A 
#NitA 
#N#A 
«N«A 
tfNitfA 
«NKA 



II, 21. 31. 4$. 51, 6$, 71.0 
Bus Loopb^ck Signals in Word «8: 

IRESV2<14> 

IURT.^IIDENT<11> 
lEDIT-^lHER <0e^ 
ITADl->I0NL <05^ 
IRWU ■>IRWD <02> 



PARERR<15> 
IHISP->IE0T<12> 
IWFM ■>IFMK<09> 
ITAOO->IROY<06> 
IREW •>IDBY<03> 
IGO ■>IFPT<00> 



IRESV1<13> 
IREV •>ICER <10> 
IFAO •»ISPEEQ<07> 
IERASE->ILDP <04> 
IFEN ■>IFBY <0l> 



.EVEN 



.SBTTL MSGSUe - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



,V3 - 

;gsub 

1668 
166^ 
1670 
1671 
1672 
1673 
167^ 
167'^ 

1676 
1677 
1678 



1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1683 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 

1697 
1698 
1699 
1700 
1701 



1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
171/ 
1718 



GL 



?g$hT''8l$^ESU8y?i?iM"A^i§AGg^B5fPbS 



D5 



4 17:54 



SEQ 055 



IMPLICIT INPUTS! 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOAOD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



013642 
013642 
013642 
013646 
013652 
013652 
013652 



012700 000012 
004737 014452' 



104423 



MSGSUB i i 



BGNMSG MSGSUe 



L 10015 J 



MOV 
vJSR 
ENOMSG 

TRAP 



#10. .RO 
PC.PRMSGEXP 



CtMSG 



(GIZE OF WRITE SUBSYSTEM BUFFEP. 
iPRINT EXPD/RECV MESSAGE BUFFERS 



013654 
013654 
015654 
015660 
013664 
013670 
015674 
013674 
013674 



.SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 

PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
IMPLICIT INPUTS: 



00473 7 010060' 

013701 002222' 

013702 002224' 
004737 007642* 



104423 





ERRHI 


- MEMORY ERROR HIGH ORDER ADDRESS 




ERRLO 


- MEMORY ERROR LOW ORDER ADDRESS 




EXP 


- EXPECTED 


DATA 






RFCV 


- RECEIVED 


DATA 






BGNhSG 


MEMADD 






MEMADD: 


> 










'JSR 


PC.PRIAOD 




(PRINT MEMORY ADDRESS IN ERROR 




MOV 


EXPD.Rl 




iGET EXPO DATA 




MOV 


RECV,R2 




(GET RECEIVED DATA 




JSR 


PC.PRIXOR 




(PRINT EXPD/RECV 




EN0M5G 








L 10016: 


TRAP 


CIMSG 








.SBTTL 


PRAMPKT - 


PRINT 


RAM AND PACKET DATA 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
WHEN THE RAM DATA DOES NOT MATCH. 

INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMOATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-O THEN DEFAULT TO 8. 



E5 



TSV5 - GLOBAL AREAS 
PRAMPKT - PRINT RAM AND 



1719 
3.720 
'x72i 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1^37 
173S 



1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 



013676 
013676 
013702 
013706 
013710 
013712 
013714 
013724 
013726 
013732 
013736 
013746 
013752 
013760 
013766 
013766 
013770 
013774 
014000 
014002 
014006 
014012 
014014 
014016 
014022 
014024 
014030 
014032 
014036 
014040 
014042 
014046 
014050 
014054 

014056 



012701 
005002 
122124 
001005 

000436 
116105 
116403 

042703 
116137 
116437 

010346 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005737 
001404 
020237 
003724 
000403 
020227 
002720 
005037 
000207 

045 



MACRO Ml 115 


01 


-FEB -84 


17:54 






PACKET 


DATA 


















(IMPLICIT OUTPUTS: 










i 
i 
I - 


RAMSIZ 


SET TO 










PRAMPKT 


'SAVREG 




iSAVE R1-R5 UNTIL NEXT RETURN 


002232' 








MOV 
CLR 


<«AMDATA.R1 
R2 


(DATA FROM THE RAM 
lINIT BYTE NUMBER 








5$: 


CMPB 
BNE 


CRl)f.(R4)v 
7$ 


(COMPARE EXPECTED, RECEIVED 
iBR IF NO MATCH 










FORCERHOR 7$,N0TSSR 












BR 


10$ 


t&fiO 


177777 






7$j 


MOVB 


-1(R1),R5 


iGET RECV RAM DATA 


177777 








MOVB 
XOR 


-1(R4).R3 
R5>R3 


iGET EXPD PACKET DATA 
iXOR EXPD/RECV 


177400 








BIC 


*177400,R3 


iLOg BYTE ONLY 


177777 


002224 • 




MOVB 


-KRD.RECV 


(GET RECEIVED RAM DATA 


177777 


002222' 




MOVB 


-1CR4),EXPD 


(GET EXPECTED RAM DATA 










PRINTS 


♦RAMASC , R2 , RECV , EXPD . R3 












MOV 


R3,-CSP) 




002222' 








MOV 


EXP0,-(SP) 




002224' 








MOV 
MOV 


RECV,-(SP) 
R2,-CSP) 




01^*056' 








MOV 


RAMASC, -CSP) 




000005 








MOV 
MOV 
TRAP 


#5,-CSP) 
SP.RO 

C$PN1B 




000014 








ADO 


*14»SP 










10$: 


INC 


R2 


(UPDATE BYTE COUNT 


002272' 








TST 
UEQ 


RAMSIZ 
15$ 


(DEFAULT TO 8.7 
(BR IF YES 


002272' 








CMP 
BLE 
BR 


R2. RAMSIZ 

51 

25$ 


(DONE ALL BYTES? 

(BR IF NO 

( 


000010 






15$: 


CMP 


R2 . ^e . 


(DONE DEFAULT NUMBER OF BYTES? 








20$: 


BLT 


5$ 


(BR IF NO 


002272' 






25$: 


CLR 
RTS 


RAMSIZ 
PC 


(SET DEFAULT RAMSIZ 
(RETURN 


116 




045 


RAMASC : 


.ASCIZ 
.EVEN 


•liNiiA BYTE: ^D2*A RAM: 


^03«A Packet: «t03«(A X0R:K03' 



SEQ 056 



.SBTTL PRMtSS - PRINT CONTENTS OF MESSAGE BUFFER 
J ♦ 

(THIS ROUTINE PRINTS THE CONTENTS OF 

(THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 

lTSV-05. 



I INPUT ; 



RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
Rl HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 



(THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



F5 



TSV3 - GLOBAL AREAS MACRO M1113 Ol-FEB-84 17:54 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



SEQ 057 



1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 



1780 



1781 
1782 

1763 
1784 
1785 
1786 
1787 



1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1796 
1799 
1800 
1801 
1802 
1803 
1804 



014142 
014142 
014146 
014150 
014154 
014156 
014160 
014162 
014164 
014166 
014166 
014170 
014172 
014176 
014202 
014204 
014206 
014212 
014212 
014216 
014222 
014224 
014226 
014232 
014254 
014236 
014240 
014242 
014246 
014250 
014250 
014252 
014254 
014260 
014264 
014266 
014270 
014274 
014276 
014302 
014304 
014306 
014314 
014316 

014320 
014365 
014423 



010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
012746 
012746 
010600 
104415 
062706 

01i;746 
012746 

010600 
104415 
062706 
005004 
010501 
010300 
001403 
004737 
010005 

012546 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020427 
003005 
002761 
032763 
001355 
000207 

045 
045 
045 



I - 

PRMESS; 



003124 



10$: 



014320' 
000003 



000010 

014365- 
000001 



000004 



017220' 



014423 
000003 



000010 
000007 

000200 000012 



20$: 



50»: 



SAVREG 

MOV 

TST 

BNE 

CLR 

MOV 

RGL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

AOO 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLR 

MOV 

MOV 

BEQ 

JSR 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

CMP 

BGT 

BLT 

BIT 

BNE 

RTS 



116 
116 
116 



045 
045 
045 



PROASC: .ASCIZ 
PRlASCj .ASCIZ 
PRASC: .ASCIZ 
.EVEN 



R0.R5 

KTENABLE 

10$ 

Rl 

R1,R3 

RO 

Rl 

*PR0ASC,R1,R5 

R5,-CSP) 

R1,-(SP) 

*PHOASC,-CSP) 

<^3.-CSP) 

SP.RO 

C»PNTX 

#10. SP 

♦PRIASC 

♦PRIASC.-CSP) 

*1,-(SP) 

SP.RO 

CIPNTX 

*4.SP 

R4 

R5.R1 

R3.R0 

20 » 

PC.SETMAP 

R0.R5 

^RASC,R4.CR5)» 

(R5)»,-CSP) 

R4.-(SP) 

OPRASC.-CSP) 

#3.-(SP) 

SP.RO 

CIPNTX 

*10.SP 

R4 

R4.07 

501 

20$ 

#X2,EXTF.XST2(R3 

20$ 

PC 



I SAVE THE REGISTERS 

I SAVE LOW ORDER ADDRESS 

I ADDRESS ABOVE 28K? 

I BR IF YES 

fSET HIGH OR'^ER ADDRESS TO 

I SAVE HIGH OKDER ADDRESS 

iSHIFT BIT15 TO C BIT 

(SHIFT TO HIGH ORDER FOR PRINTOUT 

I PRINT MESSAGE BUFFER ADDRESS 



(PRINT HEADER FOR CONTENTS 



I NUMBER OF THE NEXT WORD 

(COPY LOU ORDER ADDRESS 

(COPY HIGH ORDER ADDRESS 

jDR if not above 28K 

(SETUP PAR ADDRESS IN RO 

(GET PAR FORMAT ADDRESS ABOVE 28K 

(PRINT THE CONTENTS OF MEMORY BUFFER 



(NUMBER OF THE NEXT 

(DONE ALL YET ? 

(BRANCH IF ALL DONE 

(PRINT FIRST 7 WORDS 

) (EXTENDED FEATUTES ON ? 

(PRINT EXTENDED STATUS WORD 

(RETURN 



'«N«A 
•i(N«A 
't(NiiA 



M«»«ao« Buffer Address - KOH^OS 
Messege Suffer Contents:' 
Word*Dli<A: i<0' 



.SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



( ♦ 
I 



(ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 



G5 



TSV3 - GLOBAL AREAS MACRO MliX3 01-FEB-8fl 17:54 



PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



SEQ 056 



1805 
1806 
1807 
1808 
1809 
1610 
1811 
1812 
1815 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 



1824 



182S 
1826 
1C27 
1828 
1829 
1830 
1631 



1832 
1833 
1834 
1835 
1836 
1337 
1838 
1839 
1840 



014452 
014452 
014456 
014460 
014464 
014466 
014472 
014474 
014476 
014476 
014500 
014502 
014506 
014512 
014514 
014516 
014522 
014522 
014526 
014532 
014Li34 
014536 
014542 
014544 
014550 
014554 
014556 
014560 
014570 
014570 
014572 
014574 
014576 
014600 
014604 
014610 
014612 
014614 
014620 
014622 
014624 
014626 
014630 

014632 
014677 
014735 



010005 
013700 
010004 
013701 
006100 
006101 

010446 
010146 
012746 
012746 
01C600 
104415 
052706 

01274G 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
011100 
011203 



010346 
012246 
012146 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020405 
002001 
000752 
000207 

045 
045 
045 



I 



RO - NUMBER OF WORDS IN BUFFER 

IMPLICIT INPUTS: 

EXPMS6 - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



002276' 
002274' 



014632 
000003 



000010 

014677 
000001 



000004 

002312' 
002456' 



014755' 
00D005 



00001^ 



PRMSGEXP:: 

SAVREG 

MOV 

MC7 

MOV 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

CLR 

MOV 

MOV 

20*: MOV 
MOV 
XOR 

PRINTX 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
INC 
CMP 
BGE 
BR 

50$: RT5 



R0.R5 

RCVLOADD, RO 

RO R4 

RCVHIADD.Rl 

RO 

Rl 

#PRMSG0,R1,R4 

R4,-(SP) 

Rl.-CSP) 

^RMSGO.-CSP) 

*3.-(SP) 

SP.RO 

C^PNTX 

*10,SP 

dPRMSGl 

<^PRMSG1,-(SP) 

#1.-(SP) 

SP.RO 

CIPNTX 

*4,SP 

R4 

*EXFMSG,R1 

♦RECMSG, R2 

CRD.RO 

(R2),R3 

R0.R3 

#PKMSG2,R<,(Rl) 

R3,-(SP) 

(R2)*.-(SP) 

(R1)».-(SP) 

R4,-(SP) 

0PRMSG2,-CSP) 

#5.-CSP) 

SP.RO 

CIPNTX 

*14,SP 

R4 

R4,R5 

501 

20* 

PC 



I SAVE R1-R5 UNTIL NEXT RETURN 

^SAVE NUMBER OF WORDS 

iGET RECV LOU ADDRESS 

I COPY LOW ADDRESS 

I GET RECV HIGH ADDRESS 

iSHIFT BIT15 TO C BIT 

; SHIFT TO HIGH ORDER FOR PRINTOUT 

I PRINT MESSAGE BUFFER ADDRESS 



J PRINT HEADER FOR CONTENTS 



t NUMBER OF THE Ci^RENT WORD 
iGET EXPO BUFFER ADDRESS 
iGET RECV BUFFER ADDRESS 
I GET EXPO 
(GET RECV 
I XOR EXPD/PECV 
♦.(R2)*,R3 



I NUMBER OF THE NEXT 
tOONE ALL YETV 
iBR IF YES 
1 00 ANOTHER 
iRETURN 



116 

lie 

116 



045 PRMSGO 
045 PRMSGl 
045 PRMSG2 



.ASCIZ 
.ASCIZ 
.ASCIZ 



'#N#A M«s8a9« Buffer Address • i<01i*05' 

•*N*A Mttssage Buffer Contents:' 

•f<Ni<A WORD C*02*A EXPO: K06KA RECVj K06*A 



XOR: 1*06' 



-15 



TSV5 - GLOBAL AREAS 


MACRO M1U3 


PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFF 


1841 






1842 






184? 






1844 






1845 






1846 






1647 






1848 






1849 






1B50 






' j5r 






i65? 






1653 






1654 






1855 






1856 01502? 






1857 015022 






1856 015026 


010005 




1659 015030 


005037 


002310' 


1860 015034 


005004 




1861 015036 


012701 


002312' 


1862 015042 


012702 


002456' 


1865 015046 


111100 




1864 015050 


042700 


177400 


1665 015054 


110037 


015370' 


1866 015060 


111203 




1667 015062 


04?703 


177400 


1668 015066 


11U537 


015372' 


1669 015072 






1870 015102 


122122 




1671 015104 


001431 




1872 015106 


00523 7 


002310' 


1673 015112 


023727 


002310' 000010 


1674 015120 


101023 




1675 015122 






015122 


01034 f> 




015124 


013746 


015372' 


015130 


013746 


0\5370' 


015134 


010446 




015136 


012746 


015236' 


015142 


012746 


000005 


015146 


010600 




015150 


104415 




015152 


062706 


000014 


1676 015156 






1877 015166 


000404 




1676 015170 






1679 015170 






1860 015200 






1861 015200 


005<?O4 




1882 015202 


020405 




1883 015204 


002001 




1884 015206 


000717 




1885 015210 






015210 


013746 


002310' 


015214 


012746 


015323' 


015320 


012746 


000002 



Ol-FEB-84 17:54 



SEQ 059 



.EVEN 

.SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 

ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 



RO 



- NUMBE*^ OF BYTES IN BUFFER 



IMPLICIT INPUTS: 



I 


EXPMSG 


- EXPECTED MESSAGE BUFFER 


I 


RECMSG 


- RECEIVED MESSAGE BUFFER 


PRBYTEXP:: 








SAVREG 




iSAVE R1-R5 UNTIL NEXT RETURN 




MOV 


R0»R5 


J SAVE NUMBER OF BYTES 




CLR 


PRMNO 


(INIT ERROR COUNT 




CLR 


R4 


1 NUMBER OF THE CURRENT BYTE 




MOV 


EXPMSG. Rl 


iGET EXPO BUFFER ADDRESS 




MOV 


#RECMSG,R2 


;GET RECV BUFFER ADDRESS 


20$: 


MOVB 


CRD.RO 


iGET EXPO BYTE 




BIC 


*tC<377>.R0 


J CLEAR UPPER BYTE 




MOVB 


RO.PRBEXP 


J SAVE FOR ERROR REPORT 




MOVB 


(R2).R3 


iGET RECV BYTE 




BIC 


#tC<377>.R3 


iCLEAR UPPER BYTE 




MOVB 


R3,PRBREC 


(FOR ERROR REPOPT 




XOP 


R0,R3 


iXOR EXPD/RECV 




CMPB 


(Rl)*,CR2)t 


lEXPO • RECV? 




BEQ 


30$ 


iBR IF YES 




INC 


PRMNO 


(UPDATE ERROR COUNT 




CMP 


PRMNO, 08. 


(PRINTED 8? 




BHI 


30$ 


iBR IF YES 


27$: 


PRINTX 


♦PRBMSG . R4 . PRBEXP , PRBREC , R3 




MOV 


R3,-(SP) 






MOV 


PRBREC. -CSP) 






MOV 


PRBEXP, -CSP) 






MOV 


R4. -CSP) 






MOV 


OPRBMSG. -CSP) 






MOV 


05, -CSP) 






MOV 


GP,RO 






TRAP 


C$PNTX 






ADD 


f>14,SP 






FORCEXIT 50$ 


iQiXt 




BR 


35$ 


iQOO 


30$: 










FORCERROR 27$.N0TSSR 


lOSO 


35$ i 






iSfiX) 




INC 


R4 


(NUMBER OF THE NEXT 




CMP 


R4,R5 


(DONE ALL YET? 




BGE 


50$ 


(BR IF YES 




BR 


20$ 


(00 ANOTHER 


50$: 


PRINTX 


OPRBTOT. PRMNO 


(PRINT TOTAL ERROR COUNT 




MOV 


PRMNO. -CSP) 






MOV 


OPRBT0T,-CSP) 






MOV 


02,-CSPl 





15 
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PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 



SEQ 060 



1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 

1907 
1908 



1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 

1927 
1928 



1929 
1930 
1931 
1932 
1953 



015224 
015226 
015230 
015234 

015236 
015323 

015370 
015372 



015374 
015374 
0153 74 
015400 
015400 
015400 



015402 
015402 
015402 
015406 
015406 
015406 



010600 

104415 

062706 000006 

000207 



MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


#6,SP 


RTS 


PC 



045 
045 

000000 
OOCOOO 



116 
116 



I RETURN 

045 PRBMSGj .ASCIZ 'f(NKA BYTE *KD2*A EXPO: i<03rfA RECV: ¥03**A XOR: 1^03 

045 PRBTOT; .ASCIZ ' ^Ni<A NUMBER OF BYTES IN ERROR - KD2' 
.EVEN 

I EXPO 

iRECV 



PRBEXP: .WORD 
PRBRECi .WORD 



.SBTTL EXPREC - PRINT EXPD/RFCV WORD DATA 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS ! 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



004737 007642' 



104423 



EXPREC:: 



L 1001 7: 



BGNMSG EXPREC 

JSR PC.PRIXOR 
ENOMSG 



J PRINT THE DATA 



TRAP 



CJMSG 



.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



INPUTS: 



Rl 
R2 



RECEIVED DATA BYTE 
EXPECTED DATA BYTE 



004737 007512' 



104423 



tGNMSG EXPBREC 
EXPBREC: : 

JSR PC.PRIBXOR 

ENDMSG 
L 10020: 

TRAP C$MSG 



I PRINT THE DAI A 



.SBTTL RAMERR - PRINT RAM AND PACKET DATA 



J5 



TSV3 - GLOBAL AREAS MACRO Mil 13 
RAMERR - PRINT RAM AND PACKET DATA 



1934 
1955 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
19<3 
1944 
1945 
1946 
194 7 
1948 
1949 
1950 
19S1 
1952 
1953 



Ol-rEB-84 17:54 



SEQ 061 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS; 

R4 POINTER TO COMMAND PACKET 
IMPLICIT IKPUTSi 



RAMOATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 6. 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



1954 
1955 



1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
19^2 
1973 
1^74 
1975 
1976 
19^7 
19/8 
1979 
1980 

1981 
198? 
1983 



1964 



015410 
015410 
015410 
015414 
015414 
015414 



004737 013676' 



104423 



RAMERR : : 



L 10021 I 



BGNMSG RAMERR 

JSR PC.PRAMPKT 
ENOMSG 



jPRINT RAM/PACKET DATA 



TRAP 



C$HSG 



,SBTTL RAMTADO - PRINT TEST ADDRESS, RAM AND PACKET DATA 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 

ERRHT 
tRRLO 



DATA AS READ FROM THE RAM 

NUMBER OF BYTES IN PACKET 

IF RAMSIZ-0 THEN DEFAULT TO 8. 

HIGH ORDER TEST ADDRESS 

LOW ORDER TEST ADDRESS 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



Oi54lS 
015416 
015416 
015422 
015426 
015426 
015426 



004737 
004737 



104423 



010174- 
013676' 



BGNMSG 

RAMTADD: : 

JSR 
jSR 
ENOMSG 

L 10022: 

TRAP 



RAMTADD 
PC.PRirADD 

pc.prampk: 



CIMS'J 



iPRINT TEST ADDRESS 
jPRINT RAM/PACKET DATA 



TSV3 - GLOBAL AhEAS MACRO MU13 01-FEB-e4 17J54 
RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 



l<5 



SEQ 062 



1985 
1986 
1987 
1986 
1969 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 

1999 
2000 
2001 
2002 
2003 



2004 
2005 
2006 
2007 
2008 
2009 
2010 
20U 
20 IP 
2013 
2014 
2015 
2016 
2017 

2016 



015430 
015430 
015430 
015434 
015440 
015444 
015450 
015450 
015450 



2019 
2020 



2021 
2022 
2023 
2024 
2025 
2026 
2027 
2026 
2029 
2030 



015452 
015452 
015452 
015452 
015456 
015462 
015464 
015466 
015472 
015476 
015476 
015476 



015500 



.SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 



INPUTS; 



Rl 
R2 
R4 



RECEIVED DATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 



042701 177400 

042702 177400 
004737 007766' 
004737 007642' 



104423 



I - 



RAMEXP : 



BGNMSG RAMEXP 



L 10023; 



EIC 
BIC 
JSR 
JSR 
ENDMSG 

TRAP 



*tC<377>,Rl 
«tC<377>.R2 
PC.PRIRAM 
PC.PRIXOR 



CJMSG 



J SAVE EXPO RAM DATA BYTE 
(SAVE FXPD RAM DATA BYTE 
jPRINT THE RAM ADDRGSb 
(PRINT THE DATA 



.SBTTL TIMEXP - PRINT TIMER A.B AND EXP/REC 



PRINT R0UTI^4E TO DISPLAY EXPD/RECV DATA 
AN© TIMER A,B HEADER MESSAGE 



INPUTS: 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



TIMEXP: 



BGNMSG TIMEXP 



012746 015500 

012746 000001 

010600 

104415 

062706 000004 

004737 007642 



104423 



045 



L 10024 1 



PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

JSR 

ENOMSG 

TRAP 



*TIMSGO 

«TIMSGO.-(SP) 

*l.-(SP5 

SP.RO 

C$PNTX 

04, SP 

PC.PRIXOR 



C^MSG 



I PRINT HEADER 



iPRINT THE DATA 



116 



045 TIMSGO: .ASCIZ 
.EVEN 



•^NiKA TIMER A STATUS IS IN BIT 3i<N**A TIMER B STATUS IS IN BIT 2 



.SBriU BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



L5 



TSV3 - 
BADSSR 

2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2040 

2041 
2042 
2043 



GLOBAL AREAS 
- PRINT TSSR 



MACRO M1115 Ol-rEB-84 17j54 
ERRORS ON DATA TRANSFERS 



SEQ 063 



2044 
2045 
2046 



2047 
2048 
2049 
2050 
2051 
2052 
2055 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2065 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
20^5 
20/6 
207 7 
2078 



J PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 



(INPUTS J 



Rl 

Ra 



CONTENTS OF TSSR 
DATA WRITTEN C8 BITS) 



015600 
015600 
015600 
015602 
015606 
015606 
015610 
015614 
015620 
015622 
015624 
015650 
015632 
015656 
015636 
015636 
015640 



010246 
042702 

010246 
01^1746 
012746 
010600 
104414 
062706 
012602 
004737 



104423 
045 



BADSSR t 



BGNhSG BADSSR 



177400 



015640' 
000002 



000006 
005632 

116 



045 



MOV 


R2.-(SP) 


(SAVE DATA TRANSf ERRE 


BIC 


#177400, R2 


iGET JUST ONE BYTE 


PftlNTB 


*XFERASC,R2 




MOV 


R2,-(SP) 




MOV 


*XFERASC,-CSP) 




MOV 


♦2.-(SPD 




MOV 


SP.RO 




TRAP 


C*PNTB 




ADD 


06, SP 




MOV 


(SP)».R2 


(RESTORE R2 


JSR 


PC.PRITSSR 


(DECODE TSSR CONTENTS 


ENDMSG 






L 10025: 






TRAP 


C$MSG 




XFERASC: 


.ASCIZ 'KNKA Dat« 


Transferred " 9*03' 



.SBTTL GLOBAL SUBROUTINES SECTION 

; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
I THAT ARE USED IN MORE THAN ONE TEST. 



.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO DC A SOFT INITIALIZE OF THE CONTROLLER 
BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



INPUTS: 

R5 
OUTPUTS: 



RO 
CARRY 



ADDRESS OF FIRST REGISTER 



CONTENTS OF TSSR. IF ERROR 
SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 



CALLING SEQUENCE: 

MOV <>ADDRESS.R5 



M5 



TSV3 - GLOBAL AREAS 


MACRO M1113 01 


-FEB-84 


17:54 






SOFINIT 


- SOFT 


INITIALIZE OF CONTROLLER 










2079 










JSR 


PC. SOFINIT 




2080 










BCS 


CONTINUE 




2081 










ERRDF 




i REPORT FATAL ERROR 


2082 
















2083 








• - 








2084 
















2085 


015674 






SOFINIT 


* • 






2086 


015674 








SAVREG 




1 SAVE THE REGISTERS 


2087 


015700 


012765 


000000 000002 




MOV 


flO.TSSRCRS) 


t DO THE INIT. 


2088 


015706 


004737 


016150' 




JSR 


PC.WAITF 


I WAIT FOR SSR 


2089 


015712 


016500 


000002 




MOV 


TSSR(R5),R0 


iGET THE TSSR REGISTER 


2090 


015716 


010004 






MOV 


R0.R4 


jTSSR CONTENTS 


2091 


015720 


042704 


176277 




BIC 


#tC<HIAD0R!0FL> 


R4 


2092 


015724 


052704 


002200 




BIS 


«SSR!NBA,R4 


iR4 HAS EXPECTED CONTENTS 


2093 


015730 


020400 






CMP 


R4.R0 


lONLY EXPECTED BITS SET ? 


2094 


015732 


001402 






BFQ 


5i 


1 BRANCH IF OKAY 


2095 


015734 


000241 






CLC 




(CLEAR THE CARRY FOR ERROR 


2096 


015736 


000401 






BR 


10$ 


iGO TO EXIT 


2097 


015740 


000261 




5J: 


SEC 




I SET THE CARRY BIT 


2098 


015742 


000207 




10$! 


RTS 


PC 


(RETURN TO CALLER 


2099 
















2100 










.SBTTL 


CHKAMB - CHECK 


TSSR FOR AMBIGUITY 


2101 
















2102 








• ♦ 








2i03 
















r!104 








IthIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 


2105 








iFOR AMBIGUITY 






2106 
















2107 








1 INPUT : 








2108 
















2109 










RO 


CONTENTS OF TSSR 


2110 
















2111 








I OUTPUT 


J 






2112 
















2113 










RO 


CONTENTS OF TSSR 


2114 
















2115 










CARRY 


SET - NO AMBIGUITY 


2116 












CLR - AMBIGUOUS 


CONTENTS 


2117 
















2118 








■ _ 








2119 
















2120 


015744 






CHKAMB : 








2121 


015744 








SAVREG 




(SAVE THE GENERAL REGISTERS 


212? 


015750 


010004 






MOV 


R0.R4 


(CONTENTS OF TSSR 


2123 


015752 


032700 


100000 




BIT 


«5C.R0 


(IS BIT 15 SET ? 


2124 


015756 


001004 






BNE 


51 


(BRANCH IF YES 


2125 


015760 


032700 


174077 




BIT 


«tC<NBA!OFL!SSR 


!HIADDR>,RO (ANY OTHER 


2126 


015764 


001023 






6NE 


40* 


(MUST 1. 1 AN ERROR 


2127 


015766 


000424 






BR 


451 


(RETURN WITH SUCCESS 


2128 


015770 


032700 


000200 


5$: 


BIT 


dSSR.RO 


(IS READY BIT SET ? 


2129 


01577^ 


001011 






BNE 


lot 


(BRANCH IF READY BIT IS SET 


2130 


015776 


032700 


000040 




BIT 


deiT5,R0 


(IS FATAL ERROR BIT SET ? 


2131 


016002 


001414 






BEQ 


40« 


(ERROR IF NOT 


2132 


016004 


042704 


177761 




BIC 


OtCTERCLS,R4 


(CLEAR ALL BUT TERMINATION 


2133 


016010 


020427 


000016 




CMP 


R4.016 


(ALL THREE aiTS MUST BE SET 


2134 


016014 


001007 






BNE 


40* 


(ERROR IF NOT SET 


ai35 


016016 


000410 






BR 


45* 


(OK IF ALL ARE SET 



SEQ 064 



BITS SET ? 



CODE 



N5 



TSV3 - GLOBAL AREAS MACRO Mllli Ol-FEB-34 17:54 
CHKAMB - CHECK TSSR FOR AMBIGUITY 



SEQ 065 



2156 016020 


032700 


000040 




2137 016024 


001405 






2138 016026 


032700 


000006 




2139 016032 


001002 






2140 016034 


000241 






2141 016036 


000401 






2142 016040 


000261 






kn43 016042 


000207 






2144 








2145 








2146 








2147 








2148 








214^^ 








c.'1'ni 








21^jl 








2152 








2153 








2154 


000200 






2155 


000001 






2156 








2157 








2158 016044 


000 






2159 








2160 016045 


000 






2161 








2162 








2163 016046 


000000 






2164 








2165 016050 


000000 






2166 








2167 








2168 016052 


010046 






2169 016054 


013700 


002200' 




2170 016060 


012720 


016116' 




2171 016064 


012720 


000340 




2172 016070 


012600 






2173 016072 


011646 






2174 016074 


012766 


000000 


000002 


2175 016102 


000002 






2176 








2177 








2178 016104 


011646 






2179 016106 


012766 


000340 


000002 


2180 016114 


000002 






2181 








2182 








2183 








2184 016116 








016116 








2185 016116 


012737 


000001 


002214 


2186 016124 


105037 


016045' 




2187 0161:;0 


132737 


000001 


016044 


2188 016136 


001005 






2189 016140 


152/37 


000001 


016045 


2190 








2191 









10$ t 


BIT 


*BIT5,R0 




BEQ 


45$ 




BIT 


*BIT2!BIT1.P0 




BNE 


45$ 


405: 


CLC 






BR 


50$ 


45i: 


SEC 




50$: 


RTS 


PC 



lis FATAL ERROR BIT SET ? 
lERROR IF BIT IS SET WITH SSR 
ilS THIS A FUNCTION REJECT 
;BR. IF TSSR IS OK 
I AMBIGUOUS CONTENTS 

jSHOW SUCCESS - NO AMBIGUITY 
(RETURN TO CALLER 

.SBTTL ENAINT.DSBINT - ENABLE/DISABLE INTF-RRUPTS 

! DEFAULT DISPLAY INTERRUPT HANDLERS. 

( IF DISPLAY TIME-OUT. REPORT DEV FATAL. AND ABORT PASS. 

I OTHERWISE. SAVE DPU REGISTERS AND DIShTSS. 



BIT DEFINITIONS FOR "INTMASK" AND "INTFLAG" BYTES: 



I0KCK1N-BIT7 
lOKSTP-BITO 



t DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL 
i EXPECT "STOP" INTERRUPT. 



INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 

INTMASK: .BYTE 

;INTC-RRUPT FLAG -- SAYS WE GOT ONE (IF POSITIVE) 

INTFLAG: .BYTE 

: SAVED ItaeRRUPT VECTOR: 
INTVEC: .WORD 
J SAVE CPU PC 
INTCPC: .UORt; 

: SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT; MOV RO,-(SP) jSAVE RO 

IVEC.RO 

#INTR.CRO)» 

W»RI07.(R0)f 

CSP)*.R0 

CSP).-CSP) 

#0,2CSP) 



HOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



iGET POINTER TO VECTORS 
I SET UP INTERRUPT VECTOR 

jRESTORF RO 

;SET CPU TO LEVEL 



(SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 



DSBINT: MOV 

MOV 



INTR: 



RTI 

.SBTTL 

B6NSRV 

MOV 

CLRB 

BITB 

BNE 

BI5B 



(SP).-(SP) 
<?PRI07,2CSP) 



INTR - INTERRUPT HANDLERS 

INTR J DEFINE INTERR'JPT ENTRY 

<>1.INVRECV iSET FLAG TO SHOW INTERRUPT RECEIVED 

INTFLAG i CLEAR FLAG TO SA . Wt GOT INTERRUPT 

<HOKSTP. INTMASK (EXPECTING STOP INTERRUPT? 

1$ (BR IF YES 

tflOKSTP. INTFLAG (NO. SET THE ERROR FLAG. 



(SAVE REGISTERS, MS6 BUFFER. ETC. 



B6 



TSV3 - GLOBAL AREAS 


MACRO 1 


INTR 


- INTERRUPT HANDLERS 


2X92 


016146 






2X^1 


016146 
016146 








016146 


000002 




2194 








2195 








2196 








219? 








2198 








2199 








2200 








2201 








2202 








2203 








2204 








2205 








2206 








2207 








2208 








2209 


016150 


000401 




2210 


016152 








016152 


104422 




2211 


016154 


012746 


OllOOO 


22i2 


016160 


016500 


000002 


2213 


016164 


105700 




2214 








2215 


016166 


100420 




2216 


016170 








016170 


012727 


000001 




016174 


000000 






016176 


013727 


002116 




016202 


000000 






016204 


005367 


177772 




016210 


001375 






016212 


005367 


177756 




016216 


001367 




2217 


016220 


005516 




2210 


016222 


001356 




2219 


016224 


000241 




2220 


016226 


000401 




2221 


016230 


000261 




2222 


016232 


005326 




2225 


016234 


oooao? 




2224 








2225 








2226 








2227 








2228 








2229 








2230 








2231 








2252 








2233 








2234 








2235 








2236 








2237 









M1113 Ol-FEB-84 17i54 



SEQ 066 



II: 

L 100261 



ENOsnv 



RTI 

.SBTTL WAITF ■ WAIT FOR SUBSYSTEM READY 
SUBROUTINE TO WAIT FQR THE SUBSYSTEM READY FLAG 
INPUTS: 

ADDRESS OF FIRST DEVICE REGISTER 



R5 

OUTPUTS: 



WAITF. 



II 
21 



31 
41 



RO 

CARRY 



BR 

BREAK 

TRAP 

MOV 

MOV 

TSTB 

6MI 

DELAY 

MOV 

«UORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

CLC 

BR 

SEC 

DEC 

RTS 



CONTENTS OF LAST TSSR READ 

SET - READY BIT SET 

CLR ■ TIMEOUT WAITING FOR READY 



II 

CIBRK 

#UOOO.-(SP) 
TSSR(R5),R0 
RO 

31 

I 

•I, (PC)* 



LI0LY,(PC)» 



-6(PC) 

.-4 

-22( PC) 

. -20 

(SP) 

21 

41 

(SP)» 
PC 



iNOP WHEN SUPER FIXED 

I DO A SUPVSR BREAK FIRST. 

i25-APRlL-e5 REV B ■ llOO MSEC TIMER 
iREAD THE TSSR REGISTER 
iTEST FOR READY BIT SET 

I EXIT ON STOP FLAG, 
I WAIT 100 USEC 



iRtOUCE DELAY COUNT 

iRETRY UNTIL TIMER EXPIRES 

1 C ■ 0, CONTROLLER STILL RL^JNING... 

I . . .OR HUNG-UP AFTER 300 MSEC. 

I C - I, CONTROLLER IS STOPPED. 

(RESTORE STACK WITHOUT CHANGING CARRY BIT 



.SBTTL CHKTSSR - CHECK TSSR FOR READY 



THIS ROUTINE WAITS FOR READY IN THE TSSR 

ANO TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR, 



INPUT: 



R5 



ADDRESS OF CSR REGISTERS 



OUTPUT I 



C6 



TSV5 - GLOi 
CHKTSSR • i 

2259 
2240 
2241 

2242 
2245 
2244 
2245 
2246 
2247 
2246 
2249 
2250 
2251 
2252 
2255 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2265 
2264 
2265 
2266 
2267 
226d 
2269 
2270 
2271 
2272 
2275 
2274 
2275 
2276 
22V7 
2278 
2279 
2260 
2281 
2262 
2283 



lAL ARtAS 

;heck TSSR 



FOR 



%m^ 



,M1115 Ol-FEB-84 I7j54 



SEQ 067 



2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 



016256 
016256 
016242 
016244 
016250 
016252 
016256 
016260 
016264 
016266 
016270 
016272 
016274 



016276 
016504 
016312 
016514 
0163^6 

016320 
016522 
016524 
016550 

016552 
016554 
016540 
016542 
016542 
016546 
016550 
016552 
016554 
016356 



RO CONTENTS OF TSSR 
CARRY SET - OKAY 

CLR - NOT READY AMBIGUOUS, OR SC SET 



004757 016150 

105014 

004757 015744' 

105006 

032700 100000 

001405 

032700 074000 

001402 

000241 

000401 

000261 

000207 



CHKTSSR: 



101 

15t 

201 



JSR 

BCC 

JSR 

BCC 

BIT 

BEQ 

BIT 

BEQ 

CLC 

BR 

SEC 

RT5 



PC.WAITF 

201 

PC.CHKAMB 

101 

•SC.RO 

151 

*<SCE!BIE!RMR|NXM>,RO 

151 

201 

PC 



iWAIT FOR READY 

I BRANCH IF TIME OUT 

I TSSR AMBIGOUS? 

iBR IF YES 

iSPECIAL CONDITION SET? 

tBR IF NO 

lANY ERROR BITS SET? 

(BR IF NO 

(SET FAILURE 

I SET SUCCESS 
iRETURN TO CALLER 



.SBTTL XNXM 



CHECK FOR NONEXISTENT MEMORY 



012757 016552- 000004 

012757 000200 000006 

005005 

000241 

005711 

020102 

001407 

062701 000002 

000772 

005105 

012716 016342' 

000002 

012700 000004 

104456 

005705 

001401 

000261 

000207 



ROUTINE TO TEST FOR A NEXM IN THE RANGE (Rl) THRU (R2). 
ON RETURN, IF "C" • 1, (Rl) ■ NEXM ADDRESS. 
"C" -0, ALL ADDRESSES OK. 



I TEST "C" ANO PROCEED. 

I SET BUSERR VECTOR. 



I FLAG. 

I CLEAR THE CARRY FOR NO NXM FOUND 

iTEST THE ADORESS(ES). 

I IF ANY TRAP. CONTINUE AT 21. 

(OTHERWISE, CONTINUE HERE. 

iBR IF FINISHED (NO NEXM'S). 

I SET NEXT ADDRESS... 

I... ANO CONTINUE. 

iGOT ONE, SET FLAG.. . 

I... ANO DISMISS INTERRUPT... 
I... ANO GIVE BACK THE VECTOR, 



iDID WE CATCH ONE ?? 

iNO, "C" • 0, SKIP NEXT. 

|YES, "C" « I. (Rl) • NEXM ADDR. 



» CALLS 


MOV 


A0R1,R1 




MOV 


ADR2,R2 




JSR 


PC, 


NXM 




RETURN 


iT 


XNXMt 


MOV 




«2«,0«4 




MOV 




♦PRI04,Q<>6 




CLR 




R5 




CLC 






11 


TST 




CRD 




CMP 




R1,R2 




BEQ 




5$ 




ADD 




*2.R1 




BR 




1« 


2t: 


COM 




R5 




MOV 




051, (SP) 




RTI 






3$i 


CLRVEC 


04 




MOV 




04. RO 




TRAP 


» 


CiCVEC 




TST 




R3 




BEQ 




.*4 




SEC 








RTS 




PC 



, SBTTL TSTLOOP - CHECK ITERATION COUNT 



D6 



TSV3 - GLOBAL AREAS 
TSTLOOP - CHECK IT 



3293 
2294 
2295 
2296 
2297 
2298 
2299 

2300 016360 

2301 016360 

2302 016364 

2303 016366 

2304 016372 

2305 016374 

2306 016400 

2307 016402 

2308 016404 
2509 016406 
2310 016410 
2311 

2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2325 
2324 
2325 
2326 
2327 
2326 
23?9 
2330 
2331 
2332 
2333 
2354 
2335 
2336 
2337 

2338 016412 

2339 016412 
2540 016414 
2341 016420 
2542 016424 

2343 016430 

2344 016454 

2545 016440 

2546 016442 

2547 016446 

2348 016450 

2349 016452 



MACRO M1115 
RATION COUNT 



Ol-FEB-84 17(54 



SEQ 068 



005737 002160' 

001006 

005757 002174' 

100403 

005357 002206 

001002 

000241 

000401 

000261 

000207 



010046 
005057 
005057 
005037 
105057 
013700 
006300 
005757 
001450 
100010 
052760 



SUBROUTINE TO EXECUTE TEST ITERATIONS. 

EXIT WITH "C" SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 

LOOP COUNTER IS SET DY "BEGIN. TEST" MACRO. 



I ITERATIONS INHIBITED? 

I YES. 

I NO. 

jLOOPS DISA.LOWED IN QUICK PASS. 

I BUMP LOOP COUNTER. 

iLOOP DISP.L..OWED, OR DONE. 

(LOOP ENAPuED. 

.SBTTL TSTSETLf - PRINT TCST NAME AND INIT ERROR COUNTS 

PRINT THE NUMBER ANO NAME OF EACH TEST AS WE GO ALONG. 
INCREMENT "TESTK" TO INDICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE. 
CLEAR THE ERROR COUNTER ANO SIGNATURE EXTENSION FLAGS. 



1 CALL: LOOPTO 


ARG 


TSTLOOP i : 




TST 


^:olTs 


BNE 


11 


TST 


QVP 


BMI 


U 


OKC 


LOOPCNT 


BNE 


21 


l$i CLC 




BR 


51 


21; SEC 




31 1 RTS 


PC 



INPUT: 



RO 



POINTER TO TEST ID ASCIZ STRING 



OUTPUT: 



R5 



005144 
016660 
005600 
016044 
002172 

003104 



160000 003166 



ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS: 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



SAVE THE TEST ID MESSAGE 
CLEAR "SOFT INIT" FLAG 
CLEAR LOCAL ERROR COUNTER. 
CLEAR ERROR EXTENSION FLAG. 
CLEAR INTERRUPT MASK (CHECK ERROR) 
GET THE UNIT NUMBER, 
... ANO MAKE IT A WORD OFFSET. 
DID STARTJP FIND THE DEVICE? 
BR IF YES 
BR IF NOT IDLE 
#160000, ERTABLCRO) i FLAG ERROR IN THE ERROR TABLE 



TSTSETUP:: 




MOV 


RO. (SP) 


CLR 


SIFLAG 


CLR 


ERRK 


CLR 


EXTA 


CLRB 


INTMASK 


MOV 


UNITN.RO 


ASL 


RO 


TST 


NOOEV 


BEO 


4$ 


BPL 


3t 


BIS 


#160000, 



£6 



TSV3 - GLOBAL AREAS MACRO M1113 01 -FEB -84 17:54 
TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 



SEQ 069 



2350 



2351 
2352 
2353 



2354 
2355 



2356 

2357 
2358 
2359 

2360 
2361 
2362 
2363 



2364 
2365 



2366 
2367 
2568 
2369 

2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 

2378 
2379 

2380 



016460 
016460 
01646<> 
016464 
016466 
016470 
016472 
016500 
016500 
016502 
016504 
016506 
016510 
016516 
016516 
016522 
016524 
016524 
016526 

016530 
016530 
016532 
016536 
016540 
016542 
016542 
016544 
016550 
016554 
016556 
016560 
016564 
016570 
016570 
016574 
016576 
016600 
016604 
016606 



016622 
016622 
016624 
016630 
016632 
016632 
016636 
016642 
016646 
016650 



104455 

000001 

003730- 

005544' 

000407 

052760 

104455 

000002 

004325' 

000000 

012737 

013700 
104451 

104444 
000423 



104421 
032700 
001412 
011600 

010046 
012746 
012746 
010600 
104417 
062706 
005237 

013700 
104441 
005726 
013705 
000207 
045 



160001 003166' 3$: 



177777 
002172' 



003102' 2$: 



4$: 



001000 



016606 
000002 



000006 
002204 

002202 



002176' 
123 



It: 

51: 

045 TNAM: 

I 



ERROF 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

BIS 

ERROF 

TRAP 

.WORD 

.WORD 

.UORO 

MOV 

DOOU 

MOV 

TRAP 

OOCLN 

TRAP 

BR 

RFLAGS 

TRAP 

BIT 

BEQ 

MOV 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

INC 

SETPRI 

MOV 

TRAP 

TST 

MOV 

RTS 

.ASCIZ 

.EVEN 



l.NXR.NXRERR 

CIEROF 

1 

NXR 

NXRERR 

2« 

*160001,ERTABL(RO) 



I NO DEVICE HERE -- PRINT IT 



2.N0INIT 

CIERDF 

2 

NOINIT 



#-l.DUFLG 

UNITN 

UNITN.RO 

CIDODU 

CIDCLN 
51 

RO 

CIRFLA 

#PNT.RO 

1> 

CSP),RO 

*TNAM,RO 

RO.-(SP) 

*TNAM.-<SP) 

02,-(SP) 

SP.RO 

C$PNTF 

06, SP 

TSTCNT 

IPRI 

IPRI.RO 

CISPRI 

(SP)* 

CSRADDR.R5 

PC 

•KSKUJA Teat 



I FLAG ERROR IN THE ERROR TABLE 



I DEVICE NOT IDLE 



I DROP THE UNIT 



I ABORT THE PASS 



1 GET THE OPERATOR FLAGS. 

I PRINT V-^ TEST NUMBERS? 

I BR IF NO 

iGET THE ID MESSAGE 

iDISPLAY THE TEST ID 



I BUMP TEST COUNTER. 
IPRIORITY THAT OF DEVICE 



jFIX UP THE STACK 

I ADDRESS OF TSV REGISTERS ON UNIBUS 



.SBTTL TSTENO - PRINT ERRORS RECEIVED 



104421 

030027 020000 

001412 

013746 016660' 
012746 016662' 
012746 000002 
010600 
104417 



I AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 

I IF NORMAL ERROR REPORTING IS DISABLED CFLA:IER). 

1 



I BR IF "lER" NOT SET, 
I PRINT ERROR COUNT. 



TSTEND: RFLAGS 


RO 


TRAP 


CIRFLA 


BIT 


RO.OIER 


BEQ 


1$ 


PRINTF 


*€SUM.ERRK 


MOV 


ERRK.'CSP) 


MOV 


<>ESUM.-(SP) 


MOV 


♦2,-(SP) 


MOV 


SP.RO 


TRAP 


C»PNTF 



F6 



TSV3 - GLOBAL AREAS MACRO M1H3 
TSTE^40 - PRINT ERRORS RECEIVED 



Ol-FEB-84 17!54 



SEQ 070 



2381 
2382 
2385 
2384 
2385 
2586 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 

2414 
2415 
2416 
2417 



2418 



2419 

2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 



016652 
016656 

016660 
016662 
016701 



016746 
016752 
016754 
016760 
016762 
016766 
016770 
016774 
016776 
017000 
017002 

017004 
017006 
017012 
017014 
017020 
017024 
017030 
017032 
017040 
017042 
017042 
017044 
017050 
017052 
017060 
017060 
017062 
017064 
017066 
017070 
017070 
017074 
017076 
017076 
017100 
017102 



062706 000006 
000207 



000000 
045 
105 



101 
122 



1*: 

ERRK: 
040 ESUM: 
122 EMAXDUj 



; ♦ 



ADD 
RTS 



.ASCIZ 
.ASCIZ 
.EVEN 



*6.SP 
PC 

I LOCAL ERROR COUNT, 
/it A #Oi^A ERRORS/ 
/ERROR LIMIT REACHED -- DROPPING UNIT/ 



.SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 



005237 016660' 

010046 

013700 002172' 

006300 

063700 003166' 

005210 

032710 007777 

001001 

005310 

012600 

000207 



010046 
013700 
006300 
0\6000 
042700 
020037 
103004 
023737 
103417 

104421 
032700 
001013 
012737 

104455 
000004 
016701' 
OOOOOO 

013700 

io*;a5i 

104444 

012600 
000207 



002172' 

003166- 

170O00 

002164' 

016660' 002162 



000040 
177777 



003X02 



I ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 

INCREMENT LOCAL ERROR COUNT 

SAVE RO 

GET UNIT NUMBER, 

. . . AND MAKE IT A WORD OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY. 

INCREMENT THE DEVICE ERROR COUNT 

DID WE OVERFLOW THE FIELD? 

BR IF NO. 

YES -" BACK IT UP TO 7777, 

RESTORE RO 

RETURN TO CALLER. 

SAVE RO 

GET UNIT NUMBER 

... AND MAKE IT A WORD OFFSET 

GEl ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF YES 

IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 

BR IF NO 

CitiT OPERATOR FLAGS 

IS DROPPING INHIBITED? 

BR IF YES 

NO -- DROP THE UNIT 



00? 172' 



I - 






INCERK: 


INC 


ERRK 1 




MOV 


RO,-(SP) 1 




MOV 


UNITN.RO I 




ASL 


RO t 




ADD 


^RTABL.RO J 




INC 


(RO) 1 




BIT 


*7777,CRO) 1 




BNE 


It t 




DEC 


CRO) 1 


1$: 


MOV 


CSP)*,RO 1 




RTS 


PC I 


CKEMAX: 


MOV 


RO.-CSP) 1 




MOV 


UNITN.RO 1 




ASL 


RO 1 




MOV 


ERTA3LCR0),R0 i 




BIG 


0170000.ro I 




CMP 


RO.GERRMAX i 




BHIS 


l> 1 




CMP 


ERRK.LERRMAX i 




BLO 


21 1 


li: 


RFLAGS 


RO 1 




TRAP 


C$RFLA 




BIl 


«IDU.RO 1 




BNE 


21 1 




MOV 


0-l,DUFLG I 




ERRDF 


4.EMAXDU 




TRAP 


CIERDF 




.WORD 


4 




.WORD 


EMAXDU 




.WORD 







DOOU 


UNITN 




MOV 


UNITN.RO 




TRAP 


CiDOOU 




DOCLN 






TRAP 


CiDCLN 


2$: 


MOV 


(SP)*,RO I 




RTS 


PC 1 



017104 
017106 



010046 



I RESTORE RO 

I RETURN TO CALLER 

.SBTTL CKDr^OP - CHECK IF UNIT SHOULD BE DROPPED 

I CHECK IF UNIT SHOULD BE DROPPED 

i - 

CKDROP: MOV RO.-CSP) 

FORCERROR IJ.NOTSSR 



G6 



TSV3 - GLOBAL AREAS 
CKOROP 



MACRO M1113 01-FE8-04 17:54 
- CHECK IF UNIT SHOULD BE DROPPED 



SEQ 071 



2429 

2430 
2431 
2432 
2433 
2434 



2435 

2436 
2437 
2436 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2466 
2469 
2470 
2471 
2472 
2473 
2474 
24 75 
2476 
2477 
2478 
24 79 
2480 
2481 



01? 116 
017116 
017120 
017124 
017126 
017130 
017136 
017136 
017142 
017144 
017144 
017146 
017150 



017152 
017152 
017156 



017160 
017164 
017166 
017174 



01717C 
017202 
017204 
017206 
01/210 
017216 



104421 
032700 
001010 
011600 
012737 

013700 
104451 

104444 
012600 
000207 



000040 

177777 
002172' 



003102 



004737 
000207 



005737 
001403 
012737 
000207 



1$ 



t 



RFLA6S 


RO 


TRAP 


CIRFLA 


BIT 


OIDU.RO 


BNE 


Xi 


MOV 


CSP).RO 


MOV 


*-i.ourLG 


DODU 


UNITN 


MOV 


UNITN.RO 


TRAP 


C$DOOU 


DOCLN 




TRAP 


CIOCLN 


MOV 


(SP)*,RO 


RTS 


PC 



J ABORT THE PASS 



.SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 



015674 



J SUBROUTINE - DETERMINE CONFIGURATION OF TSU05 SYSTEM. 
CONFIG: 



003122' 
000001 



JSR PC.SOFINIT 
RTS PC 

.SBTTL KTON.KTOFF 

I SUBROUTINE - ENABLE MEM MGT , 
I 



177572 



TST 
BEQ 
MOV 
RTS 



KTFLG 
II 

Ol.SRO 
PC 



KTON: 
IJ; 

I SUBROUTINE - DISABLE MEM MGT. 



- ENABLE/DISABLE MEMORY MANAGEMENT 



I GOT KT? 

} NO. 

I YES. ENABLE KTll. 



005737 003122' KTOFF; TST 

001405 BEQ 

000240 NOP 

000240 NOP 

012737 000000 177572 MOV 

000207 1$: RTS 



KTFLG 
1$ 



1 GOT KTll? 
I NO. 



*0,SRO 
PC 



I DISABLE KT. 
.SBTTL SETMAP - SETUP PAR6 MAPPING 



(THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
I AN 22 BIT ADDRESS. THE OFFSET INTO THE PAGE 
lis RETURNED BIASED TO PAR6. 

(INPUTS; 

I 

I RO 

I Rl 

lOUTPUTSi 



HIGH ORDEN ADDRESS BITS 
LOU ORDER ADDRESS BITS 



H6 



003122 



000177 
003122' 

172354 
160000 
140000 



TSV3 - GLOBAL AREAS MACRO MH13 
SETMAP - SETUP PAR6 KAPPING 



2482 
2465 
2484 
2465 
i?466 
2';87 017220 

2488 017220 

2489 017224 005737 

2490 017230 001433 

2491 017232 010102 

2492 000006 
2493 

2494 
2495 

2496 017264 042701 

2497 017270 020137 

2498 017274 103011 

2499 017276 010137 

2500 017302 0<2702 

2501 017306 062702 

2502 017312 010200 

2503 017314 000261 

2504 017316 000401 

2505 017320 000241 

2506 017322 000207 
2507 

2506 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 

2524 017324 

2525 017324 

2526 017330 004737 

2527 017334 010003 

2528 017336 013701 

2529 017342 013702 
2550 017346 010321 
2531 017350 005302 
2552 017352 005375 
2533 017354 005737 
2554 017360 001502 

2535 017562 004737 

2536 017366 005000 
2557 017370 013701 
2538 OC0006 



Ol-FEB-84 17:54 



RO 
CARRY 



SEQ 072 



OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. 
SET IF SUCCESS 
CLR IF ERROR 



THE ADDRESS) 



SETMAP : 



10$: 
15 J: 



SAVREG 

TST 

BEQ 

MOV 

.REPT 

ASR 

ROR 

.E^»OR 

BIC 

CMP 

BHIS 

MOV 

BIC 

ADO 

MOV 

SEC 

BR 

CLC 

RTS 



KTFLG 

10$ 

R1.R2 

6 

RO 

Rl 

*177.R1 

Rl. KTFLG 

10$ 

R1.0«KIPAR6 

* 160000, R2 

*140000,R2 

R2.R0 

15$ 

PC 



iSAVE R1-R4 UNTIL NEXT RETURN 

(SYSTEM HAVE ABOVE 28K? 

iBR IF NO 

I SAVE LOU ORDER BITS 

; CONVERT WOr^D ADDRESS TO 32U BLOCKS 
iMAKE IT DOUBLE PRECISION 

ifwrr' FOR LOWER 4K BOUNDARY 
tMl\::.L^ THAN EXISTING MEMORY? 
I BR IF YES 

J SETUP MAPPING REGISTER PAR6 
(SETUP DISPLACEMENT IN PAGE 
I ADD IN PAR6 BIAS 
(RETURN IN RO 
I SET SUCCESS 

(SET FAILURE 
(RETURN 



.SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 

FILL MEMORY WITH A BACKGROUND PATTERN 

INPUTS: 

RO ■ BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG - SET TO HIGHEST MEMORY LOCATION IF > 28K. 



017176' 

003114' 
005116' 



003122' 

017160' 
003142' 



( OUTPUTS: 




( NONE 




FILLMEM I 




SAVREG 




JSR 


PC.UTOFF 


MOV 


R0,R3 


MOV 


FREE.Rl 


MOV 


FRESIZ.R2 


10$: MOV 


R3.(Rl)f 


DEC 


R2 


BGT 


10$ 


TST 


KTFLG 


BEQ 


55$ 


JSR 


PC.KTON 


CLR 


RO 


MOV 


PST32W.R1 


.REPT 


6 



SAVE R1-R5 UNTIL NE)iT RETURN 

DISABLE KT. 

COPY TEST PATTERN 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 28K. 

STORE A BACKGROUND WORD 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >2eK START ADDRESS (IN 52W BLOCKS) 



TSV5 - GLOBAL AREAS MACRO Ml 115 01 -FEB -64 17:54 
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 



16 



SEQ 073 



2539 








CLC 




CLEAR C BIT 


2540 








ROL 


Rl 


CONVERT BLOCKS TC WORDS 


2541 








ROL 


RO 


MAKE IT DOUBLE PRECISION 


2542 








.ENDR 






2543 017440 


004737 


017220' 




JSR 


PC»SETMAP 


SETUP PAR6 MAPPING REGISTER 


2544 017444 


010320 




30$: 


MOV 


R3,(R0)* 


STORE TEST PATTERN IN >28K ADDRESS 


2545 017446 


020027 


160000 




CMP 


RO, #160000 


END OF PAR6 MAPPING AREA? 


2546 017452 


103774 






BLO 


30$ 


BP IF NO 


2547 017454 


162700 


020000 




sue 


#20000, RO 


BACKUP INTO PAR6 MAPPING BEGIN 


2548 017460 


062737 


000200 172354 




ADD 


«200.d«KIPAR6 


POINT TO NEXT 4K BLOCK •26K. 


2549 017466 


013705 


003122' 




MOV 


KTFLG. R5 


GET VALUE FROM MEMORY SIZER 


2550 017472 


042705 


170000 




SIC 


01 70000. R5 


ONLY 18 BITS PASS 


2551 017476 


023705 


172354 




CMP 


B«KIPAR6.R5 


END OF ^«M0RY7 


2552 017502 


001427 






BEQ 


50$ 


BR IF YES 


2553 017504 


005737 


003134' 




TST 


T23A 


PROCESSOR TYPE A 


2554 017510 


001407 






BEQ 


35$ 


NO KEEP GOING 


2555 017512 


013704 


177572 




MOV 


SR0,R4 


GET SRO CONTENTS 


2556 017516 


042704 


177761 




BIC 


#177761, R4 


CLEAR ALL BUT PAGE NUMBER 


2557 017522 


022704 


000016 




CMP 


#16. R4 


SEE IF PAGE 7 


2556 017526 


001415 






BEQ 


50$ 


EXIT IF THERE 


2559 017530 


0057-;7 


003136' 


35$! 


TST 


T23B 


PROCESSOR TYPE B 


2560 017534 


001410 






BEQ 


45$ 


NO KEEP GOING 


2561 017536 


023727 


172354 007600 




CMP 


S#KIPAR6.#7600 


REACHED 18 BITS? 


2562 017544 


103001 






BHIS 


40$ 


YES 


2563 017546 


000403 






BR 


45$ 


iNO KEEP GOING 


2564 017550 


012737 


000020 172516 


40$: 


MOV 


#20,SR3 


(SET MMU RELOCATION 


2565 017556 


000137 


017444' 


45$: 


JMP 


30$ 


(KEEP GOING ON ETC. 


2566 017562 


004737 


017176' 


50$: 


JSR 


PC.KTOFF 


1 DISABLE KT. 


2567 017566 


000207 




55$: 


RTS 


PC 




2566 














2569 








.SBTTL 


CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 


2570 






1 * 








2571 






I COMPARE MEMORY WITH A BACKGROUND PATTERN 


2572 














2573 






1 INPUTS: 






2574 














2575 








RO • BACKGROUND PATTERN 




2576 








FREE 


» FIRST LOCATION 


AVAILABLE TO DIAGNOSTIC 


2577 








KTFLG 


« SET TO HIGHEST 


MEMORY LOCATION IF > 28K» 


2578 














2579 






1 OUTPUTS: 






2580 














2581 








CARRY 


- SET IF NO ERROR 


2582 








CARRY 


- CLR IF ERROR 




2583 














2564 






I IMPLICIT OUTPUTS: 




2585 














2566 








ERRHI 


- ERROR HIGH ADDRESS 


2587 








ERRLO 


- ERROR LOW ADDRESS 


2588 








EXPO 


- EXPECTED DATA 




2589 








RECV 


^ RECEIVED DATA 




2590 






t - 








2591 017570 






CMPMEMi 








2592 017570 








SAVREG 




jSAVF RI-R5 UNTIL NEXT RETURN 


2593 017574 


010003 






MOV 


R0,R3 


iCOPY TEST PATTERN 


2594 017576 


004 737 


017176' 




JSR 


PC.KTOFF 


(DISABLE KT. 


2595 017602 


013701 


003114' 




MOV 


FRcE.Rl 


iGET FIRST FREE LOCATION 



TSV3 - GLOBAL AREAS MACRO M1113 01-FE»l-84 17J54 
CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 



J6 



SEQ 074 



2596 017606 


013702 


003116' 




MOV 


FRESIZ,R2 1 


2597 017612 


020311 




10$! 


CMP 


R5,CR1) 1 


2598 017614 


001411 






BEQ 


15$ 1 


2599 017616 


010137 


002230' 




MOV 


Rl.ERRLO I 


2600 017622 


005057 


002226' 




CLR 


ERRHI J 


2601 017626 


010337 


002222' 




MOV 


R3.EXPD I 


2602 017632 


011157 


002224' 




MOV 


(RD.HECV 1 


2603 017636 


000474 






BR 


50$ 1 


2604 017640 


005721 




15$ I 


TST 


CRD* ( 


2605 017642 


005502 






DEC 


P2 I 


2606 017644 


005362 






BGT 


10$ I 


2607 017646 


005737 


C03122' 




TST 


KTFLG ( 


2608 017652 


001472 






BEQ 


55$ ( 


2609 017654 


004737 


017160' 




JSR 


PC.KTON 1 


2610 017660 


005000 






CLR 


RO I 


2611 017662 


013701 


003142' 




MOV 


PST32W,R1 i 


2612 


000006 






.REPT 


6 


2613 








ROL 


Rl 1 


2614 








ROL 


RO 1 


2615 








.ENOR 




2616 017716 


042701 


000177 




BIC 


#177. Rl I 


2617 017722 


010046 






MOV 


RO,-CSP) 1 


2618 017724 


010146 






MOV 


Rl.-CSP) t 


2619 017726 


004757 


017220' 




JSR 


PC.SETMAP 1 


2620 017752 


010004 






MOV 


R0.R4 t 


2621 017734 


012601 






MOV 


(SP)*.R1 1 


2622 017736 


012600 






MOV 


CSP>,RO 1 


2623 017740 


020514 




501: 


CMP 


R3,CR4) I 


2624 017742 


001411 






BEQ 


32$ 1 


2625 017744 


01C037 


002226' 




MOV 


RO. ERRHI 1 


2626 017750 


010137 


002230' 




MOV 


Rl.ERRLO 1 


2627 017754 


010537 


002222' 




MOV 


R5.EXPD 1 


2628 017760 


011457 


0C2224' 




MOV 


(R4).RECV I 


2629 017764 


000A21 






BR 


50$ I 


2630 017766 


062701 


000002 


32$ I 


ADD 


P2,R1 1 


2631 017772 


005500 






ADC 


RO 1 


2632 017774 


062704 


000002 




ADD 


♦2,R4 I 


2633 020000 


020427 


160000 




CMP 


H4,»160000 1 


2634 020OO4 


103755 






6L0 


30$ t 


2635 020OO6 


162704 


020000 




SUB 


020000, R4 1 


2636 020012 


062737 


000200 172554 


ADO 


*200.8*KIPAR^ ) 


2637 020020 


023757 


172554 003122' 


CMP 


6WK IP AR6. KTFLG t 


2638 020026 


101744 






BL05 


30$ 1 


2639 020050 


0O4737 


017176' 


50$: 


JSR 


PC.KTOFF 1 


2640 020054 


000241 






CLC 




2641 020036 


00040;f 






BR 


60$ 1 


2642 020040 


004737 


017176' 


55$: 


JSR 


PC.KTOFF 1 


2643 020044 


000261 






SEC 




2644 020046 


000207 




60$! 


RTS 


PC 


2645 












2646 








•SBTTL 


REGSAV - SAVE Rl 


264 7 






t ♦ 






2648 






t 






.^649 






(ROUTINE TO 




^t,bO 






;?AVE 


Rl THROUGH R5 ON THE STACK 


.?fe51 






t 






2652 






iCALL 


[NG sifQuer 


JCE: 



SIZE OF FREE SPACE BELOW 28K . 

FREE SPACE LOCATION EQUAL TO EXPO? 

BR IF YES 

SAVE ADDRESS IN ERROR 

NO HIGH ADDRESS 

SAVE EXPO FOR ERKOR REPORT 

SAVE RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT7 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS (IN 32W BLOCKS) 

CONVERT BLOCKS TO WORDS 
MAKE IT DOUBLE PRECISION 

ALINE 4K BOUNDARY 

SAVE HIGH ORDER 

SAVE LOU ORDER 

SETUP PAR6 MAPPING REGISTER 

COPY ADDRESS BIASED TO PAR6 

RESTORE LOW ORDER IN NON PAR6 FORMAT 

RESTORE HIGH ORDER IN NON PAR6 FORMAT 

ABOVE 28K LOCATION EQUAL EXPO? 

BR IF YES 

SAVE HIGH ORDER IN ERROR 

SAVE LOU ORDER IN ERROR 

SAVE EXPD FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

UPDATE NON PAR6 ADDRESS 

MAKE IT DOUBLE PRECISION ADD 

UPDATE PA^ FORMAT ADDRESS 

END OF PAR6 MAPPING AREA? 

BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 

POINT TO NEXT 4K BLOCK >28K. 

END OF MEMORY? 

BR IF NO 

TURN OFF MEMORY MAPPING 

SET FAILURE 

TURN OFF MEMORY MAPPING 
SET SUCCESS 



I<6 



TSV3 - GLOBAL AREAS MACRO M1113 
REGSAV - SAVE Rl-rt5 ON STACK 



Ol-FEB-64 17:54 



SEQ 075 



265S 






I 






2654 








JSR 


R5, REGSAV 


2655 












2656 






iTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 


2657 






;THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 


2658 






;THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


2659 






(REGISTERS. 




2660 












2661 






J THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 


2662 






i CALLED 


VIA A JSR PC INSTRUCTION 


2663 












2664 






; - 






2665 












2666 


020050 




REGSAV: 






2667 


020050 


010446 




MOV 


R4.-CSP) 


2668 


020052 


010346 




MOV 


R3,-CSP) 


2669 


020054 


010246 




MOV 


R2.-CSP) 


2670 


020056 


010146 




MOV 


Rl.-(SP) 


2671 


020060 


010546 




MOV 


R5.-(SP) 


2672 


020062 


016605 000012 




MOV 


10.(3P).R5 


267S 


0t00*:.6 


004736 




JSR 


PC,a(SP)» 


2674 


020070 


012601 




MOV 


(SP)».R1 


2675 


020072 


012602 




MOV 


CSP)*,R2 


2676 


020074 


012603 




MOV 


(SP)».R3 


2677 


020076 


012604 




MOV 


ISP)*.R4 


2678 


020100 


012605 




MOV 


C5P)*.R5 


2679 


020102 


000207 




RTS 


PC 


2680 












2681 








.SBTTL 


GETPAT - GET 8 BIT PATTERN FROM OPERATOR 


2682 






J ♦ 






2683 












2684 






(ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 


2685 












2686 






(INPUTS 


4 




2687 












2688 








NONE. 




2689 












2690 






1 OUTPUTS: 




2691 












2692 








RO 


OCTAL NUMBER FROM THE OPERATOR 


2693 












2694 






IcALLItiG SEQUENCE: 


2695 












2696 








JSR 


PC. GETPAT 


2697 












2698 






t _ 






2699 












2700 


020104 




GETPATi 


. 




2701 


020104 






'SAVREG 


(SAVE THE GENERAL REGISTERS 


2702 


020110 




1'; 


GMANID 


DATASC.PATOAT, 0.377. 0,377, NO 




020110 


104443 




TRAP 


CIGMAN 




020112 


000406 




BR 


10000* 




020114 


020140' 




.UORD 


PATOAT 




020116 


000022 




.WORD 


TICODE 




020120 


020142' 




.UORD 


DATASC 




020122 


000577 




.UORD 


377 




020124 


000000 




.UORD 


TJLCLIM 



L6 



TSV3 GLOBAL ARtAS 


MACRO r- 


GETPAT 


- GET 8 


BIT PATTERN FRC 




020126 


000377 






020130 






2703 


020130 








020130 


103367 




27C4 


020132 


013700 


020140' 


2705 


020156 


000207 




2706 








2707 








2708 








2709 








2710 








27U 


020140 


000000 




2712 


020142 


105 


116 


2713 








2714 








2715 








2716 








2717 








2716 








2719 








2720 








2721 








2722 








2723 








2724 








2725 








2726 








2727 








2728 








2 729 








2730 








2731 








2732 


0.^0166 






2733 


020166 






2734 


020172 


010002 




2735 


020174 


010203 




2736 


020176 


005713 




2737 


020200 


001.412 




2736 


020202 








020202 


012346 






020204 


012746 


020352 




020210 


012746 


000002 




020214 


010600 






020216 


104417 






020220 


062706 


000006 


2739 


020224 


000764 




2740 


020226 








020226 


104443 






020230 


000406 






020232 


020406' 






020234 


000042 






020236 


020357' 






020240 


177777 






020242 


000000 






020244 


177777 






020246 






2741 


020246 







M1115 Ol-FEB-84 17:54 
OPERATOR 



SEQ 076 



10000$: 



.WORD T$HILIM 

BNCOMPLETE li 
PCC U 
MOV PATOATiRO 
RTS PC 



I RETRY IF ERROR 

(DATA PATTERN FROM OPERATOR 
I RETURN TO CALLER 



i LOCAL DATA AREA 

i - 

PATDAT: .WORD 



I TEMPORARY STORAGE FOR DATA 



124 DATASC: .ASCIZ 'ENTER DATA PATTERN' 
.EVEN 

,SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 



ROUTINE TO ISSUE A MENU AND GET 
THE OPERATOR'S RESPONSE. 



INPUTS: 

RO 
Rl 

OUTPUTS: 

RO 



ADDRESS OF ASCIZ STRING OF MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 



NUMBER OF THE OPERATOR'S SELECTION 



GETSEL 



li 
2$ 



3$: 



10001$ 



SAVREG 

MOV 

MOV 

TST 

BEQ 

PRINTF 

f-rOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

GMANID 

TRAP 

BR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



R0.R2 

R2,R3 

(fl3) 

3$ 

*SELASC,(R3)f 

(R3)».-CSP) 

OSELASC, -CSP) 

*2. -cr.p) 

SP.RO 

C$PNTF 

<r6.SP 

2$ 

MENASC,MENRE5,D,-1.0.-1,N0 

C$GMAN 

10001$ 

MENRES 

TtCCDE 

MENA3C 

-I 

T$L0LIM 

TIHILIM 



(SAVE GENERAL REGISTERS 

(SAVE THE MENU ADDRESS 

I START OF MENU STRING 

jENO OF ASCII ? 

I BRANCH IF ALL LINES DISPLAYED 

(DISPLAY THE MENU 



BNCOMPLETE 



1$ 



iREiRY IF ERROR 



TSV3 - GLOBAL. AREAS MA( 
GETSEL - ISSUE MENU AND g! 



;ro 



T" OPERATOR P.ESPON! 



17:54 



M6 



SEQ 077 



2742 
274i 
2744 
2745 



2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
276? 
276T 
2764 
2765 
2766 
2767 
2768 
2769 
27 70 
2771 
2772 
2773 
2774 
2775 
.-^776 
2777 
2778 

2779 
2780 



020246 
020250 
020254 
020256 
C 20260 
020260 
020264 
020270 
020272 
020274 
020300 
020302 
020304 
020352 
020557 



2781 
2782 
2783 
278: 
2785 



103352 
013700 
020001 
101411 

012746 

012746 

010600 

104417 

062706 

000735 

000207 

045 

045 

105 



020406 000000 



020410 
020410 
020414 
020414 
020416 
020416 
020420 
020420 
020424 
020430 
020432 
020434 
020440 
020442 

020444 



104450 

103411 

012746 
012746 
010600 
104417 
062706 
000241 
000207 

045 



020406' 



020304 
000001 



000004 



116 
116 
156 



(GET THE OPERATOR'S REPLY 
(COMPARE TO MAXIMUM ALLOWED 
I BRANCH IF OK 
(DISPLAY ERROR MESSAGE 



045 
045 
164 



BCC 1 ♦ 

MOV MENRES.RO 

CMP RO.Rl 

BlOS 5$ 

PRINTF *MENERR 

MOV *MENERR. -CSP) 

MOV Ol.-CSP) 

MOV SP.RO 

TRAP CIPNTF 

ADD *4 , SP 

BR U iRETRY 

5J: RTS PC (RETURN TO CALLER 

MENERR: .ASCIZ ' i<Ni<A ♦** Menu Selection Too Large ♦*♦• 

SELASC: . ASCIZ '^NKT' 

MENASC: .ASCIZ 'Enter Menu Selection: ' 

.EVEN 

MENRES: .WORD 

.SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 



ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY, 
INPUT : 



NONE. 



OUTPUT: 



CARRY 



SIDE EFFECTS: 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTIOtJ IS OK 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED. 



; - 

CHKMAN: 



SAVREG 

MANUAL 

TRAP C$MANI 

BCOMPLETE li 



020444' 
000001 



000004 



116 



045 



NOMAN: 



BCS 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADC 

CLC 

RTS 

.ASCIZ 
.even 



li 

*NOMAN 

^iOMAN,-CSP) 
01. (SP) 
SP.RO 

CJPNTF 
*4.SP 

PC 



J SAVE THE REGISTERS 

J SEE IF MANUAL INTERVENTION OK 

jBRANCH IF Allowed 

(PRI.^T Thr WARNING MESSAGE 



t CLEAR CARRY FOR ERROR 

jRFTLtRN 



' i(N«<A *♦• Manual Intervention not Allowed - Test Aborted ♦*** 



N6 



TSV5 - GLOBAL AREAS MACRO M1113 01-FEB-a4 17:5A 
CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 



SEQ 078 



2786 
2787 
2788 
2789 
2790 
2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

280C 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

2815 

2816 

2817 

2838 

2819 

2820 

2821 

2822 

2823 

2824 

2925 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2853 

2834 

2835 

2856 

2857 

283c; 

2839 

2840 

2841 



020540 
020540 
020542 
020546 
020554 
020560 
020566 
020572 
020600 
020602 
020604 
020610 
020614 
020620 
020624 



020626 
020626 
020632 
020636 
020644 
020646 
020654 
020656 
020662 
020670 
020674 
020676 
020704 
020712 
020716 
0207<>0 
020724 
020732 
020734 
020740 
020744 
020746 
020752 

020754 
020760 



104431 
010037 
062737 
011037 
162737 
013702 
162737 
005302 
001373 
013700 
063700 
162700 
010037 
000207 



005037 
005037 
023727 
101453 
023727 
101447 
^' 13700 
012737 
005737 
000240 
013737 
042737 
010037 
005000 
012701 
012761 
010021 
062700 
020027 
001367 
r-12741 
000410 

01271*^ 
000002 



003114' 

000002 

003116' 

000004 

002012' 

000007 



003114' 
003116- 
000002 
003120' 



003122' 
003124' 
002120' 

002120' 

000004 

020754' 

177572 

002120' 

000177 

000004 

172340 
077406 

000200 
002000 

177600 



020770' 



.5BTTL ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 



003114' 

003116 

003116 



ENVIRN: MEMORY 
TRAP 
MOV 
ADD 
MOV 
SUB 
MOV 

10$: SUB 
DEC 
BNE 
MOV 
ADD 
SUB 
MOV 

40$: RTS 



RO 

CI MEM 

RO.FREE 

02.FREE 

CRO),FRESIZ 

44,FRESIZ 

L$UNIT.H2 

^>7.FRESIZ 

R2 

10$ 

FREE.RO 

FRESIZ.RO 

<>2.R0 

RO.FREEHI 

PC 



J GET 1ST FREE ADDRESS. . . 

; ... AND WORD COUNT . 

i GET NUMBER OF UNITS 

I TAKE AWAY 7 WORDS PER UNIT 



iGET FIRST FREE ADDRESS 

(POINT TO LAST FREE ADDRESS 

iBACKU»> 1 WORD 

; STORE LAST FREE ADDRESS 

jPETURN 



.SBTTL KTINIT - SETUP KTll MEMORY MANAGEMENT REGISTERS 
ROUTINE TO INIT KT-11 



KTINIT: 



001577 
001777 

000004 



00^122' 
003122' 



177740 1$: 



020762 012716 021016 



2$: 



3$: 



CLR 

CLR 

CMP 

BLOS 

CMP 

BLOS 

MOV 

MOV 

TST 

NOP 

MOV 

BIC 

MOV 

CLR 

MOV 

MOV 

MOV 

ADD 

CMP 

BNE 

MOV 

BR 

MUV 
RTI 



MOV 



KTFLG 

KTENABLE 

L$HIME.*15('7 

9$ 

LIHIME. 01777 

9» 

O^RRVECRO 

02$.0<?ERR^'EC 

QOSRO 

LiHiME.KTFLG 

01 77. KTFLG 

RO.aOERRVEC 

RO 

OKIPARO.Rl 

077406. -40CR1) 

RO.(Rl)* 

0200, RO 

RO. 02000 

1$ 

0177600, -(Rl) 

9$ 

06$. (SP) 



010$. (SP) 



I INIT >2eK MEMORY FLAG 

; INIT TEST >28K FLAG 

i GOT ENOUGH MEMORY C>28K)? 

J NO. 

( GOT ENOUGH MEMORY (>32K)? 

I NO. 

; SAVE OLD ERR VEC PTR. 

i SET ERR VEC PTR. 

i GOT KTll? 

I (TRAP IF NO). 

I YES. SET KT FLAG. 

\ RESTORE OLD ERR VEC PTR, 

J RO • AR DATA. 

I Rl ■ KI REGS PTR. 

i SET DESCRIPTOR REG. 

i SET KIPMR REG. 

I BUMP AR DATA BY "4K". 

( AT "I/O"? 

i NO. 

I YES. SET KTPAR7 FOR I/O, 



i SET UP RETURN 

J RTI TO NEXT LOCATION 



i SET UP RETURN 



B7 



TSV5 - GLOBAL AREAS 
KTINIT - SETUP KTU 



MACRO M1U3 Ol-rEB-84 I7i54 
MEMORY MANAGEMENT REGISTERS 



SEQ 079 



2842 
2845 
2844 
2845 
2846 
2847 
2848 
^849 
2850 
2851 
2852 
2855 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2865 
2864 
2865 
2866 
2867 
2858 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 

2ee2 

2884 

2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 



020766 

020770 

020774 
020774 
021000 
021006 
021014 
021016 
021022 



021024 

021024 
021050 
021032 
021040 
021046 
021054 
021062 
021066 
021072 



021074 

021100 
021102 
021104 
021106 



021110 
021112 
OiiiiJ.4 



000002 
010057 



013700 
012737 
042737 
000240 
010057 
000207 



005757 
001020 
012737 
012737 
012737 
012737 
012704 
004737 
000207 



000000 
000000 
000000 
000000 



000000 

oooooo 

000000 



000004 



000004 

020762' 000004 
000001 170200 

000004 



6l! 

9$ I 

101: 



RTI 
MOV 



MOV 
MOV 
SIC 
NOP 
MOV 
RTS 



RO.SOERRVEC 



0«ERRVEC.RO 

«3I.0«ERRVEC 

0eiT0,8*MMR0 

RO,&«ERRVEC 
PC 



I RTI TO NEXT LOCATION 

I RESTORE OLD ERR VEC PTR. 



I SAVE OLD ERR VEC PTR. 

I SET ERR VEC PTR. 

iBE SURE UNIBUS MAP IS OFF 

I RESET VECTOR BACK TO ERROR POINTER 



SUBROUTINE TO SET EXTENDED FEATURES SWITCH 

Rtquirt* that SOFINIT w^k^ WRTCHR hav* b«cn c»on« previous to coll 



INPUTS: 

R5 
OUTPUTS: 

The Extended Features SMitch is set. 



CURRENT UNIT NUMBER 



INVERT : : 



002216' 

100206 
021110 
000006 
lOOOlO 
021100 
010562 



021100* 
021102' 
021106' 
021110' 



U: 



TST EXTFEA 

BNE II 

MOV #100206, CMOPKT 

MOV ♦WSMBK.CM0PKT»2 

MOV #6. CMOPKT ^6 

MOV ♦lOOOlO.USMBK 

MOV ♦CMOPKT. R4 

JSR PC, WRTCHR 

RTS PC 



COMMAND PACKET. 

.BLKB lO-<. -TSV2t7> 



IS SWITCH SET? 

YES. EXIT STAGE RiGHTJCor the next one outa town!) 

WRT SU6-SYS MEM CMO 

MSG BUF ADDR 

BYTE COUNT 

INVERT THE SWITCH 

SET CMOPKT INTO R4 

DO IT 

RETURN 



CMOPKT; ! 






1 1ST WORD IS TS05 COMMAND. 

i2N0 WORD IS THE BUFFER LOW ADDRESS. 

|5RD WORD IS ThC BUFFER HIGH ADDRESS. 

|4TH WORD IS THE BYTE/RECQRO/I^ILE CQU^iT» 



Wf.iTE SU6*&YSTtM MEMORY CHARACTERISTIC BLOCK, 



WSM8K; 



I* 






.EVEN 



1 1ST WORD: : 5EL 
t2N0 WORD: : SEL 2 
1 3RD WORDn SEU 4 



TSV5 
KT 



INIT 



KLOBA 



Vu^^''^'?hMEM86?«MAi^^EN?^Rl§5s?gRi 



C7 



7:5a 



SEQ 080 



2901 
290^ 

^V03 
2904 

2<>06 
2907 
^908 
2909 
2910 
2911 
2912 
2915 
2914 
.-915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2926 
2929 
2950 
2951 
2932 
2933 
2954 
2935 
2956 
2957 
2958 
2939 
2940 
2941 

2942 



294 5 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
295a 



021116 

021116 
021122 
021126 
021152 
021156 

021144 
021146 
021152 
021154 
021162 
021164 
021170 
021172 
021176 
021200 
021206 
021210 
021216 
021220 
021224 
021226 
021234 
021256 
021242 
021250 
02 1256 
021260 
021264 
021266 
021270 
021270 
021274 
021500 
021^102 
021304 
021310 



005057 
005057 
005057 
052757 

001050 
005757 
001407 
025727 
105406 
004757 
000427 
005757 
001413 
023727 
101027 
025727 
105403 
004737 
000411 
0237£7 
105414 
004737 
062737 
032757 
001014 
005237 
000411 
000410 

012746 
012746 
010600 
104417 
062706 
00Q207 



SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 



INPUTS: 
OUTPUTS: 

Th« 
Th« 



NXHTLG !« Mt If H« can t««t. 
NXr^O and NXMHI addr^stifto srt fi«tup 



MEMCK: i 



003126* 
003150' 
003132' 
170000 



003156' 

002120' 

021512' 

005154' 

002120' 

002120 

021312 

002120 

021512 
000077 

177774 

003126 



005450 
000001 



000004 



002120' 

007777 

II: 
005777 2»: 
003777 

001577 4$: 



005152' 
005152' 15$: 



14f ! 



15*: 



SAVREG 

CLR NXMFLG 

CLR NXMLO 

CLR NXMHX 

BIT #170000,LIHIME 

BNE 141 

TST T23B 

BEQ 1» 

CMP LIHIME. 07777 

BLO 21 

JSR PC.NXMTST 

BR 15* 

TST T25A 

BEQ 41 

ChP LIHIME,*5777 

BHI 14 t 

C«P LIHIME, 65777 

BLO 41 

JSR PC.NXMTST 

BR 15> 

C«P LIHIHE, 01577 

BLO 14» 

JSR PC.NXMTST 

ADO *77, NXMHI 

BIT •177774, NXMHI 

BNE 151 

INC NXMFLG 

BR 151 

BR 151 

PRTNTF ONOMtM 

MCV ONOMEM.-CSP) 

MOV *1,-(SP) 

MOV SP.RO 

TRAP CIPNTF" 

ADO 04 , SP 

RTS PC 



SAVE THE REGISTERS 

CLEAR THE FLAG 

CLEAR THE TEST ADDRESS LO 

CLEAR THE TEST ADDRESS HI 

CHECK FOR MORE THAN IS BITS U43ICATED 

FROM THE SUPERVISOR 

BR. IF* MAP BOX ETC. 

IS IT A PROCESSOR TYPE B? 

NO 

GREATER THAN 128K 

NO 
SETUP THE ADDRESS 
SET THE FLAG AND EXIT 
IS IT A PROCESSOR TYPE A? 
NO 

GREATER THAN 96K 
YES,25A/25B WITH l2eK MEMORY 
GREATER THAN 64K BUT LESS THAN 92K? 
NO. CHECK 24K 
SETL'P THE ADDRESS 
SET THE FLAG AND EXIT 
GREATER THAN 24K BUT LESS THAN 64K? 
NO. TELl. THEM AND EXIT WITH FLAG CLEAR 
SETLP THE ADDRESS 
FOOL THE 11/02 6 11/05 
ANY HORE THAN 18 BITS SET? 
BR. IF MORE THAN 18 BITS SET 
SET THE FLAG 
EXIT 

NOP FOR PRINTOUT 
TELL THEM fi EXIT ♦••NO PRINT***** 



RETURN 



SUBROUTINE TO SETUP THE NXM ADDRRSS FOR TESTING 
OUTPUTSiNXMLO, NXMHI (SETUP WITH NXM ADDRESS 
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D7 



SEQ 081 



?953 021512 


015701 


002120' 


NXMTST; MOV 


LIHIME.RI 


2954 021516 


062701 


000200 


ADD 


*200,fil 


2955 021522 


042701 


000177 


BIC 


#177. Rl 


2956 021526 


010102 




MOV 


R1,R2 


2957 


000006 




.REPT 


6 


2958 






A5L 


Rl 


2959 






.ENDR 




J960 021544 


010157 


005130' 


MOV 


Rl.NXMLO 


2961 


000012 




.REPT 


10. 


2962 






ASR 


R2 


2963 






.ENOR 




2964 021574 


042702 


177700 


BIC 


0177700. R2 


2965 021400 


010257 


003132' 


MOV 


R2,NXMHI 


2966 021404 


000207 




RTS 


PC 


2967 










2968 










2969 










^970 











I GET TOP OF MEMORY 

I MAKE IT I/O BLOCK OR OTHER NXM 

iRESAVE RESULTS 

iPUT IN PLACE FOR XFER 

tSAVE TEST ADDRESS LOW 

I PUT IN PLACE FOR XFER 

iDON' T WANT ILA! 

I SAVE TEST ADDRESS HIGH 

(RETURN 



2971 021406 



ENDMOD 



E7 
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SEQ 082 



6 

7 
8 

9 
15 
16 
17 

16 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 

35 
36 
37 
38 
39 
40 
41 



42 

43 
^4 
45 
46 
47 
48 
49 
50 
51 
52 
53 



54 



55 

56 



021406 
021406 



021406 
021406 
021406 
021416 



021416 
021416 
0214 IC 
02142? 
021426 
021454 
021440 
021444 
021450 
021450 
021454 
021456 
021456 
021460 
021466 
021470 
021474 
021476 
021502 
021504 
021510 
021512 
021520 
021522 
021522 
021524 
021526 
021526 
021532 
021554 
021554 
021536 



005037 
005057 
012737 
005057 
005037 
005037 

012700 
104447 

103023 
025737 
105070 
005737 
100472 
015701 
006301 
005761 
001516 
052761 
001060 

104432 
000416 

012700 
104447 

103052 



TSV4j: 



.TITLE TSV4 - MISCELLANEOUS SECTIONS 
BGNMOD TSV4 



.SfiTTL PROTECTION TABLE 
BGNPROT 
LJPROT:! 
177777 177777 177777 .WORD -1, -1, -1, -1 

ENOPROT 

,SBTTL INITIALISE SECTION 



iNO DEVICE PROTECTION REQUIRED. 



J THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERroRMED 

I AT THE BEGINNING Of EACH PASS. 

; 

(IF 
I IF 
I 
I -- 

(INSERT TEMPORARY JUMP TO ODT 



"START" OR "RESTART". SET QUICK-PASS FLAG AND BUS-INIT. 
"CONTINUE". NOTHING IS REQUIRED. 



002216' 
003126' 
006166' 
003144' 
003124- 
002272' 

000036 



002172' 
003102' 
002172' 
003166' 
040000 



I - 

LIINIT: 
40$: 



002170 



BGNINIT 

I 

CLR 

CLR 

MOV 

CLR 

CLR 

CLR 

READEF 

MOV 

TRAP 



EXTFEA 

NXMTLG 

OEPRTl.EPRTSW 

SIFLAG 

KTENABLE 

RAMSIZ 

«EF. CONTINUE 

♦EF.CONTINUE.RO 

CIREFG 



I SET UP PRIMARY MESSAGE FOR REPLACEMENT 

iCLEAR "SOFT INIT" FLAG 

(CLEAR TEST ABOVE 28K FLAG 

I CLEAR RAM SIZE FOR RAMtHR ROUTINE 



002012 



003166 



000035 



II 



BNCOMPLETE II 

BCC II 

CMP UNITN.LIUNIT 

BHIS 41 

TST DUFLG 

BMI hXTU 

MOV UNITN.RI 

ASL Rl 

TST ERTABLCRl) 

BEQ SETU 

BIT «IT14, ERTABLCRl) 

BNE NXTU 

EXIT INIT 

TRAP CIEXIT 

.WORD L10030-. 

READEF OEF.NEW 

MOV »EF.NEW,RO 

TRAP CIREFG 

BNCOMPLETE NXTU 

BCC NXTU 

READEF *EF. START 



(UNIT IN RANGE? 
;BR IF NO. 
(DROPPED UNIT? 
(BR IF YES 



(DROPPED? 

(00 NOTHING IF "CONTINUE". 



[TAKE NEXT UNIT IF NOT NEW PASS. 
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SEQ 083 



021536 
021542 

57 021544 
021544 

58 021546 
021546 
021552 

59 021554 
021554 

60 021556 

61 021556 
021556 

62 021560 

63 021564 

64 021570 

65 021574 
66 

67 
68 

69 021600 

70 021604 

71 021604 

72 021612 
75 021616 

74 021622 

75 021626 

76 021630 

77 021634 

78 021636 

79 021640 

80 021644 
61 

82 021650 

83 021650 

84 021656 

85 021662 
021662 

66 021664 

87 021670 

88 021676 

89 021700 

90 021706 

91 021710 
021710 

92 021712 

93 021714 

94 021714 

95 021722 

96 021724 

97 021730 

98 021732 
021732 

99 021734 
100 021740 
101 

102 021742 
021742 



012700 
104447 

103404 

012700 
104447 

103031 



104433 
005037 
005037 
005037 
005037 



000040 



00003V 



2*1 



002204' 
002212' 
003134' 
003136' 



0050S7 003370 



012737 
004737 
004737 
012700 
005020 
020027 
103774 
000404 
005037 
000137 



012737 
005037 

104422 
005237 
023737 
103423 
012757 
000401 

104444 
000240 

023727 
101752 
005737 
001747 

104421 
032700 
001343 



104424 



177777 
020540 
020626 
003166 

003366 



002174 
021714 



002174 



t 

t 
I 

20$: 



30$: 



31$: 



177777 002172' 
002210' 



002172' 
002172' 002012' 

177777 003102' 



4i: 

NEWPAS: 

NXTU; 



002012' 000001 
002210' 

OOOIOO 



11$: 

PASRRT; 



MOV *EF. START, RO 

TRAP C$REFG 

BCOMPLETE 2$ 
pre PI 

READEF <^EF, RESTART 
MOV *EF. RESTART, RO 
TRAP C$REFG 
BNCOMPLETE 31$ 
BCC 31$ 



BRESET 

TRAP 

CLR 

CLR 

CLR 

CLR 

MOV 

MOV 

JMP 

CLR 

MOV 

JSR 

JSR 

MOV 

CLR 

CMP 

BLO 

BR 

CLR 

JMP 



MOV 

CLR 

BREAK 

TRAP 

INC 

CMP 

BLO 

MOV 

BR 

DOCLN 

TRAP 

NOP 

CMP 

BLOS 

TST 

BEQ 

RFLAGS 

TRAP 

BIT 

BNE 

DORf'T 
TRAP 



C$RESET 

TSTCNT 

FATFLG 

T23A 

T23B 

*340,-CSP) 

♦20$.-(SP) 

O.OOT 

SKIPT 

*-l,QVP 

PC.ENVIRN 

PC.KTINIT 

*ERTABL,RO 

CRO)» 

RO.^ERTABE 

30$ 

4$ 

QVP 

PASRPT 



*-l.UNITN 
DEVCNT 

C$BPK 

UNITN 

UNITN.L$UNIT 

SETU 

*-l,DUFLG 

11$ 

C$DCLN 



L$UNIT,*1 

NEWPAS 

DEVCNT 

NEWPAS 

RO 

C$RFLA 

♦ISR.RO 

NEWPAS 



ilST PASS. BUS-INIT... 
iBUS RESET. 

(NUMBER OF TESTS RUN IN PASS 
(CLEAR FATAL ERROR COUNT 
(CLEAR PROCSSOR TYPE A FLAG 
I CLEAR PROCSSOR TYPE B FLAG 

I RE TURN TO DEBUGGER 
tiSQENTER THE DEBUGGER 
(CLEAR THE SUBTEST "SKIPPER" 

I. . .QUICK VERIFY.. . 

(SET ENVIRONMENT. 

(INITIALIZE KT MEMORY MANAGEMENT 

(CLEAR THE ERROR TABLE 



IGO REPORT THE STATUS 



tINIT UNIT NUMBER. . . 

(CLEAR COUNT OF DEVICES RUNNING 



(...AND SET NEXT UNIT NUMBER, 



(ABORT, NO MORE UNITS, 



(HOW MANY UNITS SELECTED? 
(BR IF ONLY 1 
(ARE ANY STILL RUNNING? 
I BR IF NO 



(SHOULD WE PRINT STATISTICS 
(BR IF NO 



C$ORPT 
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103 021744 

104 021746 
105 

106 021746 
021746 
021752 

107 021754 
021754 

106 021756 

109 021762 

110 021766 

111 021770 
112 

113 021774 

114 

115 

116 021776 

117 022002 

118 022006 
119 

120 022012 

121 

122 

123 

124 

125 

126 

127 

128 022012 

129 022016 

130 022020 

131 022026 

132 022032 

133 022040 
154 022042 

022042 

135 022044 

136 022050 

137 022052 
022052 
022056 
022062 
022066 
022070 
022072 

138 022076 

139 0220V6 

140 022102 

141 022106 

142 022110 

143 022114 

144 022120 

145 022122 

146 022126 

147 022134 
148 

149 



000741 



013700 
104442 

103342 
005037 
005237 
012001 
010137 

012001 



010137 
012721 
013721 



013701 
006301 
052761 
005037 
023727 
101416 

104421 
032700 

00:l412 

013746 
012746 
012746 
010600 
104417 
062706 

005037 
013701 
010102 
062702 
004737 
103005 
010137 
012737 



002172 



003102 
002210 

002176 



002200 
016116 
002202 



002172 
022144 
000002 



000006 

003104' 
002176' 

000002 
016276 

003104 
177777 



MACRO M1113 


Ol-FEB-84 


17 1 54 




BR 


NEWPAS 


10$: 






SETUi 


GPHARD 


UNITN.RO 




MOV 


UNITN.RO 




TRAP 


C$GPHRD 




BNCOMPLETE NXTU 




BCC 


NXTU 




CLR 


DUFLG 




INC 


DEVCNT 




MOV 


CR0)».R1 




MOV 


Rl.CSRADDR 




MOV 


CR0)*,R1 




iMOV 


CR0),R2 




I MOV 


R2.IPRI 




MOV 


Rl.IVEC 




MOV 


<HNTR.(R1)* 




MOV 


IPRI.CRD* 


li: 






) 


TST 


QVP 


t 


BEQ 


5$ 



SEQ 084 



(GET UNIT N P-TABLE POINTER. 

iBR IF UNIT NOT AVAILABLE. 

I CLEAR "DROPPED" FLAG. 

jGET 1ST REGISTER ADDRESS. 

(ADDRESS OF REGISTERS OF UNIT UNDER TEST 

»GET VECTOR ADDRESS. 

(GET INTERRUPT PRIORITY 

iSET INTERRUPT PRIORITY. 

tSET INTERRUPT VECTOR POINTER... 

(...VECTOR... 

I... AND PRIORITY. 



1 1ST PASS ?? 

I NO, SKIP THE PASS 1 STUFF. 



1 1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, ANO 
(THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 



002172- 

100000 003166 
005600' 
002012' 000001 



001000 



; 



10$: 



003102 



2$! 



MOV UNITN.Rl 

ASL Rl 

BIS #6IT15.ERTABL(R1) 

CLR EXTA 

CMP L$UNIT,01 

BLOS lOi 

RFLAGS RO 

TRAP C$RFLA 

BIT #PNT.RO 

BEQ 10$ 

PRINTF #PUNIT,UNITN 

MOV UNITN.-(SP) 

MOV OPUNIT,-(SP) 

MOV 02.-CSP) 

MOV SP.RO 

TRAP C$PNTF 

ADD ♦6,SP 

CLR NOOEV 

MOV CSRAODR.Rl 

MOV R1.R2 

ADO «TSSR.H2 

JSR PC.XNXM 

BCC 2$ 

MOV Rl.NODEV 

MOV #-1.0UFLG 



I SAY DEVICE RUNNING 

(CLEAR ERROR EXTENSION FLAG. 

(ARE WE TESTING MULTIPLE UNITS? 

(BR IF NO. 

(YES -- GET OPERATOR FLAGS. 

(SHOULD WE PRINT UNIT #? 
(BR IF NOT. 
(PRINT THE UNIT tf 



(ADDRESS OF FIRST REGISTER 

(START OF REGISTERS 

(ADDRESS OF TSSR REGISTER 

(TEST BOTH CONTROLLER REGISTERS,. 

(. . .AND BR IF ALL OK. 

(FLAG DEVICE AS NON-EXISTENT 

(DROP THIS UNIT. 



(FINALLY, SET CPU PRIORITY ANO WE'RE DONE. 
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SEQ 085 



150 

151 022134 
022154 
022140 

152 022142 
022142 
022142 

153 

154 022144 

155 

156 

157 

150 

159 

160 

161 

162 

163 

164 022212 
022212 

165 022212 

166 022214 

167 022216 

168 022224 

169 022232 
022232 
022234 
022240 
022244 
022246 
022250 

170 022254 
022254 
022256 

171 022260 
172 

173 

174 022306 
022306 
022306 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 022310 
022310 

187 022310 

188 022316 

189 022320 

190 022322 



012700 
104441 



104411 
045 



010001 
006301 
052761 
042761 

010046 
012746 
012746 
010600 
104417 
062706 

000167 

000026 

045 



104452 



012737 
OlOOOl 
006301 
052761 



I 
5$: 



000000 



116 



045 



SETPRI 
MOV 
TRAP 
ENOINIT 

TRAP 

.ASCIZ 
• EVEN 



#PRIOO 

*PRIOO,RO 

CJSPRI 



I ENABLE INTERRUPTS, 



CIINIT 

/f«Ni<N*«A**4.** TESTING UNIT i*D2>*A *♦♦♦♦/ 



L 10030: 
PUNIT: 

J THE ADD-UNIT SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 

I TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME. 

; OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 

I '- 



.SBTTL ADD AND DROP UNITS SECTIONS 



L*AU! 



6GNAU 



100000 
040000 



022260 
000002 



000006 



116 



003166* 
003166' 



045 1* 



MOV 


RO.Rl 


ASL 


Rl 


BIS 


#100000, ERTABLCRl) 


BIC 


#40000, ERTABLCRl) 


PRINTF 


#11, RO 


MOV 


RO.-CSP) 


MOV 


#1$,-CSP) 


MOV 


#2,-CSP) 


MOV 


SP.RO 


TRAP 


CtPNTF 


ADD 


#6.SP 


EXIT 


AU 


.WORD 


JUMP 


.WORD 


L10031-2-. 


.ASCIZ 


/«<N*<A UNIT HO^f^ ADDED/ 


.EVEN 




ENOAU 


I UNUSED. 


TRAP 


CIAU 



I GET UNIT TO BE ADDED CRO) 
J MAKE IT A WORD INDEX 
I SET THE "ACTIVE" BIT 
J CLEAR THE "DROPPED" BIT 



L10031 



THE DROP -UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPVSR DOES THE "DROPPING". THIS IS JUST TO TELL THE MAN. 
"DROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADD" 
COMMAND. OTHERWISE REMAIN INACTIVE. THE "DISPLAY" COMMAND 
WILL PRINT ALL DROPPED UNITS, AND THE P- TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 
UPON ENTRY. RO CONTAINS THE UNIT TO BE DROPPED. 



177777 
140000 



003102 
003166 



L$DU: : 



BGNOU 



MOV 


#-l,DUFLG 


MOV 


R0,R1 


ASL 


Rl 


BIS 


#140000. ERTABL(Rl) 



I SAY DROPPED 
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SEQ 086 



191 022330 

192 022336 
022336 
022340 
02234A 
022350 
022352 
022354 

193 022360 
022360 
022362 

194 022364 
I'^S 

196 022414 
022414 
022414 

197 

198 

199 

200 022416 
022416 

201 022416 

202 022422 

203 022426 

204 022432 

205 022434 
022434 
022440 
022442 
022446 
022450 
022454 
022456 
022462 

206 022464 

207 022466 

208 022470 

209 022474 

210 022474 
022474 
022474 

211 
212 
213 
214 
215 
216 
217 
218 

219 022476 
022476 

220 022476 

221 022502 

222 022506 
22t 

224 

225 022510 



000240 000240 000240 



010046 
012746 
012 •'46 
010600 
104417 
062706 

00016 7 

000030 

045 



104453 



013705 
012703 
004737 
103420 

012727 
000000 
013727 
OOOOOO 
005367 
001375 
005367 
00136'' 
005303 
001357 
004737 



104461 



013705 
005737 
100405 



022364- 
000002 



000006 



116 



045 



002176 
000550 
016150 



000372 
002116' 
177772 
177756 

017104' 



002176' 
003102' 



240,240 


.240 1 ????????? 


PRINTF 


*1$,R0 


MOV 


RO,-CSP) 


MOV 


«1I,-(SP) 


MOV 


#2,-(SP) 


MOV 


SP.RO 


TRAP 


CIPNTP 


ADD 


#6.SP 


EXIT 


DU 


.UC^D 


JUMP 


.WORD 


L10032-2-. 


1$: .ASCIZ 


/KNKA UNIT KDtfA DROPPED/ 


.EVEN 




ENODU 




L 10032; 





TRAP 



CJDU 



I AUTO -DROP CODE SECTION. 

BGNAUTO 
L*AUTO: 

10»: 



MOV 

MOV 

JSR 

BCS 

DELAY 

MOV 

.WORD 

MOV 

.UORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

JSR 

ENOAUTO 

TRAP 



CSRADDR.R5 

#360., R3 

PCWAITF 

20$ 

250. 

#250., CPO* 



LIDLY.CPO* 



-6CPC) 

.-4 

-22CPC) 

.-20 

R3 

101 

PCCKDROP 



iPOINT TO DEVICE REGISTER 

(ENOUGH TIME FOR 240 REEL TO REWIND 

(WAIT FOR SSR TO SE I 

(LEAVE WHEN SSR IS StT 

tWAIT FOR .25 SECONDS 



iBUiP COUNTER DOWN 

I KEEP GOING 

I TRY AND DROP UNIT 



I UNUSED. 



CSAUTO 



20*: 
L 10033! 

I ♦♦ 

J THE CLEANUP CODING SECTION CONTAINS THE COOING THAT IS 

X EXECUTED AT THE END OF EACH PASS COR SUB-PASS). 

I USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 



.SBTTL CLEAN-UP AND REPORT CODING SECTIONS 



012765 OOOOOO 000002 



BGNCLN 
L$CLtAN:: 

MOV 
TST 
BMI 



MOV 



CSRADDR,R5 

DUFLG 

1$ 



00,TSSR(R5) 



iPOINT TO DEVICE REGISTER 
I "DROPPED" FLAG IS SET ON... 
I ... AND GROSS CONTROLLER FAULT . . . 
I... DON'T "RY TO XCT CLEANt)P CODE 

iDO SOFT INIT 
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SEQ 087 



226 022516 

227 022522 

228 022522 
022522 
022522 

229 
230 
231 
232 

233 022524 
022524 

234 022524 
022524 
022530 
022534 
022536 
022540 

235 022544 

236 022546 

237 022550 

238 022552 

239 022556 

240 022560 

241 022562 

242 022564 

243 022566 

244 022572 

245 022574 

246 022600 
022600 
022602 
022604 
022610 
022614 
022616 
022620 

247 022624 

248 022626 

249 022632 

250 022634 
022634 
022636 
022642 
022646 
022650 
022652 

251 022656 

252 022660 

253 022664 

254 022666 
022666 
022670 
022674 
022700 
022702 
022704 

255 022710 



004737 016150' 



104412 



012746 
012746 
010600 
104416 
062706 
010246 
010346 
010446 
012704 
005003 
011402 
001467 
100066 
032702 
001015 
042702 

010246 
0i0346 
012746 
012746 
010600 
104416 
062706 
000446 
020227 
001012 

010346 
012746 
012746 
010600 
104416 
062706 
000431 
020227 
001012 

010346 
012746 
012746 
010600 
104416 
062 706 
00C414 



022766 
000001 



000004 
003166' 

040000 
170000 



023023 
000003 



000010 
160000 



023073 
000002 



000006 
160001 



023155 
000002 



000006 



JSR 

ENDCLN 

TRAP 



PC.WAITF 



li: 
2$: 
L 10034 J 

1 THE REPORT COOING SECTION CONTAINS THE 

J "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS* 

I -- 



CICLEAN 



L$RPT: 



1$ 



2$ 



3$ 



BGNRPT 

PRINT,'. 

MOV 

MOV 

MOV 

Ti^AP 

AOO 

MOV 

MOV 

MOV 

MOV 

':lr 

MOV 
'^QEQ 
BPL 
BIT 
BNE 
BIG 
PRINTS 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 
BR 
CMP 
BNE 

PRINTS 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 
BR 
CMP 
BNE 
PRINTS 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
BR 



♦OEVSUM 

*0EVSI^1,-CSP) 

01, -(SP) 

SP.RO 

CIPNTS 

♦4.SP 

R2.-(SP) 

R3.-(SP) 

R4,-(SP) 

*ERTABL»R4 

R3 

(R4).R2 

4i 

4* 

*BIT14.R2 

2> 

«tC7777.R2 

*0EV0NL,R3,R2 

R2, (SP) 

R3,-(SP) 

♦OEVONL.-CSP) 

#3.-CSP) 

SP.RO 

CIPNTS 

*10.SP 

4> 

R2, 0160000 

31 

00EVNXR,R3 

R3.-(SP) 

ODEVNXR. -CSP) 

02,-(SP) 

SP.RO 

CiPNTS 

06. SP 

4$ 

R2. 0160001 

301 

00EVNRD.R3 

R3,-(SP) 

OOEVNRO. -CSP) 

02, (SP) 

SP.RO 

CIPNTS 

06. SP 

4$ 



GET START Of ERROR TABLE. 
CLEAR U^UT NUMBER 
GET ERROR TABLE ENTRY £ TEST 11, 
ZERO IF UNIT NOT RUN 

WAS UNIT DROPPED? 

BR ir YES 

GET ERROR COUNT FIELD 

PRINT 



t WAS UNIT NON-EXISTENT? 
; BR IF NO 



( WAS UNIT NOT READY AT STARTUP? 
I BR IF NO. 



1<7 



TSV4 - MISCELLANEOUS SECTIONS MACRO M1113 
CLEAM-UP ANO REPORT COOING SECTIONS 



OI.FEB-84 17:54 



SEQ 063 



256 
257 



258 
259 
260 
261 
262 
263 
26.'. 
265 



266 

267 
266 
269 

270 
271 
272 
275 
274 
275 
276 
277 
278 



022712 
022716 
0227 If 
022720 
022722 
022726 
022732 
022734 
022736 
022742 
022746 
022750 
022754 
022756 
022760 
022762 
022764 
022764 
022764 



022766 
023025 
025075 
023155 
023236 



023306 



042702 170000 



010246 
010346 
012746 
012746 
010600 
104416 
062706 
062704 
005203 
020427 
103701 
012604 
012603 
012602 



104425 



045 
045 
045 
045 
045 



30$; 



023236 
000003 



000010 
000002 

003366' 



4$: 



116 

r.oi 

101 
101 
101 



L 10035 



045 OEVSUM 

040 DEVONL 

040 DEVNXR 

040 DEVNRO 

040 DEVORO 



BIC 


*tC7777.R2 


PRINTS 


*OEV0R0.R3,R2 


MOV 


R2.-CSP) 


MOV 


R3.-(SP) 


MOV 


*0EVDR0.-CSP) 


MOV 


03,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTS 


ADD 


#10. SP 


ADD 


«2.R4 


INC 


R3 


CMP 


R4,#ERTAB£ 


BLO 


1$ 


MOV 


CSP)*.R4 


MOV 


(SP)*,R3 


MOV 


(SP)*,R2 


ENDRPT 


; UNU 



TRAP 



.ASCTZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 

ENDMOD 



ORPT 



/*N*ADEVICE STATUS SUMMARY :i<N/ 

/i<A UNIT #03iiA ONLINE. ERRORS - *0*N/ 

/KA LWIT *D3*A DROPPED. NON-EXISTENT REGISTER*N/ 

/*A UNIT K03KA DROPPED, NOT READY AT STARTUPfiN/ 

/i<A UNIT ii03KA DROPPED. ERRORS ■ #DiiN/ 



L7 



TSV7 ^ HARDWARE TfcSTS 1-8 MACRO H1113 
CLEAN-UP AND REPORT CODING SECTIONS 

1 

9 



Ol-FEB-84 17:54 



SEQ 089 



:0 023506 
023306 
16 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 

34 023306 
023306 

35 023306 
36 

37 
38 
39 
40 
41 
42 
45 

48 023314 

49 023320 

50 023324 

51 023330 

52 023336 

53 023336 

54 023342 
55 

56 
57 
58 
59 
60 
61 

62 023346 

63 023354 

64 023560 

65 023562 
023362 
023566 
023370 
023374 
023576 
023402 
023404 
023410 

66 023412 

67 023416 

68 023420 
72 023424 



012737 006166' 002170' 



004737 
012700 
004737 
012737 

004737 
004737 



016104' 
024244' 
016412' 
000005 002206' 

024266' 
024356' 



TSV7:; 



.TITLE TSV7 - HARDWARE TESTS 1-8 



BGNMOD TSV7 



.SBTTL TEST 1: INITIALIZE #4 TEST 



I THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
I CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
((I.E. LOOPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF 
I EXTENDED FEATURES SWITCH, ETC.) 



( - 



BGNTST 

MOV *EPRT1.EPRTSW 



Tl: : 
(SET UP PRIMARY ERROR MESSAGE 



TEST 1 



T21L00P: 



JSR I^C.DSBINT 

MOV .TST21ID.ro 

JSR PC.T5TSt.UP 

MOV *5.L00PCNT 

JSR PC.T21REST 

JSR PC.T21RT2 



J DISABLE INTERRUPTS 
I ASCII MESSAGE TO IDENTIFY TEST 
jDO INITIAL TEST SETUP 
;PERFORM 5 ITERATIONS 

J SET COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 



012737 
004737 
105426 

012727 
000000 
013727 
000000 
005367 
001375 
005567 
001567 
005337 
001356 
005237 
OlOOOl 



176750 023722' 
015674' 



000250 
002116 
177772 
177756 
023722 
002212 



MOV 


*650O0. ,T21DLY 


JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



! ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
I 

;SET DELAY ROUTINE 
Hi: JSR PC.SOFINIT ;D0 INITIALIZE ON CONTROLLER 

:BR IF INIT WAS OK 
J DELAY FOR A REWIND TO FINISH 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
(BUMP COUNTER DOWN 
I BR. IF MORE TiMr TO GO 
J BUMP COUNT 
jCONTENTS OF TSSR REGISTER 



*250.CPC)* 


L$DLY.(PC)» 



-6CPC) 

. -4 

-2^HPC) 

.-20 



DEC 


T210LY 


BNE 


11* 


INC 


FATFLU 


MOV 


RO.Rl 



M7 



TSV7 - HARDWARE TESTS 1-3 
TEST 1: INITIALIZE *4 TEST 



MACRO M1113 Ol-FEB-84 17i54 



SEQ 090 



73 023426 
023426 
025430 
023432 
023434 

74 023436 

75 023436 
76 

77 
78 
79 
80 
81 
82 

83 025442 

84 025450 

85 023454 
a6 023456 
SO 023462 

91 023464 
023464 
023466 
023470 
023472 

92 023474 
025474 

93 023476 

94 023504 

95 023512 

96 023512 

97 023516 

98 023522 

99 023526 

100 023530 

101 023552 

105 023536 
023536 
023540 
023542 
023544 

106 023516 
023546 

107 023550 

108 023556 

109 023562 

110 023566 

111 023570 

112 023574 

113 023600 

114 023604 
n5 023606 

116 023610 

117 023612 
121 025616 

023616 
023620 
023022 



104455 
000145 
003642' 
011734- 

012704 025700 



ERRDF ERRNO , SFIERR , SFIMSG 



0$: 



liov 



#T21PACKET,R4 



(FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

(SUBROUTINE NEEDS PACKET ADDRESS 



C$ERDF 
101 

SFIERR 
SFIMSG 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
t 



013737 002172' 023720' 

004757 010562' 

105407 

005237 002212' 

010001 

104456 
000146 
005046' 
011754' 

104406 

112757 000200 024020' 

112737 00003.0 024021' 

012704 024010' 

010465 000000 

004757 016256' 

105407 

010001 

005237 002212' 

104456 
000147 
024026' 
011746' 

104406 

012765 000000 000002 

004737 016150' 

016501 000002 

010102 

042702 17637/ 

052702 002200 

052701 000100 

001012 

020102 

001406 

005257 003212' 

104*^56 
000150 
024123' 



MOV 


UNITN.T210SW 


^SET UP DRIVE NUiiBER 




JSR 


PC.WRTCHR 


(ISSUE WRITE CHARACTERISTICS 




BCS 


251 


i3R, IF COMMAND ISSUED OK 




INC 


FATFLG 


(BUMP COUNT 




MOV 


RO.Rl 


(SAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO, WRTMSG, SFIMSG 


(WRITE CHARACTERISTISC FAILED 








TPAP 


CJERHRD 






.WORD 


102 






.WORD 


WRTMSG 






.WORD 


SFIMSG 



23$: 



25*: 



CKLOOP 



MOVB 


0200.T21BS0 


MOVB 


#10.T21BS1 


MOV 


*T21PK2»R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


BCS 


501 


MOV 


RO.Rl 


INC 


FATFLG 


ERRHRD 


EPRN0.T21?SR.PKTSSR 



30t: 



CKLOOP 



35$i 



hc\' 


00.TSSRCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


R1.R2 


BIC 


«tC<HlA00R>.R2 


BIS 


«SSR!^mA,R2 


BIT 


OOFL.hl 


BNE 


58i 


CMP 


R1.R2 


8EQ 


37$ 


INC 


FATFLG 


LRRHRD 


ERRNO. T21AM3,EXPREC 



TRAP C$CLP1 
(WRITE MISCELLANEOUS CONT/READ STATUS 
(FUNCTION SELECTION BIT 



(WRITE SUBSYS MEM PACKET 

(issue COMMAND 

(WAIT FOR SSR 

(BR. IF NO ERROR 

(ERROR. SAVE TSSR 

iBUHP COUNT 

[TSSR NOT CORRECT AFTER 



(SCOPE LOOP 



WRT. MISCELLANEOUS 


TRAP 


C$ERHRD 


.WORD 


103 


.WORD 


T2iSSR 


.WORD 


PKTSSR 



TRAP 



CSCLPl 



(ISSUE /^ SOFT INITIALIZE 
(WAIT FOR JUST THE SSR BIT 
(READ THE TSSR BACK 
(WORK RL3ISTER 
(CLEAR our OTHER BITS 



TO SET 



SHOULD BE SET 



(SOME OF THE BITS THAT 

(IS OFF LINE BIT SET 

(BR, IF ORIVF IS OFF LINE 

(EXPECTED CR2) • RECEIVED (Rl) 

(BR, IF THEY ARE EQUAL (OK) 

(BUMP COUNT 

("ERROR TRYING TO INIT 



AFTER WRITE MISC 
TRAP CJERHRD 
.WORD 104 
,WORD T21AM3 



N7 



TSV/ ■ HAROWARt TESTS 1-8 
TEST Ij INITIALISE #4 TEST 



MACRO M1113 01 -FEB -84 17:54 



SEQ 091 



023624 


01.374' 


122 023626 




023626 


104406 


123 023630 


000406 


124 023632 




128 023632 




023632 


104455 


023634 


000151 


023636 


024225' 


025640 


015374' 


129 023642 


0047J7 017104' 


130 023646 


000241 


131 0^3650 


106037 024021' 


132 023654 


001316 


133 023656 




023656 


104406 


134 023660 


004737 016360' 


135 023664 


103002 


136 023666 


000137 023336' 


137 023672 




023672 


104432 


023674 


000524 


138 




139 




140 




141 




143 023676 




145 023700 




146 023700 


100004 


147 023702 


023710' 


148 023704 


000000 


149 023706 


000012 


150 023710 




151 023710 


023724' 


152 02371? 


000000 


153 0237K 


000024 


154 023716 


000000 


155 023720 


000000 


156 023722 


000000 


157 023724 




158 




159 




160 




162 024006 




164 024010 




165 024010 


100206 


1.66 024012 


024020' 


L67 024014 


000000 


168 024016 


000006 


169 




170 




171 024020 




172 024020 


000 


173 024021 


000 


174 024022 


000000 


175 024024 


oocooo 


I7t> 





37$: 
38$: 



CKLOOP 

BR 40$ 

ERRDF ERRNO , T2iaFL . EXPREC 





JSR 


PC.CKDROP 


40$: 


CLC 






RORB 


T21BS1 




BNF 


25$ 


50$: 


CKlOOP 






JSR 


PC.TSTLOOP 




BCC 


63$ 




JMP 


T21La0P 


63$: 


EXIT 


TST 



! LOCAL STORAGE 


FOR THIS 


.BLKB 


10-<.-T 


T21PACKET: 




.WORD 


100004 


.WORD 


T21DATA 


.WORD 





.WORD 


10. 


T21DATA: 




.UOR<) 


T21BFR 


.WORD 





.WORD 


20. 


.WORD 





T210SW: .U'jRD 





T21DLY: .WORD 





T21BFR: .BLKW 


25. 



WRITE SUBSYSTEM MEMORY COMMAND PACKET 
.BLKB 10-*. -TSV267V 



T21PK2: 








.WORD 


100206 




• WORD 


T21BF2 




.WORD 







.WORD 


6, 




.EVEN 




T21BF2: 






T21BS0: 


.BYTE 





T21BS1: 


.BYTE 





T21S2: 


.WORD 





T21S3: 


.WORD 






.WORD EXPREC 
jLOOP IF SELECTED 

TRAP C$CLP1 
(SKIP OVER OFF-LINE STUFF 

I DRIVE IS OFF LINE 

TRAP C$ERDF 
.WORD 105 
.WORD T210FL 
.WORD EXPREC 

;TRY AND DROP UNIT 

iDON'T LET CARRY SNEAK IN 

jTRY NEXT "LOWEST" BIT POSITION 

(LOOP UNTIL ALL EICHT BITS TESTED 

J SCOPE LOOP 

TRAP C$CLP1 

iDO WE NEED TO ITERATE TEST 

iBR. IF NO LOOP REQUIRED 

(EXECUTE AGAIN 

:ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L10036 



I COMMAND PACKET FOR TEST 

tWRlTE CHARACTERISTICS COMMAND, WITH, ACK 

J ADDRESS OF CHARACTERISTICS BLOCK 

(STARTING VALUE OF BLOCK SIZE 
(CHARACTERISTICS DATA BLOCK 
(ADDRESS OF MESSAGE BUFFER 

(LENGTH OF MESSAGE BUFFER 

(DRIVE SELECT WORD 
(DELAY COUNTER 
(MESSAGE BUFFER 



(WRITE SUB SYS MEh COMMAND, IE AND ACK 
(ADDRESS OF SELECT BLOCK DATA 

(SIZE OF DATA PACKET 



(BSELO AREA --- "COMMAND" BYIE 
iBSELl AREA 
iSei 2 AREA 
(DATA AREA 



B8 



TSVr - HARDWARE TESTS 1-6 
TEST I: INITIALIZE 04 TEST 



MACRO M1113 01-FEB-e4 17i54 



SEQ 092 



177 
17a 
17*) 
180 
181 

182 024026 

183 024125 

184 024225 

185 024244 
186 

167 
168 
189 
190 
191 
192 
195 

194 024266 

195 024266 

196 024272 

197 024276 

198 024302 

199 024506 

200 024510 

201 024514 

202 024320 
205 024522 

204 024526 

205 024350 

206 024552 

207 024536 

208 024544 

209 024346 

210 024552 

211 024554 
212 

215 

214 024556 

215 024556 

216 024562 

217 024566 
216 024572 

219 024576 

220 024400 

221 024404 

222 024406 
c:23 024412 

224 024414 

225 024416 

226 024420 
024420 

024420 

227 

228 
229 

250 
231 



127 
124 
104 
111 



012701 
012721 
012721 
0C5021 
012721 
012721 
005021 
012721 
005021 
005011 
012702 
012762 
005742 
020227 
001371 
000207 



I LOCAL 
I - 



TEXT MESSAGES FOR TEST 



122 
123 

162 

156 



HI 
123 

151 
151 



T21SSR: .ASCIZ 
T21AM3t .ASCIZ 
T2x0FL: .ASCIZ 
TST2lIDi 

.EVEN 



'WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Acc«pt«d' 
• TSSR Init. F«il«d Aft«r WRITE MISCELLANEOUS CONRTQL/READ STATUS' 
'Opiv« i« OFFLINE' 
.ASCIZ 'Initialization 04' 



(ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUtS 
I WRITE SUBSYSTEM MEMORY COMMAND 
I 
I - 



T21REST! 



023700 
100004 
025710 

000010 
025724 

000024 



000020 

177777 

000000 



025724' 64 t J 



T21RT2i 



012701 024010' 

012721 100206 

012721 024020' 

005021 

012721 000006 

005021 

012701 024020' 

005021 

005011 

000207 



104401 



SAVRCCi 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

CLR 

MOV 

CLR 

CLR 

MOV 

MOV 

TST 

CMP 

BNE 

RTS 



SAVREG 

MOV 

MOV 

MOV 
CLR 
MOV 
CLR 
MOV 
CLR 
CLR 
RTS 
ENOTST 



0T21PACKET.R1 

♦100004, (Rl)» 

♦T21DATA,(R1)' 

(Rl)» 

♦6..(Rl)* 

♦T21BFR,(Rl)* 

CR1)» 

♦20., (RD* 

CRD* 

(Rl) 

♦20. R2 

♦I 7777,T21BFRCR2) 

-(R2) 

R2.00 

641 

PC 



♦T21PK2,R1 
♦ 100206. (RD* 
♦T21BF2.(Rl)» 
(RD- 

♦6.,(Rn* 

(Rl). 

♦T21BF2,R1 

(Rl)» 

(Rn 

PC 



I SAVE THE REGISTERS 

iSTAHT OF THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK , 

lADDRESS OF CHARAISTICS DATA BLOCK 

lEXTENOED ADDRESS 

iSirE OF DATA BLOCK IN BYTES 

lADORESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 



iNUMBER OF LOCATIONS TO BE CLEARED 

I ALL ONES TO MESSAGE BUrTER 

(NEXT LOCATION 

(CHECK R2 FOR ZERO 

iBR. IF NOT AT ZERO YET 

(RETURN 



iSAVE THE REGISTERS 

iSTART OF THE PACKET 

IWRITE SUBSYSTEM MEM. WITH ACK, IE 

lADDRESS OF DATA BLOCK 

lEXTENOED ADDRESS 

ISIZE OF DATA BLOCK IN BYTES 

lADDRESS OF DATA FOR WRT SUB SY^ MEM 



iRETL-RN 



L 100561 



TRAP 



CIETST 



.SBTTL TEST 2i OFF LINE AND RFJECT REWIND 



I • 
I 



(THIS TEST VERIFIES BASIC 'iAPt-MQTXOi>i COMMAND DECODING AND BASIC 



TSV/ - HARDWARt TESTS 18 dflCRO M11X3 
TEST ^: OFF-LINE AND AeJECT REWIRo 



C8 



01-FEB-e4 17(54 



SEQ 093 



c^52 
^55 
c\^4 
255 

258 
239 
240 
241 

242 
247 
248 
249 
i?50 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 



266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
281 
282 



285 
284 
285 

286 
267 
286 



024422 
024422 
024422 
024430 
024434 
024440 
024444 



024452 
024452 
024452 
024452 
024454 
024460 



024464 

024470 
024472 
024476 
024500 
024500 
024502 
024504 
024506 
024510 
024510 



012737 
004737 
012700 
004737 
012737 



006166' 
016104' 
026707' 
016412' 
000005 



002170 



002206 



104402 

004737 026742 

004737 027034 



004757 015674' 

103407 

005237 002212' 

OlOOOl 

104455 
000511 
005642' 
011754' 

012704 025770' 



lOPERATION OF THE REWIND POSITIONING COMMAND. IT DOES NOT 
I NECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN 
(ARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY 
(CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST 
(TYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST 
(SEQUENCES. THE TEST CONSISTS OF THE FOLLOWING THREE SUBTESTS 



I 
1 
I - 



BGNTST 

MOV 
JSR 
MOV 
JSR 
MOV 



♦EPRTl.EPRTSW 

PC.DSBINT 

♦TST22ID,R0 

PC.TSTSETUP 

*5,L00PCNT 



MESSAGE 



T2:: 
(SET UP PRIMARY ERR0« 
(DISABLE INTERRUPTS 
(ASCII MESSAGE TO IDENTIFY 
(DO INITIAL TEST SETUP 
(PERFORM 5 ITERATIONS 



TEST 



I ♦ 



(TEST 2, SUBTEST 1 

(VERIFIES THAT ALL TAPE -MOTION COMMANDS (WITH VALID 
(MODE COOES) TERMINATE WITH FUNCTION REJECT AND 
(OFF-LINE STATUS WHEN THE TAPE TRANSPORT IS OFF-LINE. 
(THE SUBTEST OPERATES BY PLACING THE CONTROLLER INTO 
(EXTENDED MODE. SELECTING UNIT 7, AND ISSUING EACH 
(TAPE-MOTION COMMAND, CHECKING, AFTER EACH COMMAND, 
(THAT FUNCTION REJECT TERMINATION WAS ACCOMPLISHED. 
( - 



T22L00P: 



BGNSUe 



JSR 

JSR 



PC,T22REST 

PC.T22RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T2.l! 

TRAP C$BSUB 
(SET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



20$ i 



JSR 


PC.SOFINIT 


(DO INITIALIZE ON CONTROLLER 




6CS 


201 


(BR IF INIT WAS OK 




INC 


rATFLG 


(BUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


CIFRDF 






.WORD 


201 






.WORD 


5FIERR 






.WORD 


SFIMSG 



MOV 



PT22PACKET.H4 



SUBROUTINE NEEDS PACKET ADDRESS 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



>«4«4^4«<tt44t44)4«^4^ 



D8 



]m -^Tmiiui^m k^ea REw?fl6«° »' 



113 01-FEB-B4 17J54 



SEQ 094 



289 






290 






291 






292 024514 


004737 


010562' 


293 024520 


103407 




294 024522 


005237 


002212' 


298 024526 


010001 




299 024530 






024530 


104456 




024532 


000312 




024534 


005046' 




024536 


011734' 




300 024540 






024540 


104406 




301 024542 


013701 


026020' 


302 024546 


032701 


000004 


303 024552 


001407 




304 024554 


005237 


002212' 


308 024560 






024560 


104455 




024562 


000313 




024564 


026622' 




024566 


011734' 




309 C24570 






024570 


104444 




310 024572 






024572 


104406 




311 024574 


005737 


002216' 


312 024600 


001041 




313 024602 


112737 


000200 026111 


314 024610 


112737 


000010 026110 


315 024616 


012704 


026100' 


316 024622 


010465 


000000 


317 024626 


004737 


016236' 


318 024632 


105407 




319 024634 


OlOOOl 




320 024636 


005237 


002212' 


324 024642 






024642 


104456 




024644 


000314 




024646 


026130' 




024650 


011746' 




325 024652 






024652 


104406 




326 024654 


012704 


025770' 


327 






328 






329 






330 






331 






332 






333 






334 024660 


004737 


010562' 


335 024664 


103407 




336 024666 


005237 


002212' 


340 024672 


010001 




341 024674 







i**^4>4**«****4t*((* '**«****•««**«*«« *«4'«A4>4«4«<»4>4t* + *4>*4i«**«4>'**4>«4k***« 

I ISSUE UftlTE CHARACTERISTICS 
I BR. IF COHMANO ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



23$ 



24 ( 



30 > 



JSR 


PC.WRTCHR 


BC5 


23 > 


INC 


FATFl.G 


MOV 


RO.Rl 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



CKLOOP 

MOV 
BIT 
BEQ 
INC 
ERRDF 



T22BFR*6.R1 

#4.R1 

24 « 

FATFLG 

ERRN0,T22WLK,SFIMSG 



iPICK UP XTSO 

lis UNIT WRITE-LOCKED? 

iNO, PROCEED WITH TESTING 

I BUMP COUNT 

(TAPE IS WRITE LOCKED 



TRAP 



CIERHRD 
202 

WRTMSG 
SFIMSG 

CJCLPl 



DOCLN 




CKLOOP 




TST 


EXTFEA 


BNE 


50* 


MOVB 


*200,T22BS1 


MOVB 


♦10,T22BS0 


MOV 


♦T22PK2,R4 


MOV 


R4.TSDB(R5) 


JSR 


PC.CHKTSSR 


BCS 


301 


MOV 


RO.Rl 


INC 


FATFLG 


ERRHRD 


ERRN0,T22SSR,PKTSSH 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CiERDF 
203 
T22WLK 
SFIMSG 

CiDCLN 

CICLPl 



CKLOOP 
MOV 



«T22PACKET.fl4 



TRAP 

(CHECK FOR EXTENDED FEATURES SW SWITCH 

iBR IF SWITCH IS ON 

I WRITE MISCELLANEOUS CONT/HEAD STATUS 

(FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

(WRITE SUBSYS MEM PACKET 

(ISSUE COWANO 

(WAIT FOR SSR 

(BR. IF NO ERROR 

(ERROR. SAVE TSSR 

(BUMP CWJ^T 

(TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP r$ERHRD 
.WORD ^'V: 
.WORD T2;;SSR 
.WORD r^'SSR 

(LOOP IF SELECTED 

TRAP C$CLP1 

(SUBROUTINE NEEDS PACKET ADDRESS 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
I 

(ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 
(BUMP COUNT 

jSAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 



JSR 


PC.WRTCHR 


BCS 


50 » 


INC 


FATFLG 


MOV 


RO.Rl 


ERRHRD 


ERRNO, WRTMSG. CFIMSG 



E8 



TSV7 - HARDWARE 


TESTS 1 


-8 MACRO 


M1113 01 


-FEB-84 


17:54 








TEST 2i 


OFF-LINE AND REJECT REWIND 
















024674 


104456 












TRAP 


C$FRHRD 




024676 


000315 












.WORD 


205 




024700 


005046' 












.WORD 


WRTMSG 




024702 


011734' 












.WORD 


SFIMSG 


342 


024704 
024704 


104406 




50$: 


CKLOOP 






I SCOPE LOOP 

TRAP 


CSCLPl 


343 


024706 


016501 


000002 




MOV 


TSSR(R5).R1 




iGET TSSR CONTENTS 




344 


024712 


032701 


000100 




BIT 


*0FL,R1 




(CHECK FOR THE OFFLINE BIT SET 




345 


024716 


001006 






BNE 


60$ 




iBR, IF OFFLINE CGOOD) 




346 


024720 


005237 


002212* 




INC 


FATFLG 




iBUMP COUNT 




350 


024724 








ERROF 


ERRN0»T220FL.SFIMSG 


I OFF LINE SHOULD HAVE BEEN SET 


(BAD) 




024724 


104455 












TRAP 


C$ERDF 




024726 


000316 












.WORD 


206 




024730 


026325' 












.WORD 


T220FL 




024732 


011734' 












.WORD 


SFIMSG 


351 


024734 
0247:!4 


104406 




60$: 


CKLOOP 






(LOOP IF SELECTED 

TRAP 


C$CLP1 


352 


024736 


012703 


026116* 




MOV 


<H22RD.R5 




(POINTER FOR COMMANDS 




353 


024742 


011337 


026100' 


65$! 


MOV 


CR3),T22PK2 




iTAPE MOTION COMMAND IN PLACE 




354 


024746 


012704 


026100' 




MOV 


♦T22PK2,R4 




|R4 ■ POINTER TO PACKET 




355 


024752 


010465 


000000 




MOV 


R4.TS0BCR5) 




(ISSUE COMMAND 




356 


024756 


004737 


016150' 




JSR 


PC.WAITF 




(WAIT FOR SSR TO SET 




357 


024762 


016501 


00000? 




MOV 


TSSflCR5),Rl 




(GET TSSR CONTENTS 




358 


024766 


012702 


100306 




MOV 


♦SSR!SC!0FL!BIT1 


!BIT2. 


R2|SET UP EXPECTED 




359 


024772 


020102 






CMP 


R1.R2 




(ARE THEY EQUAL 




360 


024774 


001406 






BEQ 


80$ 




(BR, IF OK ESP. FUNCTION REJECT 




361 


024776 


005237 


002212' 




INC 


FATFLG 




(BUMP COUNT 




365 


025002 








ERRHRD 


ERRN0.T22TM,EXPReC 


(TSSR INCORRECT AFTER TAPE MOTION CMO 




025002 


104456 












TPAP 


C$ERHRD 




025004 


000317 












.WORD 


207 




025006 


026400' 












.WORC 


T22TM 




025010 


015374' 












.WORD 


rXPREC 


366 


025012 
025012 


104406 




80$: 


CKLOOP 






(LOOP IF SELECTED 

TRAP 


C$CLP1 


367 


025014 


005723 






TST 


(R3)» 




(POINT TO NEXT COMMAND 




366 


025016 


022713 


177777 




CMP 


#177777. (fl3) 




(ENO OF THE COMMANDS YET 




369 


025022 


001401 






BEQ 


90$ 




(BR. IF DONE 




370 


025024 


000746 






BR 


65$ 




(MORE COMMANOCS) TO GO 




371 


025026 






90$: 












372 


025026 








ENOSUB 






(>>>>>>>>>>>> ENO SUBTEST >>>>>>>>>>>> 




025026 














L 10040; 






025026 


104403 












TRAi- 


C$ESU6 


373 


025030 


023727 


002212' 000017 


CMP 


FATFLG. *15. 




(IS ERROR COUNT AT 25 




374 


025036 


103402 






BLO 


999$ 




»BR, IF LESS THAN 25 




375 


025040 


004737 


017104' 




JSR 


PC.CKDROP 




(TRY TO DROP THE UNIT 




376 


025044 






999$: 












377 




















378 








1 * 












379 








1 












380 








I TEST -c 


'. SUBTEST 2 








381 








I 












382 








IVERIFIES THAT 


A REWIND COMMAND. 


WITH 


THE CLEAR VOLUME 




383 








t CHECK 


(CVC) BIT CLEAR, IS REJECTED IF 


THE VOLUME CHECK 




384 








»(VCl<) 


FLAG IS 


SET. 








385 








1 












386 




















387 








1 - 













SEQ 095 



F8 



TSV7 - HARDWARE TESTS 1-8 MACRO M1113 
TEST 2: OrF-LI?C AND REJECT REWIND 



388 025044 






025044 






025044 


104402 




389 025046 


004737 


026742' 


390 025052 


004737 


027034' 


391 






392 






393 






394 






395 






396 






397 






398 025056 


004737 


015674' 


399 025062 


103407 




400 025064 


005237 


002212' 


404 025070 


010001 




405 025072 






025072 


104455 




025074 


000320 




025076 


003642- 




025100 


011734' 




406 025102 






407 025102 


012704 


025770' 


408 






409 






410 






4X1 






412 






413 






414 






415 025106 


004737 


010562' 


416 025112 


103407 




417 025114 


005237 


002212' 


421 025120 


010001 




422 025122 






025122 


104456 




025124 


000321 




025126 


005046' 




025130 


011754' 




423 025132 


005737 


002216' 


424 025136 


001041 




425 






426 025140 


112737 


000200 026111 


427 025146 


112737 


000010 026110 


428 025154 


012704 


026100* 


429 025160 


010465 


000000 


430 025164 


004737 


016236' 


431 025170 


103407 




432 025172 


010001 




433 025174 


005237 


002212' 


437 025200 






025200 


104456 




025202 


000322 




025204 


026130' 




025206 


011746' 




438 025210 






025210 


104406 





01 


-FEB- 


84 


17:54 




BGNSUB 








JSR 
JSR 




PC 
PC 


»T22REST 
.T22RT2 



SEQ 096 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T2.2: 

TRAP C*BSUB 
I SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 

J ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
; 



20*: 



JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 




BCS 


201 


(BR IF INIT WAS OK 




INC 


FATFLG 


iBUHP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


CiEROF 






.WORD 


208 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV 



#T22PACKET,R4 



(SUBROUTINE NEEDS PACKET ADDRESS 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
( 



JSR PC, WRTCHR 

BCS 23$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSG , SFIMSG 



23$ 



TST 


EXTFEA 


BNE 


50 » 


MOVB 


#200,T22BS1 


MOVO 


*10,T22BS0 


MOV 


#T22PK2,R4 


MOV 


R4.TSDBCR5) 


JSR 


PCCHKTSSR 


BCS 


501 


MOV 


RO.Rl 


INC 


FATFLG 


ERRHRD 


ERRNO. T22SSR.PKTSSR 



(ISSUE WRITE CHARACTERISTICS 

(BR. IF COMMAND ISSUED OK 

(BUMP COUNT 

(SAVE CONTENTS OF TSSR 

(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

(CHECK FOR EXTENDED FEATURES 3W SWITCH 

(BR IF SWITCH IS ON 



C$ERHRD 
209 
WRTMSG 
SFIMSG 



30 i 



CKLOOP 



(WRITE MISCELLANEOUS CONT/READ STATUS 

(FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

(WRITE SUBSYS MEM PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR 

(BR. IF NO ERROR 

(ERROR. SAVE TSSR 

(BUMP COUNT 

(TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP CiERHRD 
.WORD 210 
.WORD T22SSR 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP CJCLPl 



G8 



TSV7 - HARDUARE TESTS 1-8 MACRO M1115 
TEST 2: OFF-LINE AND REJECT REWIND 



Ol-FEB-64 17:54 



SEQ 097 



439 025212 

440 

441 

442 

443 

444 

445 

446 

447 025i?l6 

448 025222 

449 025224 

453 025230 

454 025232 
025232 
025234 
025236 
025240 

455 025242 
025242 

456 025244 

457 025250 

458 025254 

459 025256 

463 025262 
025262 
025264 
025266 
025270 

464 025272 
025272 

465 025274 

466 025302 

467 025306 

468 025312 

469 025316 

470 025322 

471 025326 

472 025330 

473 025332 

477 025356 
025336 
025340 
025542 
025544 

478 025346 
025346 

479 025350 
025350 
025350 

480 025352 

481 025360 

482 025362 

483 025366 
484 

485 
486 
467 



012704 025770' 



MOV 



0T22PACKET.R4 



(SUBROUTINE NEEDS PACKET ADDRESS 



004737 010562' 

103407 

005237 002212' 

010001 

104456 
000323 
005046' 

011734' 

104406 

016501 000002 

032701 000100 

001006 

005237 002212' 

104455 
000324 
026325' 
011734' 

104406 

012737 102210 026100 

012704 026100' 

010465 000000 

004737 016150' 

016501 000002 

012702 100306 

020102 

001406 

005237 002212' 

104456 
000325 
026474- 
015574' 

104406 



104403 

023727 002212' 000017 

103402 

004737 017104' 



JSR 


PC.WRTCHR 


BCS 


50$ 


INC 


FATFLG 


MOV 


RO.Rl 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



t *****4i****4i ****************** ****** *4i44i****A*4«*A44i*j|i4iA4i4>***4i'<iA44i<4^ 

I WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
I 

|***4i*********************4t******4t****««****«««4,**4,A4,4,4,*«*A«4,*A,«i«4,* 

I ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
(BUMP COUNT 

(SAVE CONTENTS OF TSSR 
tWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
I SCOPE LOOP 

TRAP 
iGET TSSR CONTENTS 
jCHECK FOR THE OFFLINE BIT SET 
iBR. IF OFFLINE (GOOD) 
(BUMP COUNT 
tOFF LINE SHOULD HAVE BEEN SET (BAD) 



50* 



CKLOOP 



CIERHRD 
211 

WRTMSG 
SFIMSG 

CJCLPl 



MOV 


TSSR(R5),R1 


BIT 


*0FL,R1 


BNE 


60 < 


INC 


FATFLG 


ERROF 


ERRN0.T220FL, SFIMSG 



TRAP 
.WORD 

.WORD 
.WORD 



C$EROF 
212 

T220:-L 
SFIMf^G 



60»: 


CKLOOP 




(LOOP IF SELECTED 

TRAP 


CJCLPl 


65$: 


MOV 


#102210. T22PK2 


(POSITION COMMAND (REWIND MODE) 






MOV 


*T22PK2,R4 


(R4 - POINTER TO PACKET 






MOV 


R4.TSDBCR5) 


(ISSUE COMMAND 






JSR 


PC.WAITF 


(WAIT FOP SSR TO SET 






MOV 


TSSR(R5).R1 


(GET TSS« CONTENTS 






MOV 


*SSR!SC!0FL!BIT1!BIT2 


R2(SET UP EXPECTED 






CMP 


R1,R2 


(ARE THEY EQUAL 






BEQ 


80* 


(BR. IF OK ESP. FUNCTION REJECT 






INC 


FATFLG 


(BUMP COUNT 






ERRHRD 


ERRN0,T22RWJ.EX^.^EC 


(TSSR INCORRECT AFTER TAPE MOTION CMD 








TRAP 


C$ERHRD 








.WORD 


213 








.WORD 


T22RWJ 








.WORD 


EXPREC 


80$ t 


CKLOOP 




(LOOP IF SELECTEO 

TRAP 


CiCLPl 




ENOSUB 




1 >>>>>>>>>^>> Eh40 SUBTEST >>>*>>i>v>>> 








L 10041: 










TRAP 


CSESUB 




CMP 


FATFLG. dl5. 


(IS ERROR COUNT AT 25 






8L0 


999* 


(BR. IF LESS THAN 25 






JSR 


PC.CKDROP 


(TRY TO DROP THE UNIT 





999$: 

(TEST 2, SUBTEST 3 



-18 



TSV7 - HARDWARE TESTS 1-8 MACRO M1113 
TEST 2: OFF-LINE AND REJECT REWIND 



O1-FE0-84 17:54 



SEQ 098 



488 






489 






490 






491 






492 






493 






494 025366 






025366 






025366 


104402 




495 025370 


004737 


026742' 


496 025374 


004737 


027034' 


497 






498 






499 






500 






501 






502 






503 






504 025400 


004737 


015674' 


505 025404 


103407 




506 025406 


005237 


002212' 


510 025412 


010001 




511 025414 






025414 


104455 




025416 


000326 




025420 


003642' 




025422 


011734' 




512 0254:^4 






513 025424 


012704 


025770' 


514 






515 






516 






517 






518 






519 






520 






521 025430 


004737 


010562' 


522 025434 


103407 




523 025436 


005237 


002212' 


527 025442 


OlOOOl 




528 025444 






025444 


104456 




02M46 


000327 




025450 


005046' 




025452 


011754- 




529 025454 


005737 


002216' 


530 025460 


00X041 




531 






532 025462 


112737 


000200 026111' 


533 025470 


112737 


000010 026110' 


534 0254 76 


012704 


026100' 


535 0255C2 


010465 


000000 


536 025506 


004737 


016236' 


557 025512 


i03407 




538 025514 


010001 




539 025516 


005237 


002212' 


543 025522 







VERIFIES THAT A REWIND COMMAND WITH CVC-1 CLEARS VCK 
AND RETURNS PROPER STATUS IN THE MESSAGE BUFFER. 



BGNSUB 



JSR 
JSR 



PC,T22REST 
PC,T22RT2 



!>>>>■>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T2.3: 

TRAP C$BSUB 
I SET com; .AND PACKET 
tSET UP OTHER COMMAND PACKET 



J ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



JSR 


PC.SOTINIT 


iOO INITIALIZE ON CONTROLLER 




BCS 


20$ 


iBR IF INIT WAS OK 




INC 


FATFLG 


tSUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


t FATAL ERROR TSSR WAS NOT OK 








TRAP 


CiERDF 






.WORD 


214 






.WORD 


SFIERR 






.WORD 


SFIMSG 



201: 



MOV 



#T22PACKET,R4 



t SUBROUTING NEEDS PACKET ADDRESS 



iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
t 



JSR PC, WRTCHR 

BCS 23» 

INC FATFLG 

MOV RO.Rl 

ERRHRO ERRNO . WRTMSG . SF IMSG 



23$: 



TST 


EXTFEA 


BNE 


501 


MOVB 


*200.T226S1 


MOVB 


Ol0,T22flS0 


MOV 


•T22PK2,R4 


MOV 


R4.TS06(R5) 


JSR 


PCCHKTSSR 


BCS 


30$ 


MOV 


RO.Rl 


INC 


FATFLG 


ERRHRD 


ERRNO, T22SSR,rKTSSR 



I ISSUE WRITE CHARACTERISTICS 

I BR, IF COMMAIV) ISSUED OK 

I BUMP COUNT 

I SAVE CONTENTS OF TSSR 

jWRITE CHARACTERISTISC FAILED 

TRAP 
• WORD 
.WORD 
WORD 

(CHECK FOR EXTENDED FEATURES SW SWITCH 

iBR IF SWITCH IS ON 



C$ERHRD 
215 

WRTMSG 
SFIHSG 



iWRITE MISCELLANEOUS CONT/READ STATUS 

iFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

iWRITE SUBSYS MEM PACKET 

(ISSUE COMhANO 

(WAIT FOR SSR 

I BR. IF NO ERROR 

(ERROR. SAVE TSSR 

(BUMP COUNT 

(TSSR NOT CORRECT AFTER WRT, MISCELLANEOUS 
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18 



SEQ 099 



544 



025522 
025524 

025526 
025550 
025532 
025532 
025534 



545 
546 
547 
548 
549 
550 
551 
552 

553 025540 

554 025544 

555 025546 
025552 
025554 
025554 
025556 
025560 
025562 
025564 
025564 
025566 
025572 
025576 
025600 
025604 
025604 
025606 
025610 
025612 
025614 
025614 
025616 
025624 
025630 



559 
560 



561 

562 
563 
564 
r65 
569 



570 



571 
572 
573 
574 
575 
5 76 
577 
578 
579 
583 



564 

585 
586 

587 

588 
589 



025640 
025644 
025650 
025652 
025654 
0.-'!>660 
0L5660 
025662 
025664 
025666 
025670 
025670 
025672 
025676 
025702 
025704 
025710 



104456 
000330 
026130' 
011746' 

104406 

012704 025770' 



30$: 



CKLOOP 
MOV 



#T22PACKET,R4 



TRAP CiERHRD 

.WORD 216 

.WORD T22SSR 

.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP C*CLP1 

i SUBROUTINE NEEDS PACKET ADDRESS 



004737 
103407 
O05237 
010001 

104456 
000331 
005046' 

011754' 

104406 
016501 
'^ 2701 
001006 
O05237 

104455 
O00332 
026325' 

011754' 

104406 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000333 
026474' 
015374' 

104406 
012703 
016501 

010102 
042 702 
020102 



iWRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 
t 



010562 

002212 



50$ 



JSR PC. WRTCHR 

BCS 501 

INC FATFLG 

MOV RO.Rl 

F??RHRD ERRNO . WRTMSG , SFIMSG 



CKLOOP 



000002 
000100 

C02212 



142010 
026100 
000000 
016150 
000002 
100306 



002212' 



60$: 
026100' b5$j 



60$ 



CKLOOP 

MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



026012' 
000006 

000020 



C$ERHR0 
217 

WRTMSG 
SFIMSG 

C$CLP1 



MOV 


TSSR(R5),R1 


BIT 


#0FL,R1 


6NE 


60$ 


INC 


FATFLG 


ERRDF 


ERRNO. T220FL. SFIMSG 



♦142010, T22PK2 

#T22PK2.R4 

R4,TS0B(R5) 

PCWAITF 

TSSR(R5>,R1 



#SSR!0FL!SC!BITl!BIT2 R2iSET UP EXPECTED 



(ISSUE WRITE CHARACTERl^^riCS 

I BR, IF COMMAND ISSUED OK 

(BUMP COUNT 

I SAVE CONTENTS OF TSSR 

(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

(SCOPE LOOP 

TRAP 

(GET TSSR CONTENTS 

(CHECK FOR THE OFFLINE BIT SET 

(BR. IF OFFLINE CGOOD!) 

I BUMP COUNT 

(OFF LINE SHOULD HAVE BEEN SET (BAD) 

TRAP C$ERDF 
.WORD 218 
.WORD T220FL 
.WORD SFIMSG 

(LOOP IF SELECTED 

TRAP C$CLP1 

(POSITION COMMAND CREWINO MODE) CVC»1 

(R4 - POINTER TO PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 



R1.R2 

80$ 

FATFLG 

ERRNO, T22RWJ,EXPREC 



MOV 


0T22eFR.R5 


MOV 


XST0(R3).R1 


MOV 


R1,R2 


BIC 


#flIT4.R2 


CMP 


R1.R2 



(ARE THEY EQUAL 

(BR. IF OK ESP. FU^JCTI0N REJECT 

(BUMP COUNT 

(TSSR INCORRECT AFTER TAPE MOTION CMO 

TRAP C$ERHRD 
.WORD 219 
.WORD T22RWJ 
.WORD EXPREC 

(LOOP IF SELECTED 

TRAP C$CLPl 

(POINTER TO MESSAGE BUFFER 

(PICK UP X5T0 FROM MESSAGE BUFFER 

tSrT UP EXPECTED 

iVCK SHOULD BE CLEAR 

(ARE THEY EQUAL 



J8 
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590 025712 


001406 


591 025714 


005237 002212' 


595 0;>5720 




025720 


104456 


025722 


000334 


025724 


02654 7' 


025726 


015374' 


596 025730 




597 025730 




025730 




025730 


104403 


598 025732 


023727 002212' 000017 


599 025740 


103402 


600 025742 


004737 017104- 


601 C25746 




602 025746 


004737 016360' 


603 025752 


103002 


604 025754 


000137 024452' 


605 025760 




025760 


104432 


025762 


001116 


606 




607 




606 




609 




611 025764 




613 025770 




614 025770 


100204 


615 025772 


026000' 


616 025774 


000000 


617 025776 


000012 


618 026000 




619 026000 


026012' 


620 026002 


000000 


621 026004 


000024 


622 026006 


000000 


623 026010 


000007 


624 026012 




625 




626 




627 




629 026074 




651 026100 




632 026100 


100206 


633 02^102 


026110' 


634 026104 


OOOOOO 


635 026106 


000006 


6S6 




637 




638 026110 




639 026110 


000 


640 026111 


000 


641 026112 


OOOOOO 


642 026114 


OOOOOO 


64 5 




644 




645 





BEQ 90$ 

INC FATFLG 

ERRHRD ERRNO . T22VCK , EXPREC 



90$! 



999$: 



163*: 



ENOSUB 



CMP 
6L0 
JSR 

JSR 
BCC 
JMP 
EXIT 



FATFLG. «15. 

999$ 

PC.CKDROP 

PC.TSTLOOP 
163$ 
T22L00P 
TST 



1 * 

jLOCAL STORAGE FOR THIS TEST 
I - 



.BLKB 


10-<.-T 


T22PACKeT: 




.WORD 


100204 


.UORO 


T22DATA 


.WORD 





.WORD 


10. 


T22DATA: 




.WORD 


T22BFR 


.WORD 





.WORD 


20. 


.WORD 





.WORD 


7 


T22BFR: .BLKW 


25. 



t WRITE SUBSYS^'-M MEMORY COMMAND PACKET 



T22PK2: 



.BLKB 



10-<. -TSV267i 





.WORD 


100206 




.WORD 


T22BF2 




.WORD 







.WORD 


6. 




.EVEN 




T22BF2: 






T22BS0: 


.BYTE 





T22BS1! 


.BYTE 





(22S2; 


.WORD 





T22S3! 


.WORD 






SEQ 100 



I BR. IF OK CnOOD) 

I BLIMP COU^T 

iVCK WASN'T CLEAR (BAD) 



TRAP 


C$ERHRO 


.WORD 


220 


.WORD 


T22VCK 


.WORD 


EXPREC 



)>>>*>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L 10042: 

TRAP C$ESUB 
lis ERROR COUNT AT 25 
(BR, IF LESS THAN 25 
I TRY TO DROP THE UNIT 

iDO WE NEED TO ITERATE TEST 

J BR, IF NO LOOP REQUIRED 

(EXECUTE AGAIN 

I ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L 10037 -. 



(COMMAND PACKET FQR TEST 

(WRITE CHARACTERISTICS COMMAND, WITH IE, ACK 

(ADDRESS OF CHARACTERISTICS BLCCK 

(STARTING VALUE OF BLOCK SIZE 
(CHARACTERISTICS DATA BLOCK 
(ADDRESS OF MESSAGE BUFFER 

(LENGTH OF MESSAGE BUFFER 

(SELECT DRIVE 7 
(MESSAGE BUFFER 



(WRITE SUB SYS MEM COMMAND, IE AND ACK 
(ADDRESS OF SELECT BLOCK DATA 

(SIZE OF DATA PACKET 



(BSELO ARtA 
(BSELl AREA 
(SEL 2 AREA 
(DATA AREA 



.EVEN 



I<8 
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SEQ 101 



646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

661 

682 

683 

684 

685 

6P6 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

r>97 

1,98 
099 
700 
701 
702 



026116 
026120 
026122 
026124 
026126 



026130 
026225 
026325 
026400 
026474 
026547 
026622 
026707 



026742 
026742 
026746 
026752 
026756 
026762 
026764 
026770 
026774 
026V 76 
027002 
027004 
027010 
027014 
027022 
027024 
027030 
027032 



027034 
027034 
027040 
027044 
027050 
027054 
027056 
027062 
027064 



100201 
100205 
100210 
100211 
177777 



127 
124 
104 
124 
124 
103 
052 
117 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
020227 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 



122 
123 
162 
123 
123 
126 
052 
146 



111 
123 
151 
123 
125 
103 
052 
146 



025770' 

100204 

02600C' 

000012 
026012 

000024 

000007 
000020 

177777 

000000 



026012 



026100 
100206 
026U0 

000006 

026110 



iRfAD TAPE FORWARD 
(WRITE TAPE FORWARD 
I POSITION TAPE 
(FORMAT TAPE 
(END OF DATA 



J TAPE MOTION PACKET COMMAND VALUES 
T22RD: .WORD 100201 
T22WRT: .WORD 100205 
T22P0S: .WORD 100210 
T22F0R! .WORD 100211 
.WORD 177777 



J LOCAL TEXT MESSAGES FOR TEST 
i - 

T22SSR: .ASCIZ 'WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted' 

T22AM3: .ASCIZ ' TSSR Inlt. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS 

T220FL: .ASCIZ 'Drive 7 Select Failed To Set "OFL" In TSSR' 

T22TM: .ASCIZ 'TSSR Incorrect After Tape Motion Command To Off -Line Device' 

T22RWJ: .ASCIZ 'TSSR Not Correct After REWIND With VCK Set' 

T22VCK: .ASCIZ ' CVC Set. Dldn"t Reaet VCK In Message Buffer' 

T22WLK: . ASCIZ '♦■»***TAPE IS WRITE -LOCKED AND WILL CAUSE ERRORS*****' 

TST22I0t .ASCIZ 'Off -Line And Reject Rewind' 

.EVEN 
( ♦ 
1 

(ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
(WRITE SUBSYSTEM MEMORY COMMAND 



(SAVE THE REGISTERS 

(START OF THE PACKET 

(WRITE SUBSYSTEM MEM. WITH ACK, IE 

(ADDRESS OF CHARAISTICS DATA DLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

(ADDRESS OF MESSAGE BUFFER 



1 

; - 




T22REST: 




SAVREG 




MOV 


#T22PACKET,R1 


MOV 


0100204 »(R1)» 


MOV 


«T220ATA,CR1)* 


CLR 


(Rl)» 


MOV 


«10. .(RD* 


MOV 


*T22BFR,(R1)* 


CLR 


CRD* 


MOV 


*20. .(RD* 


CLR 


CRD* 


MOV 


*7.(R1) 


MOV 


*20,R2 


64$: MOV 


«177777,T22BFR(R2) 


TST 


-(R2) 


CMP 


R2,*0 


6NE 


64$ 


RT5 


PC 


T22RT2I 




SAVREG 




MOV 


*T22PK2,R1 


MOV 


0100206, (RD* 


MOV 


«T22BF2.(Rl)f 


CLR 


CRl)» 


MOV 


P6. ,(Rn* 


CLR 


(Rl)» 


MOV 


#T22BF2,R1 



|LE.\'GTH OF hCSSAGE BUFFER 



TO BE CLEACtPD 
BUFFER 



(SELECT DRIVE SEVEN 

(NUMBER OF LOCATIONS 

(ALL ONES TO MESSAGE 

I BUMP R2 DOWN 

(IS R2 AT ZERO >ET 

(KEEP GOING UNTIL DONE 

(RETURN 



(SAVE THE REGISTERS 

(START OF THE PACKET 

(WRITE SUBSYSTEM MEM, WITH ACK, 

(ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

(POINT VO DATA SEL AREA 



IE 



L8 
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SEQ 102 



703 
704 
705 
706 
707 



708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 

724 
725 
726 
751 
732 
733 
734 
735 
736 
737 
738 
739 
7A0 
741 
V42 
743 
744 
745 
746 
747 
748 



749 
750 

751 
752 
753 
754 

755 
756 
75? 
758 



027070 
027072 
027074 
027076 
027100 
027100 
027100 



0i^7102 
02 ■'102 
02V 102 
02"rlj. 'j 
0-^7114 
027x20 
02712^ 
027x30 
027134 
027140 



027146 
027146 
027146 
027146 
027150 
027154 



005021 
005011 
005011 
000207 



104401 



012737 
005037 
004 /3 ? 
OOh737 
012700 
004737 
004737 
012757 



104402 
004737 
004737 



^^06166 

003124 

Ci.7176 

0161C> 

053666 

0i6»'l,* 

02l4.:b' 

000005 



002170 



002^06 



033702' 
033774' 



CLR 


(Rl)» 


CLR 


CRD 


CLR 


(Rl) 


RTS 


PC 


ENDTST 





(LAST LOC TO BE CLEARED 
I RETURN 



L10037: 



TRAP 



CJETST 



.SBTTL TEST 3: BASIC WRITE DATA 



I ♦ 



;THIS TEST VERI'"IES THAT THE WRITE DATA (NEXT) COMMAND OPERATES 
; PROPERLY, UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 
iWRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS 
(LIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH 
I THE CORRECT REGISTER » MESSAGE BUFFER AND RAM CONTENTS. 

;THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS 

t 

I 



I - 



8GNTST 



MOV 


*EPRT1,EPRTSW 


CLR 


KTENABLE 


JSR 


PC.KTOFF 


JSR 


PC.DSBINT 


MOV 


#TST23ID.R0 


JSR 


PC.TSTSETUP 


JSR 


PC.MEMCK 


MOV 


*5.L00PCNT 



T3: : 
I SET UP PRIMARY ERROR MESSAGE 

i lURN OFF KTll 

(TURN OfF KTll 
(DISABLE INTERRUPTS 
(ASCII MESSAGE TO IDENTIFY TEST 
(DO INITIAL TEST SETUP 
(CHECK FOR MEMORY 
(PERFORM 5 ITERATIONS 



( ♦ 

(TEST 3. SUBTEST 1 

1 VERIFIES THAT A WRITE COMMAND (ANY VALTD MODE CODE) 
(WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS 
(REJECTED IF THE VOLUME CHECK CVCK) FLAG IS SET. ALL 
(VPLID MODE COOES ARE CHECKED (WRITE DATA, WRITE 
(RETRY). 



T23LO0P: 



BGNSU8 



JSR 
JSR 



PC,T23REST 
PC.T23RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T3.1: 

TRAP CJBSUB 
(SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



02710* 004737 0156/4 



(ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
i 

JS(^ PC.bOFlNlT (00 INITIALIZE ON CONTROLLER 
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SEQ 103 



759 027164 

760 027166 

764 027172 

765 027174 
027174 
027176 
027200 
027202 

766 027204 
V67 027204 
768 027212 
769 

770 
771 
772 
773 
774 
775 

776 027216 

777 027222 

778 027224 

762 027230 

763 027232 
027232 
027234 
027236 
027240 

764 027242 
785 027246 
786 

78/ 027250 

788 027256 

789 027264 

790 027270 

791 027274 

792 027300 

793 027302 

794 027304 

798 027310 
027310 
027312 
027314 
027316 

799 027320 
027320 

800 027322 

801 027330 
802 

803 
804 
605 
806 
807 
808 

809 027334 

810 027340 



103407 

005'?37 002212' 

010001 

104455 
000455 
003642' 
011734' 

012737 000007 
012704 032360' 



004737 
103407 
005237 
010001 

104456 

000456 

005046' 

011734' 

005737 

001044 

112737 
112737 
012704 
010465 
004737 
103407 
010001 
005237 

104/156 
00045 7 
032544' 
011746' 

104406 
012737 
012704 



004737 
103407 



010562' 
002212' 



002216 



000200 
000010 
032470 
000000 
016236 



002212 



000007 
032360' 



010562' 



032400 



20$ J 



BCS 


201 


iBR IF INIT WAS OK 




INC 


FATFl G 


iB'JMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


1 FATAL ERROR TSSR WAS NOT OK 








TRAi- 


CIERDF 






. WOf^D 


301 






.WO^D 


SFIERR 






.WOf^D 


SFIMSG 



032523' 
032522' 



032400' 



NOV 07.T23DSW 
MOV *T23PACKET,R4 



I SET DRIVE NUMBER IN PACKET 

I SUBROUTINE NEEDS PACKET ADDRESS 



J WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
t 



JSR PC, WRTCHR 

BCS 231 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SFIMSG 



23$ 



TST 


EXTFEA 


BNE 


50$ 


MOVB 


*200.T23BS1 


MOVB 


*10.T23BSO 


MOV 


#T23PK2,R4 


MOV 


R4.TSDB(R5) 


JSR 


PCCVKTSSR 


BCS 


30$ 


MOV 


RO.Rl 


INC 


FATFLG 



(ISSUE WRITE CHARACTERISTICS 

»BR. IF COMMAND ISSUED OK 

I BUMP COUNT 

I SAVE CONTENTS OF TSSR 

J WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

I CHECK FOR EXTENDED FEATURES SW SWITCH 

tBR IF SWITCH IS ON 



C$ERHRD 
302 

WRTMSG 
SFIMSG 



ERRHRD ERRNO , T23SSR , PKTSSR 



30$ 



CKLOOP 

MOV 
MOV 



#7.T23DSW 
«T23PACKET,R4 



» WRITE MISCELLANEOUS CONT/READ STATUS 

I FUNCTION StXECTION BIT (TURN ON EXTFEA HW SWITCH) 

iWRITE SUBSYS MEM PACKET 

I ISSUE COMMAND 

(WAIT FOR SSR 

I BR, IF NO ERROR 

jERROR, SAVE TSSR 

jBUMP COUNT 

I TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP C$ERHRD 
. WORD 303 
.WORD T23SSR 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 

(SET D .'E NUMBER IN PACKET 

(SUBROUTINE Nt RDS PACKET ADDRESS 



811 027342 005237 002212' 



|4i*4i**4>**44*4**4444*44***4*444**4**444*****444*44*44444>4*44>4>4444444 

(WRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 
; 

{44444444 4*444 4444*4444444*44 444444444444*'f4t444*'f4**4'^****4*44^«4'44 

(ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 
(BUMP COUNT 



JSR 


PC. WRTCHR 


BCS 


50 J 


INC 


FATFLG 



N8 
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SEQ 104 



81S 
816 



817 

618 
819 
820 
621 
825 



826 

827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
840 



841 

842 
843 
844 
845 
846 
847 



848 
849 
850 
851 
852 
85$ 
854 
855 
856 
857 
058 
859 
660 



027346 

027350 

027350 

027352 

027354 

027356 

027360 

027360 

027362 

027366 

027372 

027374 

027400 

027400 

027402 

027404 

027406 

027410 

027410 

027412 

027416 

027422 

027426 

027432 

027436 

02744? 

02/446 

027450 

027452 

027456 

02745S 

027460 

C27462 

0^^7464 

027466 

007466 

027470 

027472 

027476 

027500 

027502 

027502 

027502 

027502 

027504 

027512 

027514 

027520 



010001 

104456 
000460 
005046' 
011734' 

104406 
01650? 
032701 
001006 
005237 

104455 
000461 
033206' 
011734' 

104406 
012703 
011337 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000462 
052 74 2' 
015374' 

104406 
005723 
022713 
001401 
000746 



104405 
023727 
105402 
004737 



50$ 



000002 
000100 

002212 



032534 
032470 
032470 
000000 
016150 
000002 
100306 



002212 



60$ 
65$ 



80$: 



177777 



90$: 



002212' 000017 
017104' 



MOV 
ERRH^D 



CKLOOP 

MOV 
BIT 
ONE 
INC 
ERRDF 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 

TST 
CMP 
BEQ 
BR 

ENDSUB 



CriP 
BLO 
JSR 



RO.Rr 
ERRNO.WRTMSG.SFIMSG 



999$ 



SAVE CONTENTS OF TSSR 

WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 

.WORD 
.WORD 



SCOPE LOOP 



TSSR(R5),R1 

#0F!..R1 

60$ 

fatflg 
errn0.t230fl.sfimsg 



TRAP 



C$ERHRD 
304 

WRTMS . 
SFIM5 i 

C$CLP1 



GET TSSR CONTENTS 

CHECK FOR THE OFFLINE BIT SET 

BR, IF OFFLINE (GOOD) 

BUMP COUNT 

OFF LINE SHOULD HAVE BEEN SET CBAD) 



*T23WD.R3 

CR3).T23PI<2 

«T23PK2,R4 

R4,T50BCR5) 

PC.WAITF 

TSSRCRSD.r^l 

*SSR!SC!0FL!BIT1!BIT2 

FU.R2 

80$ 

FATFLG 

ERRN0,T23TM.EXPREC 



.R2i 





TRAP 


C$ERDF 




.WORD 


305 




.WORD 


T230FL 




.WORD 


SFIMSG 


LOOP IF SELECTED 








TRAP 


C$CLP1 


POINTER FOR COMMANDS 






TAPE MOTION COMMAND IN 


PLACE 




R4 - POINTtR TO Pi^CKET 






ISSUE COMhAND 






WAIT FOR SSR TO SET 






GET TSSR CONTENTS 






SET UP EXPECTED 






ARE THEY EQUAL 






BR» IF OK ESP. FUNCTION REJECT 




BUMP COUNT 






TSSR INCORRECT AFTER TAPE MOTION CMD 




TRAP 


C$ERHRD 




.WORD 


306 




.WORD 


T23TM 




.WORD 


EXPREC 



(R3)* 

#177777. (R3) 
90$ 
65$ 



FATFLG, #15. 

999$ 

PC . CKDROP 



TRAP 



C$CLP1 



:LOOP IF SELECTED 

; POINT TO NEXT COMMAND 
jEND OF THE COMMANDS YET 
;BR. IF DONE 
iMORE COMMANOCS) TO GO 



;>>>>>>>>>>>> EiiO SUBTEST >>>>>>>>>>>> 

L 10044: 

TRAP C$ESUB 
IS ERROR COUNT AT 25 
BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 



tTEST 3, SUBTEST 2 

•VERIFIES THAT WRITE DATA COMMANDS WITH CVC-1 AND THE 
jSWAP BYTES (SWB) BIT CLEAR OPERATES PROPERLY. THE 
;BYTE COUNT (RECORD SIZE) VARIES FROM 20 THROUGH 64K 
J IN VARYING INCREMENTS (DEPENDING UPON WHETHER OR NOT 



B9 



TSV7 - HARDWARE 


TtSTS I 


■8 


TEST 5! BASIC 1 


WRITE DATA 


661 






6^^ 






865 






864 






865 






666 






867 






868 






869 






870 






8^1 






87^ 






673 027520 






027520 






027520 


104402 




674 027522 


013701 


003116' 


875 027526 


000241 




676 027530 


006101 




677 027532 


010137 


032520' 


878 027556 


004737 


033702' 


879 027542 


004737 


034056' 


880 027546 


004737 


033774' 


661 






862 






685 






684 






685 






886 






667 






666 027552 


004737 


0^5674' 


689 027556 


103407 




890 027560 


005237 


002212' 


694 027564 


010001 




895 027566 






027566 


104455 




027570 


000463 




027572 


003642' 




027574 


011734' 




896 027576 






897 027576 


015737 


002172' 


898 027604 


012704 


032360' 


899 






900 






901 






902 






905 






904 






905 






906 027610 


004737 


010562' 


907 027614 


103407 




908 027616 


005257 


002212' 


912 027622 


ClOOOl 




913 027624 






027624 


104456 




027626 


000464 




027630 


005046' 




02763a 


011754* 





MACRO M1113 Ol-rEB-84 17|54 



SEQ 105 



I THE DIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION 

iHOOE), THE TAPE IS NOT REWOUND BETWEEN SUCCESSIVE 

iRECOROS BUT IS REWOUND AFTER THE FINAL RECORD IS 

iWRITTEN. AN INCREMENTING COUNT PATTERN IS SUPPLIED 

I IN THE DATA BUFFER. AFTER EACH BLOCK IS WRITTEN, THE 

iTSSR AND TSBA REGISTERS, THE HESSAGE BUFFER, ANO THE 

iRAM CONTENTS ARE CHECKED. (THE RAM CONTENTS ARE CHECKED 

lUSING THE WRITE SUBSYSTEM MEMORY COMMAND. 

1 

I 

I 

I ■ 

!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T3.2: 

TRAP 
FRESIZ.Rl iGET SIZE OF AVAILIABLE MEMORY 

(CLEAR THE CARRY BIT 
Rl iMAKE INTO BYTES 

R1.T23RSZ iSTORE IN TEST FQR USE LATER 

PC,T23REST iSET COMMAND PACKET 

PC,T23RT3 iRESTORE PACKET 

PC,T23RT2 tSET UP OTHER COMMAND PACKET 



BGNSU6 



MOV 
CLC 
ROL 
MOV 
JSR 
JSW 
JSR 



CIBSUB 



I ISSUE CONTROILER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
1 



201 1 



JSR 


PC.SOFINIT 


lOO INITIALIZE ON CONTROl.LEP 




BCS 


201 


iBR IF INIT WAS OK 




INC 


FATFLG 


iBUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


jFATAL ERROR TSSR WAS NOT OK 








TRAP 


CIERDF 






.WORD 


507 






.WORD 


SFIERR 






.WORD 


SFirlSG 



MOV UNITN.T23DSW 
MOV #T23PA:kET.R4 



iLOAO UP SELECTED UNIT NUMBER 
(SUBROUTINE NEEDS PACKET ADDRESS 



iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

I 

{ 4i4i^>^ <(«««*«**«*♦******** 4 * 4> « 4> * 4> *«* 4i 4i 4> 4> «**♦****** 4> « A *************** * 



JSR PC, WRTCHR 

BCS 231 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNQ » WRTM5G , SFIMSG 



I ISSUE WRITE CHARACTERISTICS 
iBR, IF COMMAND ISSUED OK 
iBUMP COUNT 

I SAVE CONTENTS OF TSSR 
IWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
,WQRD 



CIERHRD 
508 

WRTMSo 
SFIMSG 



Tsv; 

TEST 



j^'*g8^ru.5!f^^DAfS 



C9 



MACRO M1115 Ol-FEB-84 17;54 



StQ 106 



914 027654 
027634 
915 
916 
917 
918 
919 
920 
921 

922 027656 
92S 027642 
924 027646 
925 
926 
927 
928 
929 
950 
931 

952 027654 
955 027662 

934 027670 

935 027676 

936 027702 

937 027704 

958 027710 

959 027714 

940 027720 

941 027724 

942 027750 
945 027754 

944 027736 

945 027740 

946 027744 
027/44 

94 7 027746 

948 027752 

949 027756 

950 027 762 

951 027 766 

952 027770 

953 027774 

954 027776 

955 050000 

959 050004 
050004 
030006 
030010 
030012 

960 050014 
050014 

961 030016 

962 030022 
965 050024 

964 030050 

965 030056 

966 030044 



104406 



23$: 



CKLOOP 



iLOOP IF SELECTED 



TRAP 



CJCLPl 



004757 010714 
012703 000024 
013757 003114 



012737 
012757 
052757 
012V04 
010500 
004757 
010557 
010465 
004757 
016501 
012702 
020102 
001402 
004737 

104406 
016501 
012702 
062702 
005757 
001402 
062702 
020102 
001406 
005237 

104456 
000465 

055525' 
015374 

104406 
020527 
002 114 
004757 
012737 
112737 
112737 



140005 
140005 
004000 
032510' 

017524' 

052516' 

000000 

016150' 

000002 

000200 



054062' 

000000 
052402' 
000016 
002216' 

000002 
002212' 



007376 

035774' 
000400 
000000 
000000 



I ISSUE REWIND COMMANO TO SELECTED TAPE DRIVE 
I 



032512' 651: 



JSR PC, REWIND 
hOV ♦20., R5 
MOV FREE.T25WB 



I CALL THE TAPE REWIND 
iSTARTING RECORD SIZE 
I STARTING WRITE BUFFER ADDRESS 



052510' 
052532' 
032532' 



052524' 
032522' 
032523' 



(WRITE OATA.CVC-l.ACK COMMAND 
t 

(WRITE DATA.CVC-l.ACK COMMAND 
I SETUP FOR RETRY COMMAND 
(MAKE IT A RETRY 
I SET UP R4 WITH PACKET ADDRESS 
I SET PATTERN IN CORRECT REGISTER 
iFILL MEMORY WITH RECORD SIZE 
(SET UP RECORD SIZE IN PACKET 
I ISSUE COMMAND 
iWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
iSET UP EXPECTED 
I ARE THEY EQUAL 
I BR IF OK 

I CHECK SPECIAL CONDITION 
80*! CKLOOP iLOOP iF SELECTED 

TRAP CtCLPl 
iGET TSBA CONTENTS 
I SET UP EXPECTED 
iSET TO END OF MESSAGE BUFFER 
iCMECK FOR EXTENDED FEATURES SW SET 
iBR. IF IT NOT SET 
(BUMP R2 FOR EXTRA DATA 
85 »: CMP R1,R2 lARE THEY EQUAL 

|BR» IF TSBA IC CORRECT 
iBv-iMP COUNT 

iTStm WAS NOT CORRECT AFTER WRITE DATA 

TRAP CIERHRD 
.WORD 309 
.^^OflO T25BA 
WORD EXPREC 
90$: CKLOOP iLOOP IF SELECTED 

TRAP C$CLP1 
lONLY CHECK RAM UNTIL ITS FULL 
I IT WRAPS AROUKO ETC, 

iMAKE SURE PACKET AND DATA ARE CLEAN 
I STARTING RAM ADDRESS 
(STOP INTERNAL TSV05 DIAGNOSTICS 
\^Ul Qf RAM READ 



MOV 


♦140005, T25PK5 


MOV 


♦140005, T23WRT 


BIS 


♦4000.T23WRT 


MOV 


♦T23PK5.R4 


MOV 


R5,R0 


JSR 


PC.FILLMEM 


MOV 


R5,T25SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5>,R1 


MOV 


♦SSR,R2 


CMP 


R1.R2 


BEQ 


80$ 


JSR 


PC.T25CMK 


CKLOOP 




POV 


T5BA(R5).R1 


MOV 


♦T25BFR,R2 


ADD 


♦16, R2 


TST 


EXTFEA 


BEQ 


85$ 


ADD 


♦2,R2 


CMP 


Rl,R2 


BEQ 


90$ 


INC 


FATFLG 



ERRHRD ERRNO , Td3BA , EXPREC 



CMP 


R5.^7576 


BGE 


115$ 


JSR 


PC,T23RT2 


MOV 


♦256.,T25S2 


MOVB 


♦0,T23BS0 


Move 


♦0,T23Bi^l 



D9 



II^t' ■5^'^g8^fe^v«55?i^DAf8 "'^^"° ' 


967 050052 


012704 


032470' 


968 030056 


010465 


000000 


969 050062 


004737 


016236' 


970 050066 


103407 




971 050070 


010001 




972 030072 


005237 


002212' 


976 050076 






030076 


104456 




050100 


000466 




030102 


055577' 




050104 


011746' 




977 050106 






050106 


104406 




978 030110 


004757 


033774' 


979 030114 


012757 


000400 032524 


980 050122 


112757 


000001 032522 


981 050130 


112737 


000002 032523 


982 050136 


012704 


03?470' 


985 050142 


010465 


000000 


984 050146 


004737 


016236' 


985 030152 


103407 




986 030154 


010001 




967 030156 


005237 


002212' 


991 030162 






030162 


104456 




050164 


000467 




050166 


055577' 




030170 


011746' 




992 030172 






030172 


104406 




993 050174 


005001 




994 050176 


005002 




995 050200 


015701 


032422' 


996 050204 


010502 




997 050206 


020102 




998 030210 


001406 




999 030212 


005237 


002212' 


1003 050216 






050216 


104456 




030220 


000470 




050222 


055065- 




050224 


015374' 




1004 030226 






030226 


104406 




1005 030230 


005237 


032524 ' 


1006 030254 


005237 


052524' 


1007 030240 


010301 




1008 030242 


062701 


000400 


1009 050246 


023701 


032524' 


1010 030252 


001335 




1011 030254 


062705 


001750 


1012 030260 


020337 


032520' 


1015 050264 


002005 




1014 050266 


020327 


177776 


1015 050272 


001402 




1016 050274 


000137 


027646' 


1017 030300 







MACRO M1113 Ol-FEB-84 17:54 



MOV 
MOV 
JSR 
BCS 
MOV 
INC 
ERRHRD 



SEQ 107 



92«! 



CKLOOP 



95»: 



100$ I CKLOOP 



1101 J CKLOOP 



115$; 



#T23PK2,R4 

R4,TSDBCR5) 
PC.CHKTSSR 




iSET R4 WITH PACKET ADDRESS 




1 ISSUE WRITE SUB SYS MEM COMMAND 
1 CHECK TSSR AND WAIT FOR SSR TO SET 


92$ 




iBR. IF NO ERRORS IN TSSR 


RO.Rl 




(SAVE TSSR 


FATFLG 




iBUMP COUNT 


ERRN0,T23WSS, 


.PKTSSR 


iTSSR BAD AFTER WRITE SUB SYS MEM 

TRAP CIERHRD 
.WORD 310 
.WORD T23WSS 
.WORD PKTS5R 



iLOOP IF SELECTED 



JSR 


PC,T25RT2 


MOV 


*256.,T23S2 


MOVB 


01,T23BSO 


MOVB 


♦2.T25BS1 


MOV 


#T23PK2,R4 


MOV 


R4,TSDeCR5) 


JSR 


PC.CHKTSSR 


BCS 


100$ 


MOV 


RO.Rl 


INC 


FATFLG 


ERRHRD 


ERRN0,T23WSS.PKTSSR 



CLR 


Rl 


CLR 


R2 


MOV 


T25BFR»20,R1 


MOV 


R3,R2 


CMP 


R1.R2 


BEQ 


110$ 


INC 


FATFLC 


ERRHRD 


ERRN0.T23RNC,EXPREC 



TNC 


T23S2 


INC 


T23S2 


MOV 


R3,R1 


ADD 


0256., Rl 


CMP 


T23S2,R1 


6NE 


9!!!$ 


ADD 


*1000. ,R5 


CMP 


R3,T25RSZ 


BGE 


120$ 


CMP 


R5, 065534. 


BEQ 


120$ 


JMP 


65$ 



TRAP 



C$CLP1 



120$: 



iMAKE SURE PACKET AND DATA ARE CLEAN 

(STARTING RAM ADDRESS 

iREAD RAM COMMAND FOR WRITE SUB SYS M. 

I SIZE OF RAM READ 

I SET R4 WITH PACKET ADDRESS 

I ISSUE WRITE SUB SYS MEM COMMAND 

I CHECK TSSR AND WAIT FOR SSR TO SET 

iBR. IF NO ERRORS IN TSSR 

I SAVE TSSR 

(BUMP COUNT 

I TSSR BAD AFTER WRITE SUB SYS MEM 

TRAP C$ERHRD 
.WORJ 311 
.WORD T25WSS 
.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP C$CLP1 

1 CLEAR REGISTER 

(CLEAR REGISTER 

(PICK UP BYTE READ FROM RAM 

I SET UP EXPECTED 

lis RAM DATA CORRECT 

iBR, IF OK (EQUAL) 

I BUMP COUNT 

iRNC-RAM NOT CORRECT 

TRAP C$ERHRD 
.WORD 512 
.WORD T25RNC 
.WORD EXPREC 

(LOOP IF SELECTED 

TRAP C$CLP1 

I BUMP RAM ADDRESS TO BE CHECKED 

I BUMP RAM ADDRESS TO BE CHECKED 

iGET SIZE OF RECORD 

(FIGURE OUT END RECORD ADDRESS 

(AT 2N0 OF RAM CHECK YET 

(BR, IF MORE TO CHECK 

(NEXT RECORD SIZE/DATA PATTERN 

lis R3 OVER MAX RECORD SIZE 

(IF RECORD SIZE IS TOO BIG QUIT 

(END OF SUBTEST MAX RECORD SIZE 

iBR, IF COMPLETED 

lOO MORE RECORDS 



E9 



TSV7 - HARDWARE TESTS 1-8 
TEST 3: BASIC WRITE DATA 



MACRO M1113 Ol-FEB-84 i7i54 



SEQ 108 



1018 030300 


004737 


034036' 


1019 030304 


004737 


033774' 


1020 030310 


012737 


102010 032470 


1021 030316 


012704 


032470' 


1022 030522 


010465 


000000 


1023 030326 


004737 


016236' 


1024 030332 


103407 




1025 030334 


OlOOOl 




1026 030336 


005237 


002212' 


1030 030342 






030342 


104456 




030344 


000471 




030346 


033016' 




030350 


011746' 




1031 030352 






1032 030352 






030352 






030352 


104403 




1033 030354 


023727 


002212' 000017 


1034 030362 


103402 




1035 030364 


004737 


017104' 


1036 030370 






103 7 






1038 






1039 






1040 






1041 






1042 






1043 






1044 






10^5 






1046 






1047 






1048 






1049 






1050 030370 






030370 






030370 


104402 




lO'il 030372 


004737 


033702' 


1052 030376 


004737 


033774* 


1053 






1054 






1055 






1056 






1057 






1058 






1059 






1060 030402 


004737 


015674- 


1061 030406 


103407 




1062 030410 


005237 


002212' 


1066 030414 


010001 




1067 030416 






030416 


104455 




030420 


000472 




03042? 


003642' 




030425 


011734' 




1068 030426 







JSR 


PC.T23RT3 


JSR 


PC,T23RT2 


MOV 


*102010,T23PK2 


MOV 


<^T23PK2,R4 


MOV 


R4,TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


1301 


MOV 


RO.Rl 


INC 


FATFLG 


ERRHRD 


ERRN0,T23RWN,PI<TSSR 



(RESTORE PACKET 
I CLEAN UP PACKET 
iREWINO (POSITION) COMMAND 
iLOAO R4 WITH PACKET ADDRESS 
I ISSUE REWIND COMMAND 
I WAIT FOR SSR TO SET 
I BR. IF TSSR IS OK (GOOD) 
(SAVE TSSR CONTENTS 
I BUMP COUNT 

I TSSR IS INCORRECT AFTER REWIND 

TRAP 



130$: 



>WORD 
.WORD 
.WORD 



CIERHRD 
313 

T23RWN 
PKTSSR 



999$! 



I ♦ 



ENDSU6 



CMP 
BLO 
JSR 



FATFLG. *15 

999$ 

PCCKOROP 



(>>>>>>>>>>>> ENO SUBTEST >>>>>>>>■»>>> 

L 10045: 

TRAP C$ESU6 
(IS ERROR COUNT AT 25 
I BR, IF LESS THAN 25 
I TRY TO DROP THE UNIT 



tTEST 3, SUBTEST 3 

(VERIFIES THAT WRITE DATA COMMANDS WITH CVC-1 AND THE 

iSWAP BYTES (SW8) BIT SET OPERATES PROPERLY. THE TEST 

(SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 

I THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 

; 

t 

I 

I - 

BGNSLB !>>>>>>>>>>>> BEGIN StCTEST ^>>>> 

T3.3: 

TRAP 
JSR PC,T23REST (SET COMMAND PACKET 

JSR PC.T23RT2 iSET UP OTHER COMMAND PACKET 



C$BS'JB 



(ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
I 



20$: 



JSR 


PC.SOFINIT 


(DO INITIALIZE ON CONTROLLER 




BCS 


20$ 


(BR IF INIT WAS OK 




INC 


FATFLG 


(BUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$EROF 






.WORD 


314 






.WORD 


SFIERR 






.WORD 


SFIMSG 



F9 



TSV7 - HARDWARE TF.STS 1-8 
TEST 3: BASIC WRITE DATA 



MACRO K1113 Ol-FEB-84 17:54 



SEQ 109 



1069 
1070 
1071 
1072 
1075 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1084 
1085 



1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 

1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1123 



030426 
030454 



030440 
030444 
030446 
030452 
030454 
030454 
030456 
030460 
030462 
030464 
030464 
030470 



030476 
030504 
030512 
030520 
030524 
030526 
030532 
030536 
030542 
030546 
030552 
030556 
030560 
030562 
030566 
03C566 
030570 
050574 
030600 
030604 
C30610 
030612 
030616 
030620 
030622 
030626 
030626 
030630 
030632 



013737 002172' 032400' 
012704 032360' 



MOV UNITN.T230SW 
MOV #T23PACI<ET.R4 



I SET UP Uf'IT NUMBER 

I SUBROUTINE NEEDS PACKET ADDRESS 



) 4i*«*«*********4i**4i*** ******* A**** ********* A*************** *4i*jfc)K4i A* 

IWRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 
1 



004737 010562' 

105407 

005237 002212' 

010001 

104456 
000473 
005046' 
011734' 

012703 000024 

013737 003114' 032512' 



JSR PC, WRTCHR 

BCS 251 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , 5FIMSG 



23$: 
65$: 



MOV #20.. R3 
MOV FREE,T23WB 



I ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
I WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

(STARTING RECORD SIZE 

t STARTING WRITE BUFFER ADDRESS 



CJERHRD 
315 

WRTMSG 
SFIMSG 



012757 
012737 
052737 
012704 
010300 
004737 
010337 
010465 
004757 
016501 
012702 
020102 
001402 
004737 

104406 
016501 
012702 
062702 
005737 
001402 
062702 
020102 
001406 
005237 

104456 
000474 
033525 



150005 052510 

150005 052532 

004000 032532 
032510' 



017324' 

052516' 

000000 

016150' 

000002 

000200 



034062' 

000000 
052402' 
000016 
002216' 

000002 
002212 



iWRITE DATA.CVC-l.ACK.SWB COMMAND 
1 

t A******* (i* ***************** ***4kAi|t«;**4ii|>4t** ************* ***A ******* it 

!WRITE DATA.CVC-l.ACK.SWB COMMAND 
(SETUP FOR RETRY COMMAND 
(MAKE IT A RETRY 
(SET UP R4 WITH PACKET ADDRESS 
(SET PATTERN IN CORRECT REGISTER 
(FILL MliMORY WITH RECORD SIZE 
(SET UP RECORO SIZE IN PACKET 
(ISSUE COMMAND 
(WAIT FOR 5SR TO SET 
(GET TSSR CONTENTS 
(SET UP EXPECTED 
(ARE THEY EQUAL 
(BR. IF OK 

(CHECK SPECIAL CONDITION 
80$: CKLOOP (LOOP IF SELECTED 

TRAP C$CLP1 
(GET TSBA CONTENTS 
(SET UP EXPECTED 
(SET TO END OF MESSAGE BUFFER 
(CHECK FOR EXTENDED FEATURES SW SET 
(BR. IF IT NOT SFT 
iBl^lP R2 FOR EXTRA DATA 
85$: CMP R1.R2 lARE THEY EQUAL 

(BR, IF TSBA IS CORRECT 
(BUMP COUNT 

(TSBA WAS NOT CORRECT AFTER WRITE DATA 

TRAP CJERHRD 
.WORD 316 
. WORD T23BA 



MOV 


♦150005, T23PK3 


MOV 


#150005, T25WRT 


BIS 


#4000,T23WRT 


MOV 


#T23PK3,R4 


MOV 


R5,R0 


JSR 


PC.FILLMEM 


MOV 


R3,T25SZ 


MOV 


R4.TSDBCR5) 


JSR 


PCWAITF 


MOV 


TSSR(R5),R1 


MOV 


#5SR,R2 


CMP 


R1.R2 


BEQ 


80$ 


JSR 


PC,T23CHK 


CKLOOP 




MOV 


TSBA(R5).R1 


MOV 


#T23BFR,R2 


ADD 


#16, R2 


TST 


EXTFEA 


BEQ 


85$ 


ADD 


#2.R2 


CMP 


R1,R2 


BEQ 


90$ 


INC 


FATFLG 



ERRHRD ERRNO , T23BA . EXPREC 



TSV7 - HARDWARE TESTS 1-8 
TEST 3t BASIC WRITE DATA 



G9 



MACRO M1113 Ol-FEB-84 17:54 



SEQ 110 



030634 


015374' 




1124 030636 






050636 


104406 




1125 030640 


020327 


007376 


1126 030644 


002115 




1127 030646 


004737 


033774' 


1128 030652 


012737 


000400 032524' 


1129 030660 


112737 


000000 032522' 


1130 030666 


112737 


000000 032523' 


1131 030674 


012704 


032470' 


1132 030700 


010465 


000000 


1133 030704 


004737 


016236' 


1134 030710 


103407 




1135 030712 


010001 




1136 030714 


005237 


002212' 


1140 030720 






030720 


104456 




030722 


000475 




030724 


033577' 




030726 


011746' 




1141 030730 






030730 


104406 




1142 030732 


004737 


033774' 


1143 030736 


012737 


000400 032524 • 


1144 030744 


112737 


000001 032522' 


1145 030752 


112737 


000002 032523' 


1146 030760 


012704 


032470' 


1147 030764 


010465 


000000 


1146 050770 


004737 


016236' 


1149 C50774 


103407 




1150 030776 


OlOOOl 




1151 031000 


005237 


002212' 


1155 03V0O4 






031004 


104456 




031006 


000476 




031010 


033577' 




031012 


011746' 




1156 031014 






031014 


104406 




1157 031016 


005001 




1158 031020 


005002 




1159 031022 


013701 


032422' 


1160 031026 


010302 




1161 031030 


000302 




1162 031032 


020102 




1163 031034 


001406 




1164 051036 


005237 


002212' 


1168 051042 






031042 


104456 




031044 


000477 




051046 


035065' 




051050 


015574' 




1169 031052 






031052 


104406 




1170 031054 


005237 


052524' 


1171 031060 


005237 


032524- 


1172 031064 


010301 





90$ J 



CKLOOP 



CMP 


r: 07376 


BGe 


llb» 


JSR 


PC.T23RT2 


MOV 


*256.,T23S2 


MOVB 


*O,T23BS0 


MOVB 


*0.T23BS1 


MOV 


*T25PK2,R4 


MOV 


R4,TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


92 i 


MOV 


RO.Rl 


INC 


FATFLG 


ERRHRD 


ERRN0.T23WSS,P1<TSSR 



92$: 



CKLOOP 



95$: 



JSR 


PC,T23RT2 


MOV 


#256..T25S2 


MOVB 


#1.T25BS0 


MOVB 


#2.T23BS1 


MOV 


«T23PK2.R4 


MOV 


R4.TSDB(fi5) 


JSR 


PC.CHKTSSR 


BCS 


1001 


MOV 


RO.Rl 


INC 


FATFLG 


ERRHRD 


ERRN0,T25WSS,PKTSSR 



100$: CKLOOP 



CLR 


Rl 


CLR 


R2 


MOV 


T23BFR*20.R1 


MOV 


R3,R2 


SUAB 


R2 


CMP 


R1.R2 


BEQ 


110$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T23RNC,EXPREC 



110$: CKLOOP 

INC T23S2 

INC T25S2 

MOV R3,R1 



.WORD EXPREC 
I LOOP IF SELECTED 

TRAP C$CLP1 
I ONLY CHECK RAM UNTIL ITS FULL 
I IT WRAPS AR0U>40 ETC. 
(MAKE SURE PACKET AND DATA ARE CLEAN 
I STARTING RAM ADDRESS 
I STOP INTERNAL TSV05 DIAGNOSTICS 
(SIZE OF RAM READ 
(SET R4 WITH PACKET ADDRESS 
I ISSUE WRITE SU8 SYS MEM COMMAND 
(CHECK TSSR AND WAIT FOR SSR TO SET 
I BR. IF NO ERRORS IN TSSR 
I SAVE TSSR 
I BUMP COUNT 
I TSSR BAD AFTER WRITE SUB SYS MEM 



(LOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


317 


.WORD 


T23WSS 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



I MAKE SURE PACKET AND DATA ARE CLEAN 

(STARTING RAM ADDRESS 

(READ RAM COMMAND FOR WRITE SUB SYS M. 

(SIZE OF RAM READ 

(SET R4 WITH PACKET ADDRESS 

(ISSUE WRITE SUB SYS MEM CMO (READ RAM) 

(CHECK TSSR AND WAIT FOR SSR TO SET 

(BR. IF NO ERRORS IN TSSR 

(SAVE TSSR 

I BUMP COUNT 

(TSSR BAD AFTER WRITE SUB SYS MEM 



(LOOP IF SELECTED 



TRAP 


C$ERHRO 


.WORD 


518 


.WORD 


T23yss 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



(CLEAR REGISTERS 

(CLEAR RFGISTERS 

(PICK UP BYTE READ FROM RAM 

(SET UP EXPECTED 

(SWAP BYTES 

(IS RAM DATA CORRECT 

(BR, IF OK (EQUAL) 

(BUMP COUNT 

(RNC-RAM NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 

(BUMP RAM ADDRESS TO BE CHECKED 

(BUMP RAM ADDRESS TO BE CHECKED 

(GET SIZE OF RECORD 



CJERHRD 
319 

T23RNC 
EXPREC 

C$CLP1 



TSV7 - HARDWARE TESTS 1-8 
TEbT 3: BASIC WRITE DATA 
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MACRO MiH3 Ol-FEB-84 17:54 



SEQ 111 



1173 031066 


062701 


000400 


1174 031072 


023701 


032524' 


1175 031076 


001332 




1176 031100 


062703 


001750 


1177 031104 


020337 


032520' 


1178 031110 


002005 




1179 031112 


020327 


177776 


1160 031116 


001402 




1181 031120 


000137 


030470' 


1182 031124 






1183 031124 


004737 


033774' 


1184 031130 


012737 


102010 032470- 


1165 031136 


012704 


032470' 


1186 031142 


010465 


000000 


1187 031146 


004737 


016236' 


1188 031152 


103407 




1189 031154 


010001 




1190 031156 


005237 


002212' 


1194 031162 






031162 


104456 




031164 


000500 




031166 


033016' 




031170 


011746' 




1195 031172 






1196 031172 






031172 






031172 


104403 




1197 031174 


023727 


002212' 000017 


1198 031202 


103402 




1199 031204 


004737 


017104' 


1200 031210 






1201 






1202 






1203 






1204 






1205 






1206 






1207 






1208 






1209 






1210 






1211 






1212 






1213 031210 






031210 






031210 


104402 




1214 031212 


004737 


033702' 


1215 031216 


004737 


054036' 


1216 031222 


004737 


033774' 


1217 






1218 






1219 






1220 






1221 






1222 






1223 






1224 031226 


004 737 


015674' 



115$: 



120$: 



ADD 


*236..R1 1 


CMP 


r23S2.Rl 1 


BNE 


95$ 1 


ADD 


*1000..R3 I 


CMP 


R3,T23RSZ » 


BGE 


1201 1 


CMP 


R3.^5534. 1 


BEQ 


1201 I 


JMP 


65$ 1 


JSR 


PC,T23RT2 1 


MOV 


#102010. T23PK2 i 


MCV 


*T23PK2.R4 i 


iir.v 


R4,TSDBCR5) t 


J-R 


PC.CHKTSSR 1 


BC. 


1301 ( 


M0\' 


RO.Rl ( 


t'jC 


FATFLG ( 


ERRHRD 


ERRN0,T23RUN,PKTSSR i 



130$: 



999$ 



t ♦ 



ENosue 



CMP 

BUO 
JSR 



FATFLG.dlS. 

999$ 

PCCKDROP 



FIGURE OUT END RECORD ADDRESS 

AT END OF RAM CHECK YET 

BR, IF MORE TO CHECK 

NEXT RECORD SIZE/DATA PATTERN 

IS R3 OVER MAX RECORD SIZE 

IF RECORD SIZE IS TOO BIG QUIT 

END OF SUBTEST MAX RECORD SIZE 

BR, IF COMPLETED 

DO MORE RECORDS 

CLEAN UP PACKET 

REWIND (POSITION) COMMAND 

LOAD R4 WITH PACKET ADDRESS 

ISSUE REWIND COMMAND 

WAIT FOR SSR TO SET 

BR, IF TSSR IS OK (GOOD) 

SAVE TSSR CONTENTS 

BUMP COUNT 

TSSR IS INCORRECT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 



CIERHRD 
320 

T23RWN 
PKTSSR 



J i>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L 10046: 

TRAP C$ESUB 
»IS ERROR COUNT AT 25 
jBR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



I TEST 3, SUBTEST 4 

iVERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL MODE 

iFIELD OR AN ILLEGAL BUFFER ADDRESS IS REJECTED WITH 

(THE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE 

t 

I 

I - 



BGNSUB 



JSR 


PC.T23REST 


JSR 


PC.T23RT3 


JSR 


PC.T23RT2 



!>>>>>>*>>>»> BEGIN SUBTEST >>*> >>^ ^ >>>^ 

T3.4; 

TRAP C$BSUe 
I SET COMMAND PACKET 
jRESTORE PACKET 
(SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

JSR PC.SOFINIT tDO INITIALIZE ON CONTROLLER 



19 



TSV7 - HARDWARE TESTS 1-6 
TEST 3: BASIC WRITE DATA 



MACRO M1113 Ol-FEB-84 17:54 



SEQ 112 



1^25 
1226 
1230 
1231 



1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1248 
1249 



1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1272 



1273 
1274 

1275 



031232 
031234 
031240 
031242 
031242 
031244 
031246 
031250 
031252 
0312r.2 
031260 



031264 
031270 
031272 
031276 
031300 
031300 
031302 
031304 
031306 



031310 
031316 
031324 
031332 
031340 
031344 
031350 
031354 
031360 
031364 
031566 
031370 
031374 
031574 
031376 
031400 
031402 
031404 
031404 
031406 
031406 
051406 
031410 



103407 

005237 002212' 

010001 

104455 
000501 
003642' 
011734' 

013737 002172' 032400' 
012704 032360' 



20$: 



BCS 


20$ 


(BR IF INIT I 


4AS OK 




INC 


FATKLG 


iBUMP COUNT 






MOV 


RO.Rl 


(CONTENTS OF 


TSSR REGISTER 




ERRDF 


ERRNO. SFIERR, SFIMSG 


1 FATAL ERROR 


TSSR WAS NOT OK 
TRAP 
.WORD 
.WORD 
.WORD 


CIERDF 
321 

SFIERR 
SFIMSG 



MOV UNITN.T25DSW 
MOV #T23PACKET.R4 



I SET DRIVE NUMBER IN PACKET 

I SUBROUTINE NEEDS PACKET ADDRESS 



t *********** *i* ****** A«i4*******««*****4*********«*«^4i4A«*4«««««4>«'»« 

; WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

I 

}*******************«********************«***************«.********* 



004737 010562 

103407 

005237 002212 

010001 

104456 
000502 
005046' 
011734' 



JSR 


PC. WRTCHR 


1 ISSUE WRITE CHARACTERISTICS 




BCS 


231 


iBR. IF COMMAND ISSUED OK 




INC 


FATFLG 


I BUMP COUNT 




MOV 


RO.Rl 


(SAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO.WRTMSG.iiFIMSG 


iWRITE CHARACTERISTISC FAILED 








TRAP 


CtERHRD 






.WORD 


322 






.WORD 


WRTMSG 






.WORD 


SFIMSG 



I *************«***!' ************************************************ 

(WRITE DATA. ACK . ILLEGAL BITS 

I 

J ****************************************************************** 



032510' 
052512' 
032512' 
032516* 



012737 104405 

013737 003114' 

062737 000001 

012737 000400 

012704 052510 

010465 000000 

004737 016150 

016501 000002 

012702 100206 
020102 
001406 

005237 002212 

104456 
000503 

032742' 
011746' 

104406 



104403 

023727 002212' 000017 



23$: 



MOV 


*104405.T23PK3 


MOV 


FHEE.T23We 


ADD 


«1.T25W6 


MOV 


#256..T23SZ 


MOV 


♦T23PK3.R4 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


0SSR!SC!BIT1»BIT2,R2 


CMP 


R1.R2 


BEQ 


601 


INC 


FATFLG 


ERRHRD 


ERRN0,T25TM.PKTSSR 



80$ 



CKLOOP 
ENDSUB 

CMP 



FATFLG, #15. 



iWRITE DATA. ACK. ILLEGAL BITS 

iSET UP WRITE BUFFER ADDRESS 

(MAKE ADDRESS ODD (ILLEGAL) 

I SET UP BUFFER SIZE 

jR4 • POINTER TO PACKET 

I ISSUE COMMAND 

(WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

(SET UP EXPECTED 

iARE TMEY EQUAL 

iBR, IF OK ESP. FUNCTION REJECT 

iBUMP COUNT 

I TSSR INCORRECT AFTER WRITE COMMAND 

TRAP C$ERHRD 

.WORD 

.WORD 

.WORD 
ILCOP IF SELECTED 

TRAP 
(>>>>>>»>>>>> END SUBTEST ■>>*• 

L 10047: 

TRAP 
lis ERROR COUNT AT 25 



323 

T23TM 
PKTSSR 

CICLPI 
\ ■» \ > > > > 

C$ESUB 



J9 



TSV? - HARDWARE TESTS 1-8 
TEST 3: BASIC WRITE DATA 



1276 


031416 


103402 




1277 


031420 


004737 


017104' 


1278 


031424 






1279 








1280 








1281 








1282 








1283 








1284 








1285 








1286 








1287 








1288 








1289 








1290 


031424 
031424 








031424 


104402 




1291 


031426 


005737 


003126' 


1292 


0^1432 


001002 




1293 


031434 


000137 


031754' 


1294 


031440 


004757 


033702' 


1295 


031444 


004757 


034036' 


1296 


031450 


004737 


033774' 


1297 








1298 








1299 








1300 








1301 








1302 








1305 








1304 


031454 


004737 


015674' 


1305 


031460 


103407 




1306 


031462 


005237 


002212' 


1310 


051466 


010001 




1311 


031470 








031470 


104455 






031472 


000504 






031474 


003642' 






031476 


011734' 




1312 


031500 






1313 


031500 


013737 


002172' 


1314 


031506 


012704 


032360' 


1315 








1316 








1317 








1318 








1319 








1320 








1321 








1322 


031512 


004737 


010562' 


1323 


031516 


103407 




1324 


031520 


005237 


002212' 


1328 


051524 


010001 




1329 


031526 








031526 


104456 






031530 


000505 






031532 


005046' 





MACRO M1113 Ol-FEB-84 17:54 



SEQ 113 



032400' 



BLO 
JSR 



9991 

PC.CKOROP 



999$: 

» ♦ 

iTFST 3. SUBTEST 5 

I VERIFIES THAT A WRITE DATA COMMAND SPECIFYli^ A DATA 

(BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 

(THE PROPER ERROR STATUS WITHOUT MOVING TAPE 

I 

i- 



iBR, IF LESS THAN 25 
I TRY TO DROP THE UNIT 



BGNSUB 



10$: 



TST 


NXMFLG 


BNE 


101 


JMP 


90$ 


JSR 


PC,T23REST 


JSR 


PC,T23RT3 


JSR 


PC,T23RT2 



!>>>>>>>>>>>> BEGIN SUBirST >>>>>>>•. >^ >> 

T3.5: 

TRA'^ C$BSUB 
(DO WE HAVE IT? 
I BR. IF ENOUGH 
(SKIP THIS TEST IF NOT 
(SET COMMAND PACKET 
(RESTORE PACKET 
(SET UP OTHER COMMAND PACKET 



(ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
( 

I 4i«4i 4i***4t****4t4t ******** *«***4i«4iA4i4>4>4i 41****** *****4>4>4>***4>*4>*4>**4>*«**« 



20$: 



JSR 


PC.SOFINIT 


(00 INITIALIZE ON CONTROLLER 




BCS 


20$ 


(BR IF INIT WAS OK 




INC 


FATFLG 


(BUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


324 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV UNITN,T23DSW 
MOV *T23PACKET,R4 



(SET DRIVE NUMBER UP 
[SUBROUTINE NEEDS PACKET ADDRESS 



j*«*4i*««*4i*4**********************v^***********************4******* 

(WRITE CHARAClERISTICS COMMAND (CALL TO WRTCHR) 
I 

(******** **4i ********************************************** ********* 



JSR PC. WRTCHR 

BCS 123$ 

INC FATFLG 

MOV RO.Rl 

ERRHRr ERRNO . URTMSG , SFIMSG 



(ISSUE WRITE CHARACTERISTICS 
(BR, IF COMMAND ISSUED OK 
(BUMP COUNT 

(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 



C$ERHRO 

325 

WRTMSG 



I<9 



TSV7 - HARDWARE TESTS 1-8 
TEST 5: BASIC WRITE DATA 



MACRO M1113 Ol-FEB-84 17:54 



SEQ 114 



1350 
1551 
1552 
1333 
1334 
1335 
1336 
1357 
1339 
1359 
1340 
1341 
1342 
1343 
1344 
1545 
1346 
1347 
1348 



031534 011734' 



1353 

1354 
1355 
1356 
135V 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1565 
1366 
1567 
1368 
1369 
1570 
1371 
1372 
1375 
1374 
1375 
1376 
13/7 
1S61 



1382 



051536 
031536 
031542 
031544 
031550 
031556 
031564 
0;U570 
031574 
031600 
031602 
031604 
031610 
051610 
031612 
031614 
031616 
031620 
031620 

031622 
031626 
031632 
031636 
031640 



031644 
031650 
031650 
031656 
031664 
031672 
031676 
031702 
051706 
031712 
051716 
031720 
031722 
031726 
031734 
031736 
051742 
031742 
031744 
031746 
031750 
031752 



005737 002216' 

001026 

005237 002216' 

112757 0O020O 052523 

112757 000010 032522 

012704 032470' 

010465 000000 

004737 0iei:56' 

105407 

OlOOOl 

005257 002212' 

104456 
000506 
026130' 
011746' 

104406 

012701 160000 

012702 177776 
004737 016276' 
105045 
010137 003130' 



.WORD 

IwRITE DATA. ACK. CVC-1 
* 

123$: 



SFIMSG 



TST 


EXTFEA 


BNE 


130$ 


INC 


EXTFEA 


M0V8 


*200,T23B51 


MOVB 


*10,T23eSO 


MOV 


#T23PK2.R4 


MOV 


R4,TSUB(R5) 


JSR 


PC.CHKTSSR 


BCS 


130$ 


MOV 


RO.Rl 


INC 


FATFLG 


ERRHRD 


ERRN0,T22SSR,PKTSSR 



130$ 



CKLOOP 



005037 052514 



012737 
013737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
0014 M 
005237 
023727 
001345 
005237 

104456 
000507 
032742' 
011746' 



140005 

003130' 

000100 

032510' 

000000 

016150 

000002 

104210 



032514 
032514 

002212 



032510' 
032512' 
032516' 



24$ i 



000004 



25t: 



MOV 


*160000,R1 


MOV 


<M77776,R2 


JSR 


PC » XNXM 


BCC 


80$ 


MOV 


Rl.NXMLO 


CLR 


T25WB»2 


MOV 


0140005. T25PK3 


MCV 


NXML0,T25WB 


MOV 


i>64, .T23SZ 


MOV 


#T25PK3.R4 


MOV 


R4.TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


«SC!NXM!SSR!BIT5.R2 


CMP 


R1,R2 


BEQ 


80$ 


INC 


T25W8*2 


CMP 


T25WB»2.*4 


BNE 


24$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T25TM,Pl<TSSR 



I CHECK FOR EXTENDED FEATlJRES SW SVilTCH 

I BR IF SWITCH I*^ O.-i 

jONLY ONE TIME 

iWRITE MISCELLANEOUS CONT/READ STATUS 

(FUNCTION SELECTION BIT (TURN ON EXTFEA H'^ SWITCH) 

(WRITE SUBSYS MEM PACKET 

(ISSUE COMMAND 
WAIT FOR 3SR 

I BR, IF NO ERROR 

(ERROR. SAVE TSSR 

(BUMP COUNT 

(TSSR NOT CORRECT AFTER WRT . MISCELLANEOUS 

TRAP C$ERHflD 
.WORD 326 
.WORD T22SSR 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C*CLP1 

(NXM LOW ADDRESS START 

(LIMIT CHECK FOR NXM CHIGHEST) 

(LOOK FOR NXM ADORESo 

(BR, IF NON FOUND 

(SET ADDRESS UP FOR TEST 



(CLEAR OUT THE HIGH BITS AREA 

(WRITE DATA, ACK, CVC-1 

(SET UP WRITE BUFFER ADDRESS 

(SET UP BUFFER SIZE 

(R4 - POINTER TO PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EGHJAL 

(BR. IF OK ESP. FUNCTION REJECT 

(BUMP TO NEXT ADDRESS BIT 

, CHECK TO SEC IK OVEr"'FLOW INTO 19 BIT 

iBR, IF BITS 17 AND 18 

(BUMP COUNT 

(TSSR INCORRECT AFTER WRITE COMMAND 



90$ 



CKLOOP 



(LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
527 
T25TM 
PKTSSR 



TSV7 - HARDWARE TESTS 1-6 
TEST 3: BASIC WRITE DATA 



L9 



MACRO MIH3 Ol-FEB-eA 17:54 



SEQ 115 



1583 
1384 



1385 
1386 
1387 
1388 
1389 
1390 
1591 
1392 
1593 
1394 
1395 
1596 
1397 
1398 
1399 
1400 
1401 



1403 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1421 
1422 



1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 



031752 
031754 
031754 
031754 
031754 
031756 
031764 
031766 
031772 



031772 
031772 
031772 
031774 
032000 
032002 
032006 
032012 
032016 



032022 
032026 
032030 
032034 
032036 
032036 
032040 
032042 
032044 
032046 
032046 
032054 



104406 



104403 

023727 002212' 

10340? 

004737 017104' 



90 J i 



TRAP 



C$CLP1 



104402 
005737 
001002 
000137 
004757 
0047ii7 
004737 



003126' 

032320 
034036 
033702 
033774 



004737 015674' 

103407 

005237 00i?2i2' 

010001 

104455 
000510 

005642' 
011734' 

013737 002172' 
012704 032360' 



000017 



032400' 



ENDSUe 



CMP 
BLO 
JSR 



rATFLG,*15. 

999$ 

PC.CKDROP 



999$; 

iTEST 3. SUBTEST 6 

IvERiriES THAT A WRITE DATA C0MHA^40 SPECIFYING A DATA 
I BUFFER STARTING IN EXISTANT MEMORY BUT RUNNING INTO 
; NONEXISTENT MEMORY TERMINATES WITH THE PROPER ERROR 
(STATUS. A LARGE ENOUGH RECORD SIZE IS SPECIFIED SUCH 
(THAT TAPE IS ACTUALLY MOVED AND WRITTEN. 



!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L 10050 t 

TRAP C*ESUB 
lis ERROR COUNT AT 25 
jBP, IF LESS THAN 25 
;TRY TO DROP THE UNIT 



BGNSU6 



10$: 



TST 


NXMFLG 


BNE 


10$ 


JMP 


130$ 


JSR 


PC.T23RT3 


JSR 


PC.T23REST 


JSR 


PC.T23RT2 



(>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T3.6! 

TRAP CSBSUB 
iDO WE HAVE IT? 
(BR. IF ENOUGH 
iSKlf-* THIS TEST IF NOT 
iRESTORE PACKET 
I SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 



! ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
I 



20$: 



JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 




BCS 


20$ 


I BR IF INIT WAS OK 




INC 


FATFLG 


iBUMP CO'JNT 




MOV 


RO.Rl 


iCONTENTS or TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


» FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


528 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV UNtrN.T25DSW 
MOV #T25PACKET,R4 



I SET DRIVE NUMBER IN PACKET 

I SUBROUTINE NEEDS PACKET ADDRESS 



032060 004737 010562' 



iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

JSR PC. WRTCHR ;ISSUE WRITE CHARACTERISTICS 



TSV7 - HARDWARE TESTS IS 
TEST 3: BASIC WRITE DATA 



M9 



MACRO M1113 Ol-FEB-64 17;54 



SEQ 116 



1434 032064 


103407 




1435 032066 


005237 


002212' 


1439 032072 


010001 




1440 032074 






032074 


104456 




032076 


000511 




C32100 


005046' 




032102 


011734' 




1441 






1442 






1443 






1444 






1445 






1446 






1447 






1448 032104 






1449 032104 


012701 


160000 


1450 032110 


012702 


177776 


1451 032114 


004737 


016276' 


1452 032120 


103051 




1453 032122 


010137 


003130' 


1454 032126 


012737 


000000 032514' 


1455 032134 






1456 032134 


012737 


140005 032510' 


1457 032142 


013701 


003130' 


1458 032146 


162701 


000500 


1459 032152 


010137 


032512* 


1460 032156 


012737 


000000 032516' 


1461 032164 


012704 


032510' 


1462 032170 


010465 


000000 


1463 032174 


004737 


010150' 


1464 032200 


016501 


000002 


1465 C32204 


0127C2 


104210 


1466 032210 


020102 




1467 032212 


001414 




1468 032214 


005237 


032514' 


1469 032220 


023727 


032514- 000004 


1470 032226 


001342 




1471 032230 


005237 


002212' 


1475 032234 






032234 


104456 




032236 


000512 




032240 


032742' 




032242 


011746' 




1476 032244 






032244 


104406 




1477 032246 


004737 


033774' 


1478 032252 


004737 


034036' 


1479 032256 


012737 


102010 032470' 


1480 032264 


012704 


032470' 


1481 035270 


01046S 


000000 


1482 032274 


004737 


016236' 


1483 032300 


103407 




1484 032302 


010001 




1485 032304 


005237 


002212' 


1489 032310 






032310 


104456 





BCS 


23$ 


iBR. IF COMMAND ISSUED 


OK 




INC 


FATFLG 


iBUMP COUNT 






MOV 


RO.Rl 


(SAVE CONTENTS OF TSSR 






ERRHRD 


ERRNO, WRTMSG, SFIMSG 


(WRITE CHARACTERISTISC 


FAILED 
TRAP 
.WORD 
.WORD 
.WORD 


CIERHRD 
329 

WRTMSG 
SFIMSG 



t 4i«j4i«*4L*4i 41 ♦**4>4>'«t 4i4i**4i4«* A 4i>f*'(i4(>f Alt' 4^ 4i4i4i4i 4i«4i«*4i 4(4i'ti**4t 41*4**44 **4i4i4L4i4i*4i* 

IwRlTE DATA, ACK.CVC-l 
i 

;44444i44444444<>4-t^^ 44444444 444444444444444444444444444444444444444444 



23*1 



24$: 



25S: 



80$: 



MOV 
HOV 
JSR 
BCC 
MOV 
MOV 

MOV 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
CMP 
BNE 
INC 
ERRHRD 



CKLOOP 



*160000,R1 

*177776.R2 

PCXNXM 

801 

Rl.NXMLO 

*0,T23WB*2 

♦140005, T23PK3 

NXMLO.Rl 

*500,R1 

R1.T23WB 

^..T23SZ 

#T23PK3,Rfl 

R4,TSDBCR5) 

PC.WAITF 

TSSR(R5).R1 

*SC!NXM»5SR!BIT3,R2 

R1.R2 

805 

T23WB*2 

T23WB*2.M 

24$ 

FATFLG 

ERRN0.T23TM,PI<TSSR 



JSR 


PC,T23RT2 


JSR 


°C.T23RT3 


MOV 


0102010, T23PK2 


MOV 


#T23PK2,ft4 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


BCS 


130$ 


MOV 


R0,R1 


INC 


FAIKLG 


ERRHRD 


tRRN0,T23RWN.PI<TSSR 



NXM LOW ADDRESS START 

LIMIT CHECK FOR NXM (HIGHEST) 

LOOK FOR NXM ADDRESS 

BR. IF NOH FOUND 

SET ADDRESS \JP FOR TEST 

SET TO 16 BIT ADDRESS 

WRITE DATA. ACK.CVC-i 

HIGHEST MEMORY ADDRESS LOW BITS 

SET ADDRESS A LITTLE LOWER 

LOAD INTO THE PACKET 

SET UP BUFFER SIZE (64K BYTES) 

R4 - POINTER TO PACKET 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR. IF OK ESP. FUNCTION REJECT 

BUMF TO NEXT ADDRESS RANGE 

CHECK TO SEE IF UE WENT TO HIGH 

BR. IF NO OVER FLOW 

BUMP COUNT 

TSSR INCORRECT AFTER WRITE COMMAND 

TRAP CSERHPD 
.WORD 330 
.WORD T23TM 
.WORD PKTS5R 
iLOOP IF SELECTED 

TRAP C$CLP1 
i CLEAN UP PACKET 
J RESTORE PACKET 
iREWiND (POSITION) COMMAND 
jLOAO R4 WITH PACKET ADDRESS 
t ISSUE REWIND COMMAND 
(WAIT FOR SSR TO SET 
iBR. IF TSSR TS OK (GOOD) 
I SAVE TSSR CONTENTS 
:BUMP COUNT 
I TSSR IS INCORRECT AFTER REWIND 

TRAP CJERHRD 



N9 



TSV7 - HARDWARE TESTS 1-8 
TEST 3: BASIC WRITE DATA 



MACRO M1113 Ol-FEB-ei 17:54 



032312 


000513 


032314 


033016' 


032316 


011746' 


1490 032320 




1491 032320 




032320 




032320 


104403 


1492 032322 


023727 002212' 


1493 032330 


103402 


1494 032332 


004737 017104' 


1495 032336 




1496 032336 


004737 016360' 


1497 032342 


103002 


1498 032344 


000137 027146' 


1499 032350 




1500 032350 




032350 


104432 


032352 


001676 


1501 




1502 




1503 




1504 




1506 03235A 




1508 032360 




1509 032360 


100004 


1510 032362 


032370' 


1511 032364 


000000 


1512 032366 


000010 


1513 032370 




1514 032370 


O32h02' 


1515 032372 


000000 


1516 0323M 


000012 


1517 032376 


000000 


1518 032400 


000000 


1519 032402 




1520 




1521 




1522 




1524 032464 




1526 032470 




1527 032470 


100006 


1528 032472 


032522' 


1529 032474 


000000 


1530 032476 


000006 


1531 




153i 032500 




1535 032510 




1536 032510 


100005 


1537 032512 


000000 


1538 032514 


000000 


1539 032516 


000000 


1540 




1541 




1542 032520 


000000 


1543 




1544 




1545 052522 





130$: 



000017 



999$: 



163$: 



ENDSUB 



CMP 
BLO 
JSR 

JSR 
BCC 
JMP 

EXIT 



FATFLG.#15 

999$ 

PC.CKDROP 

PC.TSTLOOP 

163$ 

T23L00P 

TST 



(LOCAL STORAGE FOR THIS TEST 

10-<.-TSV267> 



.BLKB 

T23PACKET: 

.WORD 
.WORD 
.WORD 
.WORD 

T23DATA: 

.WORD 
.WORD 
.WORD 
.WORD 

T23DSW: .WORD 

T23BFR: .BLKW 



100004 

T23DATA 



8. 

T23BFR 



10. 





25. 



WRITE SUBSYSTEM MEMORY COMM.iND PACKET 
.BLKB 10-<. -TSV2t;7> 



T23PK2 ! 



.WORD 
.WORD 
.WORD 
.WORD 



100006 

T23BF2 



6. 



.BLKB 10-<. -TSV2£7> 



T23PK3: 

T23WB: 

T23SZ: 

T23RSZ: .WORD 

T23BF2: 



.WORD 
.WORD 
.WORD 
.WORD 
.EVEN 



100005 









SEQ 117 



.WORD 
.WORD 
.WORD 



331 

T23RWN 

PKTSSR 



; >>> >>>>>>>>v END StJBTEST >>>>>>>>>>>> 

L10051: 

TRAP C$ESUB 
;IS ERROR COUNT AT 25 
jBR, IF LESS THAN 25 
J TRY TO DROP THE UNIT 

;00 WE NEED TO ITERATE TEST 
tSR. IF NO LOOP REQUIRED 
J EXECUTE AGAIN 



I ALL DONE THIS TEST 



TRAP 
.WORD 



C$EXIT 
L10043-. 



i COMMAND PACKET FOR TEST 

1 WRITE CHARACTERISTICS COMMAND, WITH ACK 

(ADDRESS OF CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 
; CHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

J LENGTH OF MESSAGE BUFFER 

I SELECT DRIVE 
; MESSAGE BUFFER 



J WRITE SUB SYS HEM COMMAND. AND ACK 
(ADDRESS OF SELECT BLOCK DATA 

iSIZE OF DATA PACKET 



(WRITE COMMAND, AND ACK 
(ADDRESS OF WRITE BUFFER 

(SIZE OF BUFFER (EXTENT) 



(LARGEST TAPE RECORD IN BYTES 



BIO 



TSV7 - HARDWARE TESTS 1-8 
TEST 3: BASIC WRITE DATA 



MACRO M1U3 0l-^FEB-fl4 17|54 



SEQ 116 



1546 

1547 

154d 

1549 

1550 

1551 

1552 

1555 

1554 

1555 

1556 

1557 

1556 

1559 

1560 

1561 

1562 

1565 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1575 

1574 

1575 

1576 

1577 

1578 

1579 

1560 

1561 

1582 

1565 

1584 

1585 

1536 

1587 

1588 

1589 

1590 

1591 

1592 

1595 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 



0S2522 
052525 
052524 
032526 



052J50 
052532 



032554 
052556 
052540 
032542 



032544 
052577 
032664 
032742 
055C16 
055065 
055140 
035206 
035261 
055550 
055452 
055525 
055577 
033666 



055702 
055702 
033706 
033712 
035716 
055722 
055724 
035750 
035754 
055756 
053742 
035744 
055750 
033754 



010 

200 

000000 

000000 



OOCOOO 

000000 



100005 
100405 
102005 
177777 



127 
105 
127 
124 
122 
122 
124 
104 
124 
124 
105 
U4 

127 
10*? 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 

005021 
012711 

012702 

012762 



122 
M7 
122 
123 
145 
101 
125 
162 
123 
125 
126 
125 
122 
141 



111 
124 
Ul 
123 
167 
115 
123 
151 
125 
123 
103 
102 
111 
163 



T2SeS0t .BYTE 

T23BSlt .BYTE 

T23S2t .WORD 

T23S3} .WORD 

T23TMPt .WORD 
T25WRTI .WORD 

.EVEN 

I TAPE r10TI0^^ packet command value: 

T23W0: .WORD 100005 

T2SU0R: .WORD 100405 

T25C0N: .WORD 102005 

.WORD 177777 



10 
200 





iBSELO AREA 
iBSEl 1 AREA 
iSEL 2 AREA 
iDATA AREA 



(TEMPORARY REGISTER 
I RE TRY C0W1AN0 



iWRITE DATA (NEXT) 
tWRITE DATA RETRY 
(WRITE C0NTIN0U5 
I END OF DATA 



I • 

I LOCAL 
I - 



TfXT MESSAGES FOR TEST 



.ASCI2 
.ASCIZ 
.ASCI2 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



WRITE CoMMnund Not Acc«pt«<i' 

EOT Not Foond In 12000 4k Writ**. (Om Shorter TcH>«) 

WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

TSSR Not Correct Aft«r WRITE Co«wt«r%d R«j«ct' 

RttNind (POSITION) Commmnd Not Acc*ot*d' 

RAM Error, Correct D«t« P»tt«rn Not \n Uam' 

TSSR Init. t-'fttUd Aft«r WRITE CoMMmd' 

Driv* 7 S«l«ct Ftiiled To S«t "CFL" Ln TSSR' 

TSSR Not Correct APt«r WRITE DATA CotMRand. SWB B 

TSSR Not Correct After WRITE DATA Command. Ch^ck 

CVC Set. Didn''t Reset VCK In Meaesg* Buffer* 

TS8A Not Correct After WRITE DATA Comnend' 

WRITE SUBSYSTEM MEMORY Command Not Acc^oted (RAM Read) 

ASCIZ 'Gitalc Write' 



T25SSRt 

T25ETi 

T25E0Tt 

T23TMj 

T25RWN1 

T23fiNC: 

T23AM5: 

T230FLI 

T23W001 

T23W0C: 

T23VCKI 

T23eA: 

T23WSS( 

TST23I0J 

I • 

iROUTINE TO RESTORE COMMAND PACKET 
iWRITE SUBSYSTEM MEMORY COMMAND 



t Set' 

For Tape 



Offlme 



TO START-UP (DEFAULT) VALUES 



052360' 

100004 

032570' 

000012 
052402' 

000024 

000000 
000030 
177777 032402* 64tt 



T23REST: 




SAVREG 




MOV 


OT25PACKET,Rl 


MOV 


0100004. (Rl). 


MOV 


«T23DATA.(R1). 


CLH 


(Rl)» 


MOV 


•10. .(Rl)^ 


MOV 


•T25BFR.(R1)» 


CLR 


(RD* 


MOV 


*20. .(RD* 


CLR 


(Rl). 


MOV 


♦O.(Rl) 


MOV 


024.. R2 



iSAVE THE REGISTERS 

iSTART OF THE PACKET 

iWftXTE SUBSYSTEM MEM. WITH ACK 

lADDRESS OF CHARAISTICS DATA BLOCK 

lEXTENDEO ADDRESS 

iSIZE OF DATA BLOCK IN BYTES 

I ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 



MOV 



0177777, T23BFR(R2) 



I SELECT DRIVE ZERO 
iNUMBER OF LOCATIONS 
J ALL ONES TO M^SSAQE 



TO Bt CLEARED 
BUFFER 



CIO 



TSV7 - HARDWARE 


TESTS 1 
WRITE DA 


-e 


MACRO MU13 01 


-FEB -84 


I7i54 


TEST ?: BASIC 


TA 








1603 033762 


005742 






TST 


•(R2) 


1604 033764 


020227 


000000 




CHP 


R2.00 


1605 033770 


001371 






BNE 


641 


1606 033772 


000207 






RTS 


PC 


1607 












1608 












1609 033774 






T23RT2: 






1610 033- /4 








SAVREG 




1611 034000 


012701 


052470' 




MOV 


♦T23PK2,R1 


1612 034004 


012721 


100006 




MOV 


#100006. CRD* 


1613 034010 


012721 


032522' 




MOV 


#T23BF2,(R1)» 


1614 034014 


005021 






CLR 


(Rl)» 


1615 034016 


012721 


000006 




MOV 


^.»CR1)» 


1616 034022 


012701 


032522' 




MOV 


♦T23BF2,R1 


1617 034026 


005021 






CLR 


CRD* 


1616 034030 


005021 






CLR 


CRD* 


1619 034032 


005011 






CLR 


(Rl) 


1620 034034 


000207 






RTS 


PC 


1621 034036 






T23RT3J 






1622 034036 








SAVREG 




1623 034042 


012701 


032510' 




MOV 


#T25PK3.Rl 


1624 034046 


012721 


100005 




MOV 


♦ 100005. CRD* 


1625 034052 


005021 






CLR 


(Rl)» 


1626 034054 


005021 






CLR 


(Rl)* 


1627 034056 


005011 






CLR 


CRD 


1620 034060 


000207 






RTS 


PC 


1629 






{ * 






1630 












1651 






JrOUTINE to retry write DATA I 


1632 






|3, SUBTEST 2 C 


3 


1635 












1634 






[inputs 


* 
• 


Rl-TSSR 


1635 










SUBROUTINE SET 


1636 






1 . 






1657 












1636 054062 






T23CHKi 






1639 034062 








SAVREG 




1640 034066 


005037 


032530' 




CLR 


T25TMP 


1.641 034072 


032701 


100000 




BIT 


♦SC.Rl 


1642 054076 


001452 






6EQ 


FATAL 


1643 034100 


013702 


032412' 




MOV 


T23BFR»10,R2 


1644 034104 


032702 


000002 




BIT 


♦X1.UNC.R2 


1645 054110 


001401 






BEQ 


11 


1646 034112 


000405 






BH 


RETRY 


1647 034114 


052702 


020000 


1«: 


BIT 


♦Xl.C0R,R2 


1648 034120 


001002 






BNE 


RETRY 


1649 034122 


000440 






BR 


FATAL 


1650 034124 


000207 




EXIT- 


RTS 


PC 


1651 












1652 034126 






RETRY t 






1653 034126 


012703 


00O024 


2»: 


MOV 


♦20., R3 


1654 0;4132 


013737 


003114' 


032512' 


MOV 


FREE,T23WB 


1655 034140 


012737 


032552' 


052510' 


MOV 


♦T23WRT,T23PK3 


1656 054146 


012704 


032510' 




MOV 


♦T23PK3,R4 


1657 034152 


010300 






MOV 


R3,R0 


1658 034154 


004;'3 7 


01752A' 




JSR 


PC.FILLMEM 


1659 054160 


010337 


032516* 




MOV 


R3,T23SZ 



SEQ 119 



iBUMP DOWN TO NEXT LOCATION 

|R2 AT ZERO YET 

(KEEP GOING UNTIL DONE 

I RE TURN 



I SAVE THE REGISTERS 

I START OF THE PACKET 

(WRITE SUBSYSTEM MEM. WITH 

(ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

(POINT TO DATA SEL AREA 



(RETURN 

(SAVE THE REGISTERS 
(START OF THE PACKET 
(WRITE TAPE. WITH ACK 
(ADDRESS OF DATA BLOCK 
(EXTENDED ADDRESS 
(SIZE OF DATA BLOCK 
(RETURN 



ACK 



UP T23WRT FOR RETRY 



(SAVE THE REGISTERS 

(CLEAR LOCAL REGISTER 

(IS SC SET IN TSSR? 

(NO, YOU GOT PROBLEMS! 

(YES. GET XSTATl 

(IS UNC SET IN XSTATl? 

(NO. CHECK COR 

(YES, DO WRITE DATA RETRY 

lis COR SET IN XSTATl THEN? 

(YES SO RETRY 

(NO, YOU GOT PROBLEMS 

(RETURN 



(STARTING RECORD SIZE 

(STARTING WRITE BUFFER ADDRESS 

(WRITE DATA RETRY COMMAND SETUP BY SUBROUTINE 

(SET UP R4 WITH PACKET ADDRESS 

(SET PATTERN IN CORRECT REGISTER 

(FILL MEMORY WITH RECORD SIZE 

(SET UP RECORD SIZE IN PACKET 



TSV7 - HARDWARE TESTS 1-8 
TEST 3: BASXC WRITE DATA 



MACRO M1113 Ol-FEB-84 17:54 



DIO 



SEQ lao 



1660 054X64 


010465 


000000 


1661 054170 


004737 


016150' 


1662 054174 


016501 


000002 


1665 054200 


012702 


000200 


1664 054204 


020102 




1665 054206 


001746 




1666 054210 


005257 


032530' 


1667 034214 


022757 


000005 032530' 


1668 054222 


001541 




1669 0542P4 


005237 


002212' 


1673 054230 


013702 


052402' 


1674 054234 






054254 


104456 




034236 


000514 




034240 


005270' 




054242 


012010' 




1675 054244 


004737 


017104' 


1676 054250 






054250 






034250 


104401 




1677 






1678 






1679 






i6eo 






1681 






1662 






1683 






1684 






1685 






1686 






1687 






1686 






1689 






1690 






1691 






1692 






1693 






1694 






1695 






1696 






1697 






1698 054252 






034252 






1699 034252 


0?2737 


006166' 002170 


3 700 034260 


005057 


005124' 


1701 034264 


004737 


017176' 


1706 C54270 


012700 


046252' 


1707 054274 


004737 


016412' 


1708 054500 


004737 


021116' 


1709 034304 


012737 


000005 002206 


1710 






1711 






1712 






1713 






1714 






1715 






1716 







FATAL: 



MOV 


R4,TSDB(R5) 


JSR 


PCWAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


R1,R2 


BEQ 


EXIT 


INC 


T25TMP 


CMP 


05.T23TMP 


BI1E 


2» 


INC 


FATFLG 


MOV 


T23BFR.R2 


ERRHRD 


ERRNO,SCHERR»PKTMES 


JSR 


PC.CKOROP 


ENDTST 





I ISSUE COMMAND 

(WAIT FOR SSR TO SET 

I GET TSSR CONTENTS 

I SET UP EXPECTED 

I ARE THEY EQUAL 

tBR, IF OK 

I TRY FIVE TIMES THEN EXIT 

I DONE FIVE YET? 

I NO GO AGAIN 

iR'JMP COUNT 

I LOW ORDER MSGBUF 

(TSSR INCORRECT A'r TER WRIT^ DATA 

TRAP CIERHRO 
. WORD 352 
.WORD SCHERR 
.WORD PKTMES 

(DROP THE UNIT 



H0045; 



.SBTTL TEST 4j BASIC READ DATA (FORWARD AND REVERSE) 



TRAP 



C$ETST 



!♦ 



(THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 

I COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF 000 AND EVEN 

iDATA BUFFER BOUNDARIES. RECORD SIZES (UP TO 64K BYTES IF MEMORY 

(SPACE IS AVAILIABLE), AND BYTE -SWAP CONTROL ARE USED. THIS TEST 

tOF COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY 

iREAOING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER 

I TERMINATIONS ON EXCEPTIONAL OR £RROR CONDITIONS: RECORD LENGTH 

I LONG. RECORD LENGTH SHORT, READ REVERSE AT 30T , ILLEGAL DATA 

(BUFFER ADDRESSES. ILLEGAL COOES IN THE MODE FIELD OF THE BASIC 

iREAD COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY. THE TEST 

I 

ffHE TEST CONSISTS OF THE FOLLOWING 14 SUBTESTS 

I 

I 

t 



I - 



BGNTST 



MOV 


<>£PRT1,EPRTSW 


CLR 


K TENABLE 


JSR 


PC.KTOFF 


MOV 


*TST24I0,R0 


JSR 


PC.TSTSETUP 


JSR 


PC.MEMCK 


MOV 


*5,L00PCNT 



T4;: 
ERROR 



MESSAGE 



I SET UP PRIMARY 

I TURN OFF KTll 

I TURN KTll OFF 

(ASCII MESSAGE TO IDENTIFY 

iDO INITIAL TEST SETUP 

(CHECK FOR MEMORY 

(PERFORM 5 ITERATIONS 



TEST 



t ♦ 



(TEST 4. SUBTEST 1 



(VERIFIES THAT A READ DATA COMMAND WITH THE CLEAR 
(VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE 



ElO 



TSV7 - HARDWARE TESTS 1-8 MACRO M1113 gi-FEB-64 17:54 
TEST 4 J BASIC READ DATA (FORWARD AND REVERSE^ 



SEQ 121 



1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 

1726 034312 

1727 034312 
034312 
034312 104402 

1728 034314 004737 046320* 

1729 034320 004737 046454' 

1730 034324 004737 046412' 

1731 054330 012737 176750 044006' 
1732 

1733 
1734 
1735 
1736 
1737 
1738 

1739 034336 004737 015674' 

1740 034342 103426 

1741 034344 

034344 012727 000250 

034350 000000 

034352 013727 002116' 

034356 000000 

034360 005367 177772 

034364 001375 

034366 005367 177756 

034372 001367 

1742 034374 005337 044006' 
1.43 034400 001356 

1744 034402 005237 002212' 

1748 034406 010001 

1749 034410 
034410 104455 
034412 000621 
034414 003642' 
034416 011734' 

1750 034420 

1751 034420 012737 000007 043650 

1752 034426 012704 043630' 
1753 

1754 
1755 
1756 
1757 
1758 
1759 

1760 034432 004737 010562' 

1761 034436 103407 

1762 034440 005237 002212' 



iVOLUME CHECK (VCK) IS SET, ALL LEGAL 

i COMBINATIONS OF THE COMMAND MODE FIELD ARE TESTED 

iCi.E.. IT IS VERIFIED THAT THE COMMAND IS REJECTED 

tOUE TO VCK BEING SET RATHER THAN ERRONEOUS DECODING 

J OF THE MODE FIELD. 

t 

i 

i • 



T24L00P: 



BGNSUe 



JSR 
JSR 
JSR 
MOV 



PC.T24REST 
PC,T24RT3 
PC,T24RT2 
#65000., T240LY 



!>>>>>>>>>>>> BEGIN SC^TEST >>>>>>>>>>>> 

T4.1: '*" 

TRAP CJBSUB 
(SET COMflAND PACKET 
(SET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
I LOAD UP DELAY ROUTINE 



;«*«4i4i4*««4**«4i********«4>j»4«***4i4i**«4i*4*«4i* ************************ 

(ISSUE CONTROLLER "SOt'T" INITIALIZE - CARRY BIT CLEAR IF ERROR 
t 

5*: 



JSR 
BCS 
DELAY 



PC.SOFINIT 

20$ 

250 



(DO INITIALIZE ON CONTROLLER 
I BR IF INIT WAS OK 
(DELAY AWHILE 







MOV 


«250,(PC5* 






.WORD 









MOV 


L$DLY,(PCn 






.UORO 









DEC 


-6CPC) 






BNE 


.-4 






DEC 


-22CPC) 






BNE 


.-20 


DEC 


T24DLY 


(BUMP DELAY COUNTER 




BNE 


5$ 


|BR» IF MORE DELAY REQUIRED 




INC 


FATFLG 


(BUMP COIWT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


401 






.WORD 


SFIE.IR 






.WORD 


SFIMSG 


MOV 


#7.T24DSW 


(SET DRIVE NUMBER IN PACKET 




MOV 


*T24PACKET,R4 


(SUBROUTINE NEEDS PACKET ADDRESS 



20$: 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

t 

I ************************************************ ****************** 

(ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
(BUMP COUNT 



JSR 


PC. WRTCHR 


BCS 


24$ 


INC 


FATFLG 



FIO 



TSV7 - HARDWARE TESTS 1-8 MACRO K1115 01-FEB-e4 17i54 
TEST 4; BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 122 



1766 034444 


010001 




1767 034446 






034446 


104456 




034450 


000622 




034452 


005046' 




034454 


011754- 




1768 034456 


005737 


002216' 


1769 034462 


001044 




1770 






1771 034464 


112737 


000200 043771' 


1772 034472 


112737 


000010 043770' 


1773 034500 


012704 


043740' 


1774 034504 


010465 


000000 


1775 034510 


004737 


016236- 


1776 054514 


105407 




1777 034516 


010001 




1778 034520 


005237 


002212' 


1782 034524 






034524 


104456 




034526 


0OO623 




034530 


044527' 




034532 


011746' 




1783 034534 






034534 


104406 




1784 034536 


012737 


000007 043650' 


1785 034544 


01^704 


043650' 


1786 






1787 






1788 






1789 






1790 






1791 






1792 






1793 034550 


004737 


010562' 


1794 054554 


103407 




1795 034556 


005237 


002212' 


1799 034562 


010001 




1800 054564 






034564 


104456 




034566 


000624 




034570 


005046' 




034572 


011754- 




1801 034574 






034574 


104406 




1802 034576 


016501 


000002 


1803 034602 


052701 


000100 


1604 034606 


001006 




1805 034610 


005237 


002212' 


1809 034614 






054614 


104455 




054616 


000625 




054620 


045305' 




034622 


011734' 




1810 054624 






034624 


104406 




1811 034626 


012703 


045776' 


1812 







MOV RO.Rl 

ERRHRD ERRNO . WRTMSG . SF IMSG 



24$ 



TST 


EXTFEA 


BNE 


50$ 


MOVB 


#200,T24BS1 


MOVB 


*10,T243S0 


MOV 


tfT24PK2,P4 


MOV 


R4,TS0BCR5) 


JSR 


PC.CHKTSSR 


BCS 


30$ 


MOV 


RO.Rl 


INC 


FATFLG 



ERRHRD ERRNO, T24SSR,PKTSSR 



30$ I 



CKLOOP 

MOV 
MOV 



*7,T24DSW 
#T24PACKET,R4 



(SAVE CONTENTS OF TSSR 

I WRITE CHARACTERISTISC FAILED 

TRAP C$ERHRD 
. WORD 402 
.WORD WRTMSG 
.WORD SFIMSG 

■CHECK FOR EXTENDED FEATURES SW SWITCH 

jBR IF SWITCH IS ON 

I WRITE MISCELLANEOUS CONT/REAO STATUS 

(FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

I WRITE SUBSYS MEM PACKET 

(ISSUE COMMAND 

I WAIT FOR SSR 

;BR, IF NO ERROR 

(ERROR, SAVE TSSR 

(BUMP COUNT 

(TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP C$ERHRD 
.WORD 403 
.WORD T24SSR 
.WORD FKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 

(SET DRIVE NUMBER IN PACKET 

(SUBROUTINE NEEDS PACKET ADDRESS 



(WRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 
( 



50$ J 



JSR PC, WRTCHR 

BCS 50$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO, WRTMSG, SFIMSG 



CKLOOP 



C$ERHRD 
404 

WRTMSG 
SFIMSG 

C$CLP1 



MOV 


TSSRCR5),Rl 


BIT 


*0FL.R1 


BNE 


60$ 


INC 


FATFLG 


ERRDF 


ERRNO, T240FL, SFIMSG 



60$ 



CKLOOP 
MOV 



*T24RN,R3 



(ISS'JE WRITE CHARPCTERISTICS 

(BR, IF COMMAND ISSUED OK 

(BUMP COUNT 

(SAVE CONTENTS OF TSSR 

(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

(SCOPE LOOP 

TRAP 

(GET TSSR CONTENTS 

(CHECK FOR THE OFFLINE BIT SET 

(BR. IF OFFLINE (GOOD") 

(BUMP COUNT 

(OFF LINE SHOULD HAVE BEEN SET (BAD) 

TRAP C$EROF 
. WORD 405 
.WORD T240FL 
.WORD SFIMSG 

(LOOP IF SELECTED 

TRAP C$CLP1 

(POINTER FOR COMMANDS 



GIO 



TSV7 - HARDWARE TfSTS 1-8 
TEST 



_ _ MACRO M1113 ^ 
4i BASIC READ DATA (FORWARD AND REVERSE) 



Ol-FEB-84 17:54 



SEQ 123 



1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
182? 
1823 
1824 
1825 
1826 
1827 
1831 



1832 

1833 
1834 
1835 
1836 

1837 
1838 



1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 



1862 
1863 



034632 
034636 
034642 
034646 
034652 
034656 
034662 
034664 
034666 
034672 
034672 
034674 
034676 
034700 
034702 
034702 
034704 
034706 
034712 
034714 
034716 
034716 
034716 
034716 
034720 
034726 
034730 
034734 



034734 
034734 
034734 
034736 
034742 



011337 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000626 
045043 
011746' 

104406 
005723 
022713 
001401 
000746 



043760' 

043760' 

000000 

016150' 

000002 

100306 



002212' 



!tAPE READ COMMAND IN PLACE 
1 

65$: MOV (R3).T24PK3 i TAPE READ COMM(\ND IN PLACE 

tR4 - POINTER TO PACKET 
(ISSUE COMMAND 
jWAIT FOR SSR TO SET 
(GET TSSR CONTENTS 
?,R2 I SET UP EXPECTED 
(ARE THEY EQUAL 

(BR, IF OK ESP. FUNCTION REJECT 
(BUMP COUNT 
(TSSR INCORRECT AFTER TAPE MOTION CMO 



MOV 


(R3).T24PK3 


MOV 


*T24PK3,R4 


MOV 


R4,TSD8(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


aSSR!SC!OFL!BITl!B 


CMP 


R1.R2 


BEQ 


80$ 


INC 


FATFLG 


ERRHRO 


ERRN0,T24TM,PKTSSR 



60$ 



CKLOOP 



TRAP 


CIERHRD 


.WORD 


406 


.WORD 


T24TM 


.WORD 


PKTS5R 



TRAP 



C$CLP1 



177777 



TST 


(R3)* 


CMP 


*177777,CR3) 


BEQ 


90$ 


BR 


65$ 



90$ 



104403 

023727 002212' 000017 

103402 

004737 017104' 



999$: 



ENOSCe 



CMP 
BLO 
JSR 



FATFLG, *15. 

9991 

PC.CKOROP 



(LOOP IF SELECTED 

(BUMP TO NEXT COMMAND 
(END OF THE COMMANDS YET 
(BR. IF DONE 
(MORE COMMANOCS) TO GO 



I >>>>>)>>>%>> END SUBTEST >>>>>>>>>>>> 

L10O53: 

TRAP CtESUB 
;IS ERROR COUNT AT 25 
(BR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



TEST 4, JTEST 2 

VERIFIES THAT READ FORWARD COMMANDS WITH SWB-0 
OPERATES PROPERLY. TH(£ TAPE IS FIRST REWOUND AND THEN 
WRITTEN WITH A SERIES OF TEST RECORDS VARING IN 
LENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND 
AGAIN AND THE RECORD READ SEQUENTIALLY AND RESULTS 
(STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON 
EACH READ FORWARD COMMAND IS SET TO THE LENGTH OF THE 
EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 
OCCUR. 



104402 

004 737 046454' 

004737 046320' 



BGNSU8 



JSR 
JSR 



PC,T24RT3 
PC.T24REST 



J >v>i >v>ii v^i BEGIN SUBTEST •>> >^ >-> ■►^ n * •* ^ 

T4.2: 

TRAP CJBSUe 
(SET UP OTHER COMMAND PACKET 
tSET COMMAND PACKET 



TSV7 - HARDWARE TfcSTS 1-6 MACRO M1113 Ol-FEB-64 17:54 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



HIO 



SEQ 124 



1864 034746 004757 046412' 

1865 

1866 

1867 

1868 

1869 

1370 

1871 

1872 034752 004737 015674' 

1873 034756 103407 

1874 054760 005237 002212' 

1878 034764 010001 

1879 034766 
034766 104455 
034770 000627 
034772 003642' 
034774 011734' 

1880 034776 

1881 034776 013737 002172' 043650' 

1882 035004 012704 043630' 
1883 

1884 

1885 

1886 

1887 

1688 

1389 

1690 035010 004737 010562' 

1891 035014 103407 

1692 035016 005237 002212' 

1896 035022 010001 

1897 035024 
0350^4 104456 
035026 000630 
035030 005046' 
035032 011734' 

1898 035034 
035034 104406 

1899 
1900 
1901 
1902 
1903 
1904 
1905 

1906 035036 004737 010714' 

1907 035042 103407 

1908 035044 010001 

1909 035046 005237 002212' 

1913 035052 
035052 104456 
035054 000631 
035056 045116' 
035060 011746' 

1914 035062 
035062 104406 

1915 



JSR 



PC,T24RT2 



I SET UP OTHER COMMAND PACKET 



J ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
1 



20$: 



JSR 


PC.SOFINIT 


lOO INITIALIZE ON CONTROLLER 




BCS 


201 


iBR IF INIT WAS OK 




INC 


KATFLG 


(BUMP COUNT 




MOV 


R0»R1 


1 CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


C»ERDF 






.WORD 


407 






.WORD 


^FIERR 






.WORD 


SFIMSG 



MOV UNITN,T24DSW 
MOV *T24PACKET,R4 



I SET DRIVE NUMBER IN PACKET 

J SUBROUTINE NEEDS PACKET ADDRESS 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
J 



24$: 



JSR PC, WRTCHR 

BCS 241 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



J ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
(BUMP COUNT 

(SAVE CONTENTS OF TSSR 
I WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 

TRAP 



CiERHRD 
406 
WRTMSG 
SFIMSG 

C*CLP1 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
I 

JSR PC. REWIND 

BCS 301 

MOV RO.Rl 

INC FATFLG 

ERRHRD ERRNO , T24RWN , PK TSSR 



30$! 



CKLOOP 



(CALL TAPE REWIND COMMAND 




iBR. IF NO PROBLEM 




(SAVE TSSR 




(BUMP COUNT 




(REWIND NOT ACCEPTED 




TRAP 


CIERHRD 


.WORD 


409 


.WORD 


T24RWN 


.WORD 


PKTSSR 



(LOOP IF SELECTED 



TRAP 



C«CLP1 



110 



TSV7 - HARDWARE TESTS 1-8 MACRO M1113 Ol-FEB-84 17:54 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 125 



1916 
1917 
191d 
1919 
1920 
1921 

1922 055064 

1923 035070 

1924 055072 

1925 035076 

1926 035100 

1927 035102 

1931 035106 
055106 
035110 
035112 
035114 

1932 035116 
035116 

1933 035120 

1934 035124 
1955 

1936 
1937 
1938 
1939 
1940 
1941 

1942 035132 

1943 035140 

1944 035144 

1945 035144 

1946 035146 

1947 035152 

1948 03515^ 

1949 035162 

1950 035166 

1951 035172 

1952 035176 
*953 035200 
1954 035202 

1958 035206 
035206 
035210 
035212 
035214 

1959 035216 
035216 

1960 055220 

1961 035222 

1962 035226 
1965 055250 

035230 
1964 035232 
1965 
1966 
1967 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
000632 
044633 
015374 

104406 
012703 
013737 



012757 
012704 

010500 
004737 
010357 
010465 
OC4737 
016501 
012702 
020102 
001406 
005257 

104456 
000633 
005103' 
011746' 

104406 

005725 
022703 
001546 

104406 



045660' 
000002 

002212' 



000400 
003114' 



140005 
043760 



017324' 

043766' 

000000 

016150' 

000002 

000200 



002212 



000414 



043762 



043760 



iREAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



MOV 


T240FR*-6.R1 


(PICK UP xr>TO 




MOV 


R1,R2 


(SET UP EXPECTED 




BIS 


*BIT1,R2 


iSET BOT BIT IN EXPECTED 




CMP 


R1,R2 


(DOES EXP - REC'D 




BEQ 


401 


|BR. IF EQUAL (OK) 




INC 


FATFLG 


iBUMP COUNT 




ERRHRD 


ERRN0,T24B0T,EXPREC 


(TAPE NOT AT BOT AFTER REWIND 








TRAP 


CJERHRD 






.WORD 


410 






.WORD 


T24B0T 






.WORD 


EXPREC 


CKLOOP 




iLOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


♦256. ,R3 


(RECORD SIZE 




MOV 


FREE.T24RB 


J STARTING WRITE BUFFER ADDRESS 





40$ 



iWft:TE OATA.CVC-l.ACK COMMAND 
t 



65$ 



MOV 


#140005. T24PK5 


MOV 


#T24PK5,R4 


MOV 


R5.R0 


JSR 


PC.FILLMEM 


MOV 


R5.T24SZ 


MOV 


R4,TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR,R2 


CMP 


R1.R2 


BEQ 


75: 


INC 


FATFLG 


ERRHRD 


ERRNO.WRTERR.PKTSSR 



(WRITE DATA.CVC-l.ACK COMMAND 
(SET UP R4 WITH PACKET ADDRESS 

(SET PATTERN IN CORRECT REGISTER 

(FILL MEMORY WITH RECORD SIZE 

(SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY ECJUAL 

(BR, IF OK 

(BUMP COUNT 

(TSSR INCORRECT AFTER WRITE DATA 











TRAP 


C*ERHRD 










.WORD 


411 










.WORD 


WRTERR 










.WORD 


PKTSSR 


75«: 


CKLOOP 




(LOOP IF SELECTED 


TRAP 


C$CLP1 




TST 


(R5)* 


(BUMP RECORD SIZE 








CMP 


♦268. ,R3 


(END OF RECORD YET 








BNE 


65$ 


(BR. IF MORE RECORDS 


TO WRITE 




80«: 


CKLOOP 




(LOOP IF SELECTED 


TRAP 


C$CLP1 


120 1: 













{**«4>«*4i««4i4i4i4i*«4i«4i«4t*««e<»«****«**««4i4i4i*'*t*4>*«**«A«*4L«««|t««4k**«*«i4L*« 



Jio 
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1968 
1969 
1970 
1971 

1972 035232 

1973 035236 

1974 035242 

1975 035244 

1976 035246 

1980 035252 
035252 
035254 
035256 
035260 

1981 035262 
035262 

1982 
1983 
1984 
1985 
1986 
1987 
1988 

1989 035264 

1990 035270 

1991 035272 

1992 035276 

1993 035300 

1994 035302 

1998 035306 
035306 
035310 
035312 
055314 

1999 035316 
035316 

2000 035320 

2001 035324 
2002 

2003 
2004 
2005 
2006 
2007 
2008 
2001 035332 

2010 035340 

2011 035344 

2012 035350 

2013 035354 

2014 035360 

2015 035364 

2016 035370 

2017 035372 

2018 035374 
2022 035400 

035400 



004737 
004737 
103407 
010001 
005237 

104456 
000634 
045116' 

011746' 

104406 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
000635 
044633' 
015374' 

104406 
012703 
013737 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 



010714 
016236 



002212' 



043660' 
000002 

0022 li ' 



000400 
003114' 



140001 

043760' 

043766' 

000000 

016150' 

000002 

000200 



002212' 



043762 



043760' 



J ISSUE REWI^40 COMMAND TO SELECTED TAPE DRIVE 
t 

(CALL TAPE REWIND COMMAND 

I SEE HOW TSSR IS 

I BR. IF NO PROBLEM 

I SAVE TSSR 

(BUMP COUNT 

I REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


JSR 


PC.CHKTSSR 


BCS 


130$ 


MOV 


RO.Rl 


INC 


FATFLG 



ERRHRD ERRNO . T24RWN , Pl< T SSR 



1301 t CKLOOP 



I LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



i 



TRAP 



iREAD MESSAGE BUFFER EXTENDED STAT'JS REGISTER ZERO CXSTO) 
i 

(PICK UP XSTO 
(SET UP EXPECTED 
(SET BOT BIT IN EXPECTED 
(DOES EXP - REC'D 
iBR. IF EQUAL (OK) 
(BUMP COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
140Ji CKLOOP (LOOP IF SELECTED 

TRAP 
: RECORD SIZE 
(STARTING READ BUFFER ADDRESS 



MOV 


T24BFR»6,R1 


MOV 


R1,R2 


BIS 


♦6IT1.R2 


CMP 


R1,R2 


BEQ 


140$ 


INC 


FATFLG 



ERRHRD ERRNO » T24R0T , EXPREC 



CKLOOP 

MOV 
MOV 



«256. .R3 
FREE.T24RB 



SEQ 126 



CIERHRD 
412 
T24RWN 
PKTSSR 

CJCLPl 



C»ERHRD 
413 
T24B0T 
EXPREC 

C*CLP1 



(READ DATA.CVC-l.ACK COMMAND 
( 

(READ DATA.CVC-l.ACK COMMAND 
1651 t MOV #T24PK3,R4 (SET UP R4 WITH PACKET ADDRESS 

(SET UP RECORD SIZE IN PACKET 
(ISSUE COMMAND 
(WAIT FOR SSR TO SET 
(GET TSSR CONTENTS 
(SET UP EXPECTED 
(ARE THEY EQUAL 
(BR, IF OK 
(BUMP COUNT 
(TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 



MOV 


*140001,T24PK3 


MOV 


#T24PK3,R4 


MOV 


R3.T24SZ 


MCV 


R4.TS0BCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEU 


1701 


INC 


FATFLG 



ERRHRO ERRNO. RDERR. PKTSSR 



KIO 
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SEQ 127 



035402 


000636 




035404 


005176' 




035A06 


011746' 




2023 035410 






035410 


104406 




2024 035412 


013702 


005114' 


2025 035416 


010304 




2026 035420 


162704 


000400 


2027 035424 


060204 




2028 035426 


021403 




2029 035430 


001410 




2030 035432 


011401 




2031 035434 


010302 




2032 035436 


005237 


002212' 


2036 035442 






035442 


104456 




035444 


000637 




035446 


044700' 




035450 


015374' 




,?037 C 354 52 






035452 


104406 




2038 0354t>4 


005724 




2039 035456 


160204 




2040 035460 


020403 




2041 035462 


001360 




2042 035464 


005723 




2043 035466 


022705 


000412 


2044 035472 


001322 




2045 035474 






055474 


104406 




2046 035476 






035476 






035476 


104403 




2047 035500 


023727 


002212' 000017 


2046 035506 


105402 




2049 035510 


004737 


017104' 


2050 035514 






2051 






2052 






2055 






2054 






2055 






2056 






2057 






2058 






2059 






2060 






2061 






2062 






2065 






2064 035514 






035514 






035514 


104402 




2065 035516 


004757 


046454' 


2066 055522 


004757 


046520' 


2067 035526 


004 737 


046412' 


2068 







170$! CKLOOP 



173$ I 



180$: CKLOOP 



190$: 



999$: 



1 ♦ 



ENDSUB 



CMP 
BLO 
JSR 



iLOOP IK SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



414 

RDERR 

PKTSSR 



C*CLP1 



MOV 


FREE,R2 


MOV 


R3,R4 


SUB 


*256..R4 


ADD 


R2.R4 


CMP 


(R4).R3 


6EQ 


180$ 


MOV 


(R4),R1 


MOV 


R3,R2 


INC 


FATFLG 


ERRHRD 


ERRN0.T24DTA 



.EXPREC 



I GET BUFFER ADDRESS 

I CURRENT RECORD SIZE 

; FIRST LOCATION IN BUFFER 

iGET LOCATION IN BUFFER (ADDRESS) 

(CHECK DATA READ (R3-DATA ALSO) 

I BR. IF ALL IS WELL 

iRECO DATA 

(EXPECTED DATA 

I BUMP COUNT 

(DATA READ NOT - WRITTEN 

TRAP 



(LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



C*ERHRD 
415 
T24DTA 
EXPREC 

C$CLP1 



TST 


(R4)f 


SUB 


R2.R4 


CMP 


R4.R5 


6NE 


173$ 


TST 


(R3)» 


CMP 


*266. ,R3 


8NE 


165$ 


CKLOOP 





(BUMP TO h4EXT LOCATION 
(GET BACK TO CORRECT SIZE 

jF.NO OF RECORD YET 

(BR. IF NOT AT END OF RECORD 

iBLtlP RECORD SIZE 

(END OF RECORD YET 

(BR. IF MORE RECORDS TO WRITE 

(LOOP IF SELECTED 

TRAP 



C$CLPt 



J >i>> >>> v>>>> 



FATFLG. ;i5. 

999$ 

PC.CKDROP 



END SUBTEST 
L10054: 

TRA"^ 
:IS ERROR COUNT AT 25 
(BR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



>>>>>>S>>>>i 



C$ESU6 



(TEST 4, SUBTEST 3 

(VERIFIES THAT READ DATA COMMANDS WITH CVC-1 
(SWAP BYTES (SW8) BIl SET OPERATES PROPERLY. 



AND 

THE 



(SEQUENCE IS IDENTICAL TO THAT USED IN 

(THE RESULTS. EXCEPT FOR RAM CONTENTS. 

t 

1 

( 

BGNSU3 



S^«TEST 2 
SHOULD BE 



THE 
TEST 

THE SAME. 



JSR 


PC. 


,T24RT5 


JSP 


PC. 


,T24REST 


JSR 


PC. 


,T24RT2 



|->>>>>>>>>>>i BEGIN SiJBTEST ^ ■.>-.■.>■.>>•»> > 

T4.3: 

TRAP CSBSUB 
(SET UP OTHER COMMAND PACKET 
(SET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 



LIO 
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SEC) 128 



2069 
2070 
2071 
2072 
;^073 
2074 

2075 035532 004 737 015674' 

2076 035536 103407 

2077 035540 005237 002212' 

2081 035544 010001 

2082 035546 
035546 104455 
035550 000640 
035552 003642' 
035554 011734' 

2083 035556 

2084 035556 013737 002172' 043650' 

2085 035564 012704 043630' 
2086 

2087 
2088 
2089 
2090 
2091 
2092 
2095 035570 004737 010562' 

2094 035574 103407 

2095 035576 005237 002212' 

2099 035602 010001 

2100 035604 
0^5604 104456 
035606 000641 
035610 005046' 
035612 011734' 

2101 035614 
035614 104406 

2102 
2103 
2104 
2105 
2106 
2107 
2108 

2109 035616 004737 010714' 

2110 035622 103407 

2111 035624 010001 

2112 035626 005237 002212' 

2116 035632 
035632 104456 
035634 000642 
035636 045116' 
035640 011746' 

2117 035642 
035642 104406 

2118 
2119 

2120 



; 

t ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



20$ 



J$R 


PC.SOFINIT 


1 00 INITIALIZE ON CONTROLLER 




Bc: 


20$ 


I BR IF INIT WAS OK 




INC 


FATFLG 


iBUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


1 FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


416 






. WORD 


SFIERR 






.WORD 


SFIHSG 



MOV UNITN.T24DSW 
MOV #T24PACKET,n4 



I SET DRIVE NUMBER IN PACKET 

t SUBROUTINE NEEDS PACKET ADDRESS 



iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
i 



24$ J 



JSR PC. WRTCHR 

BCS 24$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG . SFIMSG 



CKLOOP 



(ISSUE WRITE CHARACTERISTICS 
iBR, IF COMMAND ISSUED OK 
(BUMP COUNT 

;SAVE CONTENTS OF TSSR 
I WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
I LOOP IF SELECTED 

TRAP 



t ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
t 

JSR PC. REWIND 

BCS 30$ 

MOV RO.Rl 

INC FATFLG 

ERRHRD ERRNO . T24RWN . PKTSSR 



30$: 



CKLOOP 



(LOOP IF SELECTED 



TRAP 



C$ERHRD 
417 

WRTMSG 
SFIMI3G 

C$CLP1 



J CALL TAPE REWIND COMMANU 




iBR, IF NO PROBLEM 




iSAVE TSSR 




(BUMP COUNT 




(REWIND NOT ACCEPTED 




TRAP 


C$ERHRO 


.WORD 


418 


.WORD 


T24RWN 


.WORD 


PKTSSR 



CSCLPl 



( 



MIO 
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TEST 4; BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 129 



045660' 
000002 

002212' 



000400 
003114' 



2\2X 
2122 
2123 
2124 

2125 035644 015701 

2126 035650 010102 

2127 035652 052702 

2128 035656 020102 

2129 035660 001406 

2130 035662 005237 

2134 035666 
035666 104456 
035670 000643 
035672 044633' 
035674 015374- 

2135 035676 
035676 104406 

2136 035700 012703 

2137 035704 013737 
2138 
2139 
2140 
2141 
214? 
2143 
2144 

2145 035712 012737 

2146 035720 012704 

2147 035724 

2148 035724 

2149 035726 

2150 035732 

2151 035736 

2152 035742 

2153 035746 

2154 035752 

2155 035756 

2156 035760 

2157 035762 

2161 035766 
035766 
035770 
035772 
035774 

2162 0357 76 
035776 

2163 036000 

2164 056002 022703 000414 

2165 0360O6 
21S6 036010 

036010 
2167 036012 
2168 
2169 
2170 
2171 
2172 



010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005257 

104456 
000644 
005103' 
011746' 

104406 
005723 
022703 

001346 

104406 



150005 
043760' 



017324 
043766 
000000 
016150 
000002 
000200 



0022ia' 



043762 



043760' 



jREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 
t 

(PICK UP XSTO 

(SET UP EXPECTED 
I SET BOT BIT IN EXPECTED 
iOOES EXP " REC'D 
»BR. IF EQUAL (OK) 
I BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40$: CKLOOP [LOOP IF SELECTED 

TRAP 
i RECORD SIZE 
(STARTING WRITE BUFFER ADDRESS 



MOV 


T24BFRf6.Rl 


MOV 


R1.R2 


BIS 


*eiTl,R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO , T24B0T , EXPREC 



CKLOOP 

MOV 
MOV 



#256.. R3 
FREE,T24RB 



CIERHRD 
419 
T24B0T 
EXPREC 

CJCLPl 



IwRITE DATA,ACK.SWB,CVC-1 COMMAND 
t 



65$ 



MCV 


«-150005.T24PK5 


jWRITE OATA,ACK.SWB,CVC 


-1 COMMAND 


MOV 


*T24PK3.R4 


(SET UP R4 WITH PACKET 


ftDDRESS 




MOV 


R3,R0 


iSET PATTERN IN CORRECT 


REGISTER 


JSR 


PC.FILLMEM 


(FILL MEMORY WITH RECORD SIZE 




MOV 


R3,T24SZ 


(SET UP RECORD SIZE IN 


PACKET 




MOV 


R4.TSDB(R5) 


(ISSUE COMMAND 






JSR 


PC.WAITF 


(WAIT FOR SSR TO SET 






MOV 


TSSR(R5)»R1 


(GET TSSR CONTENTS 






MOV 


<>SSR.R2 


(SET UP EXPECTED 






CMP 


R1,R2 


(ARE THEY EQUAL 






BEQ 


75$ 


(BR. IF OK 






INC 


FATFLG 


iBUMP COUNT 






ERRHRD 


ERRNO . WRTERR , PKTSSR 


(TSSR INCORRECT AFTER WRITE DATA 








TRAP 


CIERHRD 








.WORD 


420 








.WORD 


WRTERR 








.WORD 


PKTSSR 


CKLOOP 




(LOOP IF SELECTED 


TRAP 


C$CLP1 


TST 


(R3)» iBUMP 


RECORD SIZE 






CMP 


#268. ,R3 


(END OF RECORD YET 






BNE 


65$ 


[BW. IF MORE RECORDS. TO 


WRITE 




CKLOOP 




(LOOP IF SELECTED 


TRAP 


C$CLP1 



75$ 



80$: 
120$: 



(ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



NIO 



TSV7 - HARDWARE 


TESTS 1 


-8 MACRO M 


TEST 4 : 


BASIC 


READ DATA (FORWARD AND R 


2173 








2174 








2175 


036012 


004737 


010714' 


2176 


036016 


103407 




2177 


036020 


010001 




2178 


056022 


005237 


002212' 


2182 


036026 








036026 


104456 






036030 


000645 






036032 


045116' 






036034 


015374' 




2183 


036036 








03603t 


104406 




2184 








2185 








2186 








2187 








2188 








2189 








2190 








2191 


036040 


0137')1 


043660' 


2192 


036044 


0101C2 




2193 


036046 


05270? 


000002 


2194 


036052 


020102 




2195 


036054 


00140t. 




2196 


036056 


005237 


002212' 


2200 


036062 








036062 


104456 






036064 


0006/,6 






036066 


044653' 






036070 


015'i74' 




2201 


0360?;^ 








036072 


104406 




2202 


036074 


012703 


000400 


2203 


036100 


013737 


003114' 043762' 


2204 








2205 








2206 








2207 








2208 








2u'09 








2210 








2211 


036106 


012737 


110001 043760' 


2212 


036114 


012704 


043760' 


2213 


036120 


010337 


043766' 


2214 


036124 


010465 


000000 


2215 


036130 


004737 


016150' 


2216 


036134 


016501 


000002 


2217 


036140 


012702 


000200 


2218 


036144 


020102 




2219 


036146 


001406 




2220 


036150 


005237 


002212' 


2224 


036154 








036154 


104456 






036156 


000647 






036160 


005176' 






036162 


011746' 





EVERSE) 



Ol-FEB-84 17;54 



JSR PC. REWIND 

BCS 130* 

MOV RO.Rl 

(MC FATFLG 

EKi^HRO ERRNO , T24RWN . EXPREC 



130$ 



CKLOOP 



(LOOP IF SELECTED 



TRAP 

IrEAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 
* 

;PiLK UP XSTO 
J SET UP EXPECTED 
;SET SOT BIT IN EXPECTED 
:DOES EXP - REC'O 
;BR. IF EQUAL COK) 
I BUMP COUNT 

J TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
140$: CKLOOP iLOOP IF SFLFCTEO 

TRAP 
J RECORD SIZE 
i STARTING READ BUFFER ADDRESS 



MOV 


T24BFR*0.R1 


MOV 


R1.R2 


BI3 


<^BIT1.R2 


CMP 


R1.R2 


BEQ 


140i 


INC 


FATFLG 



ERRHRD ERRNO , T24B0T , EXPREC 



CKLOOP 

MOV 

MOV 



«256. .R3 
FREE.T24RB 



I READ DATA, IE. ACK, SUB COMMAND 

* 



SEQ 130 



I CALL TAPE REWIND COMMAND 




I BR. IF NO PROBLEM 




(SAVE TSSR 




;BUMP COUNT 




; REWIND NOT ACCEPTED 




TRAP 


C*ERHRO 


.WORD 


421 


.WORD 


T24RWN 


.WORD 


EXPREC 



CSCLPl 



CJERHRD 
422 
T24B0T 
EXPREC 

C$CLP1 



16b$: 



MOV 


«110001.T24PK3 


MOV 


*T24PK3,R4 


MOV 


fl3.T24SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


#SSR,R2 


CMP 


R1.R2 


BEQ 


i;o$ 


INC 


FATFLG 



ERRHRD ERRNO . RDERR . PKTSSR 



I READ DATA, IE, ACK. SW8 COMMAND 

J SET UP fl4 WITH PACKET ADDRESS 

tSET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

;WAIT FOR SSR TO SET 

I GET TSSR CONTENTS 

J SET UP EXPECTED 

:ARE THEr EQUAL 

(BR. IF OK 

(BUMP COUNT 

J TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 

423 

RDERR 

PKTSSR 



Bll 
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2225 

2226 
2227 
2228 

2250 
2231 
2252 
2255 
2254 
2238 



2259 

2240 
2241 
2242 
2245 
2244 
2245 
2246 
2247 

2240 



2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
22f9 
2260 
2261 
2262 
2265 
2264 
2265 
2266 



2267 
2268 
2269 

2270 
2271 
2272 
2273 



036164 
056164 
056166 
056172 
036174 
036200 
036202 
0562O4 
056206 
056210 
056212 
056216 
056216 
036220 
056222 
056224 
056226 
056226 
056230 
036232 
0362 3i 
056236 
05624C 
056242 
056246 
056250 
036250 
036252 
036252 
056252 
036254 
056262 
036264 
036270 



036270 
056270 
056270 
036272 
056276 
056302 



104406 
013702 
010504 
162704 
060204 
021405 
001410 
011401 
010502 
005257 

104 456 
000650 
044700' 
015^74' 

104406 
005724 
160204 
020405 
001560 
005723 
022703 
001322 

104406 



104403 
023727 
103402 
004737 



003114' 
000400 



002212' 



000412 



002212' 000017 
017104' 



M1115 01 


-FeB-84 


17i54 






REVERSE) 










1701: 


CKLOor* 




iLOOP IF SELECTED 

TRAP 


CICLPl 




MOV 


FREE.R2 


iGET BUFFER ADDRESS 






MOV 


R5.R4 


iCURRENT RECORD SIZE 






SUB 


♦256., M 


(FIRST LOCATION IN BUFFER 




173«: 


ADO 


R2,R4 


iGET LOCATION IN BUFFER (ADDRESS) 




CMP 


(R4),R5 


iCHECK DATA READ (R3-0ATA ALSO) 






BEQ 


1801 


iBR. IF ALL IS WELL 






MOV 


(R4),R1 


iRECO DATA 






MOV 


R5,R2 


lEXPECTEO DATA 






INC 


FATFLG 


iBUMP COUNT 






ERRHRD 


ERRN0,r24DTA,EXPREC 


iDATA READ NOT • WRITTEN 

TRAP 
.WORD 
.WORD 
.WORD 


CIERHRO 
424 

T24DTA 
EXPREC 


180$: 


CKLOOP 




iLOOP IF SELECTED 

TRAP 


C«CLP1 




TST 


(R4)» 


iBUMP TO NEXT LOCATION 






SIJB 


R2,R4 


(SET SIZE TO CORRECT VALUE 






CMP 


R4,R5 


lENO OF RECORD YET 






6t€ 


173$ 


jBR. IF >>*0T AT END OF RECORD 






TST 


(R5)* 


(BUMP RECORD SIZE 






CMP 


♦266., R3 


lENO OF RECORD tET 






BNE 


1651 


iBR. IF MORE RECORDS TO WRITE 




1901: 


CKLOOP 




iLOOP IF SELECTED 

TRAP 


CICLPl 




EN05UB 




1 >>>>>>>>>>>> END SUBTFST >>>>>>>>>»>> 








L 10055 5 










TRAP 


CJEsue 


f 


CMP 


FATFLG, 015. 


lis ERROR COUNT AT 25 






BLO 


9991 


iBR. IF LESS THAN 25 






JSR 


PC.CKOROP 


I TRY TO DROP THE UNIT 





SEQ 131 



104402 

004757 046454' 

004757 046520' 

004737 046A12' 



4. SUBTEST 4 



9991: 

I • 
iTEST 

(VERIFIES THAT A READ F0(<WAR0 COMMAND READING A RECORD 

(LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 

(STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 

i(RLL) BIT SET. 

I 

) 

I - 



BCiNSUB 



JSR 
JSR 
JSR 



PC.T24RT5 

PC,T24REST 

PC.T24RT2 



!>>>>>>.>>>>> BEGIN SUBTEST »»»'»^>>»>>»> 

T4.4: 

TRAP CJBSUe 
(SET UP OTHER COMMAND PACKET 
(SET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 



I ISSUE CONTROLLER "SOFT'* INITIALIZE * CARRt BIT CLEAR IF ERROR 



]m 



Cll 



T^ -.Tm^s 


Hm%i 


ft^F0Ru■ARG'^sB8 mkh^v 


L-FEB-84 


17:54 




2274 






1 








2275 
2276 
2277 036306 






) *«*4^«*«*4*^*4««**««*A«**«4i4>4t4i4i4i4i*«*«*4t* ********************* ****.« 




0O4757 


015674' 




JSR 


PC.SOKINXT iDO INITIALIZE ON CONTROLLER 




2278 036312 


103407 






8CS 


201 iBR IF INIT WAS OK 




2279 036314 


005237 


002212' 




INC 


FATFLG iBUMP COUNT 




2283 036320 


010001 






hOV 


RO.Rl iCONTENTS OF TSSR REGISTER 




2284 036322 








ERRDF 


ERRNO.SFIERR.SFIMSG i FATAL ERROR TSSR WAS NOT OK 




036322 


104455 








TRAP 


CJERDF 


036324 


0O0651 








.WORD 


425 


036326 


003642* 








.WORD 


SFIERR 


036330 


011734' 








.WORD 


SFIMSG 


2285 036332 






20$: 








2286 036332 


013737 


002172' 


043650* 


MOV 


L'NITN.T24DSW iSET DRIVE NUMBER IN PACKET 




2287 036340 

2^88 

2289 


012704 


043630' 




MOV 


#T24PACKET,R4 i SUBROUTINE NEEDS PACKET ADDRESS 






|***4i4>««*****A«**4t***«4>****4i**«4i4>**4t««**««***4.**«4t4i««4>4>4t4>4i^*4>4>«4i4i4i« 




2290 






1 








2291 






(WRITE 


CHARACTERISTICS COMMAND (C.^LL TO WflTCHR) 




2292 






t 








2293 






)4i4k«*4>< 


^4t«****4i4 






2294 














2295 036344 


0O4757 


010562' 




JSR 


PCWRTCHfl iISSUT: WRITE CHARACTERISTICS 




2296 036350 


103407 






BCS 


24$ ,BR. IF COMMAND ISSUED OK 




2297 036352 


005257 


002212' 




INC 


FATFLG iBUMP COUNT 




2501 036356 


010001 






MOV 


RO.Rl iSAVE CONTENTS OF TSSR 




2502 036360 








ERRHRD 


ERRNO.WRTMSG.SFIMSG iWRITE CHARACTERISTISC FAILED 




056360 


104456 








TRAP 


C$ERHflD 


056362 


000652 








.WORD 


426 


036364 


005046' 








.WORD 


WRTMSG 


036366 


011754' 








.WORD 


SFIMSG 


2303 056370 






241: 


CKLOOP 


iLOOP IF SELECTED 




036370 


104406 








TRAP 


C$CLPl 


2504 














2305 






)«*«******4i«**«***«**«*«**««*«*****«*****4>4>***4>*0«*«*A**4i*«***4i**«* 




2506 






1 








2507 






1 ISSUE 


REWIND COMMAND TO SELECTED TAPE DRIVE 




2508 






1 








2309 






1 •*««*• 








2510 














2511 056572 


004757 


010714' 




JSR 


PC, REWIND (CALL TAPE REWIND COMMAND 




2312 036376 


103407 






BCS 


30$ iBR. IF NO PROdLEM 




2313 036400 


OlOOOl 






MOV 


RO.Rl (SAVE TSSR 




2314 056402 


005257 


002212' 




INC 


FATFLG iBUMP COUNT 




2516 036406 








ERRHRD 


ERRN0,T24RWN.PKTSSR jREWlNO NOT ACCEPTED 




036406 


104456 








TRAP 


CIERHRD 


036410 


0O0653 








.WORD 


427 


056412 


045U6' 








.WORD 


T24RWN 


036414 


011746' 








.WORD 


PKTSSR 


2319 056416 






301: 


CKlOOP 


jLOOP IF SELECTED 




036416 


104406 








TRAP 


C»CLP1 


2520 
2521 






■ A A A A A J 








2522 






1 ^ ^ W 9 W ' 

1 








2525 






jRFAD 1 


MESSAGE 1 


3UFFER EXTENDED STATUS REGISTER ZERO (XS'O') 




2524 






1 








2325 






|^««4%f 4i44i<K4i«44^f«if4i^««fA^«%f'(%4'4i4i4k^t44'«4^«^f«*4^4ttff4i44>#«^t«4i%4^^1t4i«4^ + 





SEQ 132 



^I^t ■4^^'^e8SrRlS§^6AlA«(FORWARGWB^^^^SE9^-^^^-«^ '"■'' 



Dll 



SEQ 133 



2$2b 

2327 036420 
2526 056424 
2329 036426 
2530 036452 

2331 056454 

2332 0364 56 

2356 056442 
036442 
056444 
036446 
036450 

2357 056452 
036452 

2358 036454 
2339 036460 
2340 

2341 

2342 

2345 

2544 

2345 

2346 

2347 036466 

2346 036474 

2349 036500 

2350 036500 

2351 036504 

2352 036510 
2355 036514 

2354 036520 

2355 036524 

2356 036526 

2357 036530 

2361 036534 
036554 
036556 
036540 
036542 

2362 036544 
036544 

2363 036546 
2364 

2365 
2566 
2567 
2368 
2369 
2370 
2371 036546 

2572 036552 

2573 036554 
2374 056556 
2378 036562 

036562 
036564 
036566 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
000654 
044633 

015374 

104406 
012705 
013757 



012737 
012704 

010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000655 
005103 
011746 

104406 



004757 
105407 
010001 
005237 

104456 
000656 
045116 



043660' 
000002 

002212' 



001000 
003114 



140005 
043760' 

043766' 

000000 

016150' 

000002 

000200 



002212 



010714' 
002212' 



043762 



043760 



MG*. 


'•-'^*errt*ft.Rl 


iPICK *JP XSTO 




MOV 


Rl.K^ 


iSET UP EXPECTED 




BIS 


#eiTl,R2 


(SET BOT BIT IN EXPECTED 




CMP 


R1.R2 


(DOES EXP - REC'D 




BEQ 


401 


iBR. IF EQUAL (OK) 




INC 


FATFLG 


iBUMP COWT 




ERRHRD 


ERRN0,T24B0T,EXPREC 


(TAPE NOT AT BOT AFTER SEUINO 








TRAP 


CIERHRO 






.WORD 


428 






.WORD 


T2480T 






.WORD 


EXPREC 


CKLOOP 




iLOOP IF SELECTED 








TRAP 


CJCLPl 


MOV 


0512., R3 


(RECORD SIZE 




MOV 


FREe.T24HB 


(STARTING WRITE BUFFER ADDRESS 





40$ 



(WRITE 0ATA,ACK.CVC-1 COMMAND 
( 



65$ 



MOV 


0140005. T24PK3 


MOV 


*T24PK3.R4 


MOV 


R3,T24SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.UAITF 


MOV 


TSSRCR5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


751 


INC 


FATFLG 


ERRHRD 


EHRNO.WRTERR.PKTSSR 



75»i 
120$ 



CKLOOP 



(WRliC 0ATA.ACK,CVC-1 COMMAND 
(SET UP R4 WITH PACKET ADDRESS 

(SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR, IF OK 

(BUMP COUNT 

(TSSR INCORRECT AFTER WRITE DATA 

TRAP 
.WORD 
.WORD 
.WORD 



(LOOP IF S(r.LECTEO 



TRAP 



C$ERHRD 
429 
WRTEWR 
PKTSSR 

C$CLP1 



(ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
t 



JSR 


PC, REWIND 


(CALL TAPE REWIND COMMAND 




BCS 


1301 


iBR, IF NO PROBLEM 




MOV 


RO.Rl 


(SAVE TSSR 




iNr 


FATFLG 


(BUMP COUNT 




ERRHRD 


ERRN0,T24RWN, PKTSSR 


(REWIND NOT ACCEPTED 








TRAP 


C$ERHRD 






.WORD 


450 






.WORD 


T^4RWN 



Ell 



TSV7 - HARDWARE TESTS 1-8 MACRO MUIS Ol-FEB-84 17J54 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



056570 011746' 
2379 036572 

036572 104406 
2380 
2381 
2382 
2383 
2384 
2385 
2386 

2387 036574 013701 043660' 

2388 036600 010102 

2389 036602 052702 000002 

2390 036606 020102 

2391 036610 001406 

2392 036612 005237 002212' 

2396 036616 
036616 104456 
036620 000657 
036622 044633' 
036624 015374' 

2397 036626 
036626 104406 

2398 036630 012703 000400 

2399 036634 013737 003114' 043762' 
2400 

2401 
2402 
2403 
2404 
2405 
2406 

2407 036642 012737 140001 043760' 

2408 036650 012704 043760' 

2409 036654 010337 043766' 

2410 036660 010465 000000 

2411 056664 0O4737 016150' 

2412 036670 016501 000002 

2413 036674 012702 100204 

2414 036700 020102 

2415 036702 001406 

24' . 036704 005237 002212' 
^20 036710 

056710 104456 

036712 000660 

036714 046164' 

056716 011746' 
2421 036720 

036720 104406 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 036722 013701 043660' 



130*1 CKLOOP 



(LOOP If SELECTED 







SEQ 134 


.WORD 


PKTSSR 




TRAP 


CJCLPl 





(READ MESSAGE BUFFER EXTENDED STATUS i^IEGISTER ZERO CXSTO) 
( 

(***************«************************* **«4i****A*4*ikA4iA4iOi4, A***** 

iPICK UP XSTO 

I SET UP EXPECTED 
(SET BOT BIT IN EXPECTED 
I DOES EXP ■ REC'D 
I BR, IF EQUAL. COK) 
I BUMP COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 

TRAP 
I RECORD SIZE 
I STARTING READ BUFFER ADDRESS 



MOV 


T24BFR*6,R1 


MOV 


R1.R2 


BIS 


*6IT1.R2 


CMP 


R1.R2 


BEQ 


140> 


INC 


FATFLG 



ERRHRO ERRNO . T24B0T , EXPREC 



140$; CKLOOP 

MOV 
MOV 



#256., R3 
FREE,T24RB 



CIF-RHRD 
431 
T24B0T 
EXPREC 

C$CLP1 



I****************************************************************** 

IrEAO DATA,ACK,CVC-1 COMMAND 
t 

I ************************************************************* 4i**** 

I READ DATA,ACK,CVC-1 COMMAND 
165$: MOV #T24PK3.R4 iSET OP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

iBR. IF OK 

(BUMP COUNT 

(TSSR INCCRRECT AFTER READ DATA 

TRAP C$ERHRO 
.WC-RD 452 
.WORD T24TRL 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP CJCLPl 



MOV 


*140001,T24PK5 


MOV 


#T24PK3.R4 


MOV 


R3,T24SZ 


MOV 


W4,TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


CSSR!SC!BIT2.R2 


CMP 


R1,R2 


BEQ 


170$ 


INC 


FATFLG 



ERRHRD ERRNO, T24TRL, PKTSSR 



170$: CKLOOP 



|*****************4i«*«4,**«««*4,**4i**«4***«*«**A************4i«*A*4t4L** 

(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
( 

(**4jti***************«**************4,*****«****>4.«^*«*#*4,«***4i44i4i*4i4,4i 

MOV T24BFR»6.R1 (GET MESSAGE BUFFER 



Fll 



TSV7 - HARDWARE TESTS 1-6 MACRO Mlll^ Ol-FEB-84 17:54 
TEST 4> BASIC READ DATA (FORWARD AND REVE^^SE) 



SEQ 135 



2430 
2431 
2431' 
2435 
2434 
2438 



2439 
2440 



2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 



2464 
2465 
2466 
2467 
2466 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2480 
2481 



036726 
036730 
036754 
036736 
036740 
036744 
036744 
036746 
036750 
036752 
036754 
036754 
036754 
036754 
036756 
036764 
036766 
036772 



036772 
036772 
036772 
056774 
037000 
037004 



037010 
037014 
037016 
037022 
037024 
037024 
037026 
037030 



010102 

052702 010000 

020102 

001406 

005237 002212' 

104456 
000661 
045732' 
015374' 



104403 

023727 002212' 000017 

103402 

004737 017104' 



104402 

004737 046454' 

004737 046320' 

004737 046412' 



00473? 015674 

103407 

005237 002212' 

010001 

104455 

000662 
003642' 



180$ s 



MOV 


R1,R2 


iSET UP EXPECTED 


BIS 


*eiT12.R2 


(SET THE RLL BIT IN EXPECTED 


CMP 


R1,R2 


lARE THEY EQUAL 


BEQ 


180$ 


:BR. IF EQUAL CALL IS WELL) 


INC 


FATFLG 


J BUMP COUNT 


ERRKi^U 


■cRRNO , T24L0N , EXPREC 


iTHE RLL BIT WAS NOT SET IN XSTO 

TRAP C$ERHRD 
.WORD 433 
.WORD T24L0N 
.WORD EXPREC 



ENOSUB 



CMP 
BLO 
JSR 



FATFLG,^>15. 

999$ 

PC.CKDROP 



999$; 

I ♦ 

jTEST 4, SUBTEST 5 

1 

(VERIFIES THAT A READ FORWARD COMMAND READING A RECORD 

J SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 

I STATUS ALERT TERMINATION WITH THE RECORD LENGTH SHORT 

tCRLS) BITS SET. IT IS VERIFIED THAT THE RESIDUAL BYTE 

I COUNT CRBPCR) IN THE MESSAGE BUFFER CONTAINS THE 

(PROPER NONZERO VALUE CE.G. THE OirFFRENCE BETWEEN 

jTHE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD 

(LENGTH). 

J 

I 

t 

I - 



!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L 10056: 

TRAP C$ESUB 
lis ERROR COUNT AT 25 
J BR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



BGNSUB 



JSR 
JSR 

JSR 



PC,T24RT3 

PC.T24REST 

PC.T24RT2 



J >>>>>>>>>>> > BEGIN SUBTEST >>>>>>>>>>>> 

T4.5: 

TRAP C$BSU6 
(SET UP OTHER COMMAND PACKET 
iSET COMMAND JACKET 
(SET UP OTHER COMMAND PACKET 



(ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
{ 



JSR 


PC.SOFINIT 


BCS 


20$ 


INC 


FATFLG 


MOV 


RO.Rl 


ERRDF 


ERRNO.SFIERR.SFIMSG 



(DO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

(BUMP COUNT 

(CONTENTS OF TSSR REGISTER 

(FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 



C$ERDF 

454 

SFIERR 



Gil 



TSV7 - HARDWARE TESTS 1-6 MACRO M1113 Ol-FEB-SA 17t54 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 136 



037032 011734' 

2482 037034 20$: 

2483 037034 013737 002172' 043650' 
2464 037042 012704 043630' 

2485 
2486 
2487 
2488 
2489 
2490 
2491 

2492 037046 004737 010562' 

2493 037052 103407 

2494 037054 005237 002212' 

2498 037060 010001 

2499 037062 
037062 104456 
037064 000663 
037066 005046' 
037070 011734' 

2500 037072 24*: 
037072 104406 

2501 
2502 
2503 
2504 
2505 
2506 
2507 

2508 037074 004737 010714' 

2509 037100 103407 

2510 037102 010001 

2511 037104 005237 002212' 

2515 037110 
037110 104456 
037112 000664 
037114 045116' 
037116 011746' 

2516 037120 30$: 
037120 104406 

2517 037122 012703 000400 

2518 037126 013737 003114' 043762' 
2519 

2520 
2521 
2522 
2523 
2524 
2525 

2526 037134 012737 140005 043760' 

2527 037142 012704 043760' 

2528 037146 65$: 

2529 037146 010337 043766' 

2530 037152 010465 000000 

2531 037156 0O4737 016150' 

2532 037162 016501 000002 

2533 037166 012702 000200 



.WORD SFIMSG 



MOV UNITN.T240SW 
MOV #T24PACKET.R4 



(SET DRIVE NUMBER IN PACKET 

I SUBROUTINE NEEDS PACKET ADDRESS 



! WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
1 

J ***********************************<(******«*** *4i*««*«*«4i*4i4>i.*««*4* 



JSR PC, WRTCHR 

BCS 24$ 

INC FATFLG 

MOV R0,R1 

ERRHRD ERRNO , WRTMSG , SF IMSG 



CKLOOP 



I ISSUE WRITS CMARACTEPISTIC5 
I BR, IF COMMAND ISSUT.O OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSS.^ 
I WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
;L00P IF SELECTED 

TRAP 



CiERHRD 
435 
WRTMSG 
SF IMSG 

COCLPl 



;***********************************«************«***********+***** 

I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
t 

;***********************************4i****** **«**««* ««*««*«4******«* 

JSR PC, REWIND 

BCS 30$ 

MOV RO.Rl 

INC FATFLG 

ERRHRD ERRNO , T24RWN .PKTSSR 



CKLOOP 

MOV 
MOV 



I CALL TAPE REWIND COMMAND 




J BR. IF NO PROBLEM 




iSAVE TSSR 




iBUMP COUNT 




(REWIND NOT ACCEPTED 




TRAP 


C$ERHRD 


.WORD 


436 


.WORD 


T24RWN 


.WORD 


PKTSSR 



I LOOP IF SELECTED 



*256. ,R3 
FREE, 124^6 



TRAP 



C$CLP1 



t RECORD SIZE 

I STARTING WRITE BUFFER ADDRESS 



I ********************** 4 **«***«** ********************* ************* 

;WRITE DATA,ACK.CVC-1 COM.^ANO 
I 

;***********«************************************************«***** 



MOV #140005, T24PK3 

MOV *T24PK3,R4 

MOV R3.T24SZ 

MOV R4,TSDB(R5) 

JSR PCWAITF 

MOV TSSR(R5),R1 

MOV ftSSR,R2 



f WRITE 0ATA,ACK,CVC-1 COMMAND 
(SET UP R4 WITH PACKET ADDRCSS 

(SET UP RECORD SIZE IN PACKET 
(ISSUE COMMAND 
(WAIT FOR SSR TO SET 
(GET TSSR CONTENTS 
I SET UP EXPECTED 



TSV7 - HARDWARE TESTS 1-6 MACRO M1113 Ol-FEB-84 17:54 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



Hll 



SEQ 137 



2554 037172 


020102 




2535 037174 


001406 




2536 037176 


005237 


002212' 


2540 037202 






037202 


104456 




037204 


000665 




037206 


005103' 




037210 


011746' 




2541 037212 






037212 


104406 




2542 037214 






2543 






2544 






2545 






2546 






2547 






2548 






2549 






2550 037214 


004737 


010714' 


2551 037220 


103407 




2552 037222 


010001 




2553 037224 


005237 


002212' 


2557 037230 






037230 


104456 




037232 


000666 




037234 


045116' 




037236 


011746' 




2556 037240 






037240 


104406 




2559 037242 


012703 


001000 


2560 037246 


013737 


003114' 043762 


2561 






2562 






2563 






2564 






2565 






2566 






2567 






2566 037254 


012737 


140001 043760 


2569 037262 


012704 


043760' 


2570 037266 


010337 


043766' 


2571 037272 


010465 


000000 


2572 037276 


004737 


016150' 


2573 037302 


016501 


000002 


2574 037306 


012702 


100204 


2575 037312 


020102 




2576 037314 


001406 




2577 037316 


005237 


002212' 


2581 037522 






037322 


104456 




037324 


0OO667 




037326 


046164' 




037350 


015374' 




2582 037332 






037332 


104406 




2583 






2584 







75$: 
120$ 



CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



K1,R2 

75$ 

FATFLG 

ERRNO.v^RTERR.PKTSSR 



lARE THEY EQUAL 




iBR, IF OK 




iBUMP COUNT 




iTSSR INCORRECT 


AFTER WRITE DATA 




TRAP C$ERHRD 




.WORD 437 




.WORD WRTERR 




.WORD PKTSSR 



(LOOP IF SELECTED 



TRAP 



: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
t 

;4i***4i4> 41************ **************4i4i*4t*^**** ****** **************««^ 



130$: CKLOOP 

MOV 
MOV 



♦512. ,R3 
FREE , T24RB 



I LOOP IF SELECTED 

TRAP 
I RECORD SIZE 
tSTARTir»iG READ BUFFER ADDRESS 



MOV 


*140001,T24PK3 


MOV 


#T24PK3.R4 


MOV 


R3,T24SZ 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSH(R5).R1 


MOV 


«SSR!SC!BIT2,R2 


CMP 


R1.R2 


BEQ 


170$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T24TRL,EXPREC 



C$CLP1 



JSR 


PC, REWIND 


I CALL TAPE REWIND COMMAND 




BCS 


130$ 


J BR, IF NO PROBLEM 




MOV 


RO.Rl 


J SAVE TSSR 




INC 


FATFLG 


iBUMP COUNT 




ERRHRD 


ERRNO , T24RWN , PKTSSR 


I REWIND NOT ACCEPTED 








TRAP 


C$ERHRD 






.WORD 


438 






.WORD 


T24RWN 






.WORD 


PKTSSR 



C$CLP1 



t****************************************** ************************ 

I READ DATA,ACK,CVC-1 COMMAt«) 
i 

t********************************«*4i*««********««***««***«««4>****** 

(READ DATA,ACK,CVC-1 COMMAND 
165$: MOV #T24P:<3,R4 jSET UP R4 WITH PACKET ADDRESS 

J SET UP RECORD SIZE IN PACKET 
J ISSUE COMMAND 
iWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
I ARE THEY EQUAL 
iBR, IF OK 
iBUMP COUNT 

jTSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 

TRAP 



170$ 



CKLOOP 



C$ERH«D 
439 

T24TK1. 
EXPREC 

C$CLP1 



J ******** 4*****«*************i **************'«********************** 



Ill 



TSV7 - HARDWARE TESTS 1-6 MACRO M1113 Ol-FEB-84 17i54 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 138 



2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2595 
2594 
2595 
2599 



2600 
2601 
2602 
2605 
2604 
2605 
2609 



2610 
2611 



2612 
2615 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2651 
2632 
2633 
2634 



037334 
037340 
037342 
037346 
037350 
057352 
037356 
037356 
037360 
037362 
037364 
037366 
037366 
037372 
037376 
037400 
037402 
037406 
037406 
037410 
037412 
037414 
037416 
037416 
037420 
037420 
037420 
037422 
037430 
037432 
037436 



043660' 
040000 

002212' 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
000670 
046014' 

015374' 

013701 
012702 
020102 
001406 
0C5237 

104456 
000671 
046076' 

015374' 

104406 



104403 

023727 002212' 000017 

103402 

004737 017104' 



043656 
000400 



002212 



!hEAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 
1 

I GET MESSAGE BUFFER 

I SET UP EXPECTED 

I SET THE RLS BIT IN EXPECTED 

(ARE THEY EQUAL 

iBR. IF EQUAL CALL IS WELL) 

(BUMP COUNT 

iTHE RLL BIT WAS NOT SET IN XSTO 



160$: 



MOV 


T24BFR*6.R1 


MOV 


R1»R2 


BIS 


♦6IT14,R2 


CMP 


R1,R2 


6EQ 


1801 


INC 


FATFLG 


ERRHRO 


ERRN0,T24L0P,EXPREC 



TRAP 


CIERHRD 


.WORD 


440 


.WORD 


T24L0P 


.WORD 


EXPREC 



MOV 


T24BFR»4.R1 


MOV 


*256..R2 


CMP 


R1.R2 


BEQ 


190$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T24PBP, EXPREC 



190* 



CKLOOP 
GNOSUe 



CMP 
BLO 
JSR 



iPICK UP RESIDUAL BYTE COUNTER 
I THIS SHOULD BE THE DIFFERENCE 
lis THE DIFFERENCE CORRECT 
iBR, IF CORRECT 
I BUMP COUNT 
iRBPCR NOT CORRECT 



(LOOP IF SELECTED 



TRAP 


CIERHRD 


.WORD 


441 


.WORD 


T24PBP 


.WORD 


EXPREC 



TRAP 



CtCLPl 



FATFLG. #15, 

999$ 

PC.CKDROP 



037436 
0^7436 
037436 



999$; 

I ♦ 

I TEST 4, SUBTEST 6 

! VERIFIES THAT READ REVERSE COMMANDS WITH SWE-O 

(OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 

(WRITTEN WITH A SERIES OF TEST RECORDS VARING IN 

(LENGTH AND DATA CONTFNT. THE TAPE IS THEN READ IN REVERSE 

(SEQUENTIALLY AND THE RESULTS 

((STATUS, DATA. ETC.) VERIFIED. THE BYTE COUNT ON 

(EACH READ REVERSt COMMAND IS SET TO THE LENGTH OF THE 

(EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 

(OCCUR. 

I 

1 

1 

( - 



(>>>>>>>>>>>> END SUBTEST >>>>>>^>>>>> 

L10057: 

TRAP C$ESUB 

(IS ERROR COUNT AT 25 
I BR, IF LESS THAN 25 
(TRY TO DROP THE UNIT 



BGNSUB 



104402 



J >■> >>>>>>>>>> BEGIN SUBTEST >>>> ^ >■»■»■»>> > 

T4.6: 

TRAP CSBSUB 



Jll 



TSV7 - HARDWARE TESTS 1-8 MACRO M1H3 Ol-FEB-84 17!54 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 139 



2635 037440 004737 046454* 

2636 037444 004737 046320' 

2637 037450 004737 046412' 
2638 

2639 
2640 
2641 
2642 
2643 
2644 

2645 037454 004 737 015674' 

2646 037460 103407 

2647 037462 005237 002212* 

2651 037466 010001 

2652 037470 
037470 104455 
037472 000672 
037474 003642' 
037476 011734' 

2653 037500 

2654 037500 013737 002172' 

2655 037506 012704 043630' 
2656 

2657 
2658 
2659 
2660 
2661 
2662 

2663 037512 004737 010562' 

2664 037516 103407 

2665 037520 005237 002212' 

2669 037524 010001 

2670 037526 
037526 1044^6 
037530 000673 
037532 005046' 
037534 011734' 

2671 0^7536 
037536 104406 

26 72 
2673 
2674 
2675 
2676 
2677 
2678 

2679 037540 004737 010714' 

2680 037544 103407 

2681 037546 OlOOOl 

2682 037550 005237 002212' 

2686 037554 
037554 104456 
037556 000674 
037560 045116' 
037562 011746' 

2687 037564 



043650' 



JSR PC.T24RT3 
JSR PC,T24REST 
JSR PC,T24r<T2 



I SET UP OTHER COMMAND PACKET 

I SET COMMAND PACKET 

I SET \JP OTHER COMMAND PACKET 



J ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
I 



20$: 



JSR 


PC.SOFINIT 


jDO INITIALIZE ON CONTROLLER 




BCS 


20$ 


I BR IF INIT WAS OK 




INC 


FATFLG 


(BUMP COUNT 




MOV 


RO.Rl 


1 CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


; FATAL ERROR TSSR WAS NOT OK 








TRAP 


C»ERDF 






.WORD 


442 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV UNITN.T24DSW 
MOV *T24PACKET.R4 



;SET DRIVE NUMBER IN PACKET 

I SUBROUTINE NEEDS PACKET ADDRESS 



IwRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
I 



241: 



JSR PC, WRTCHR 

BCS 241 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG . SFIMSG 



CKLOOP 



I ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
J BUMP COUNT 

J SAVE CONTENTS OF TSSR 
IWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 

TRAP 



C$ERHRO 
443 

WRTMSG 
SFIMSG 

CJCLPl 



i ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 



30$: 



JSR PC. REWIND 

BCS 301 

MOV RO.Rl 

INC FATFLG 

ERRHRD ERRNO. T24RWN.PKTSSR 



CKLOOP 



I CALL TAPE REWIND COMMAND 

iBR. IF NO PROBLEM 

iSAVF TSSR 

iBUMP COUNT 

I REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
,WORD 

iLOOP IF SELECTED 



CiERHRO 
444 

T24RUN 
PKTSSR 



Kll 



TSV7 - HARDWARE TESTS i-8 
TEST 



MACRO M1113 Q 
4: BASIC READ DATA (FORWARD AND REVERSE J 



l-FeB-84 17:54 



SEQ 140 



037564 


104406 




2668 037566 


012703 


000400 


2689 037572 


013737 


003114' 043762' 


2690 






2691 






2692 






2693 






2694 






2695 






2696 






2697 037600 


012737 


140005 043760' 


2698 037606 


012704 


043760' 


2699 037612 






2700 037612 


010300 




2701 037614 


004737 


017324' 


2702 037620 


010337 


043766' 


2703 037624 


010465 


000000 


2704 037630 


004737 


016150' 


2705 037634 


016501 


000002 


2706 037640 


012702 


000200 


2707 037644 


020102 




2708 037646 


001406 




2709 037650 


005237 


002212' 


2713 037654 






037654 


104456 




037656 


000675 




037660 


005103' 




037662 


011746' 




2714 037664 






037664 


104406 




2715 037666 


005723 




2716 037670 


022703 


000414 


2717 037674 


001346 




2718 037676 






037676 


104406 




2719 037700 


005743 




.?720 037702 


013737 


003114' 043762' 


2721 






2722 






2723 






2724 






2725 






2726 






2727 






2728 037710 


012737 


100401 043760' 


2729 037716 


012704 


043760' 


2730 037722 


010337 


0A3766' 


2731 037726 


010465 


000000 


2732 037732 


004737 


016150' 


2733 037736 


01650 L 


000002 


2734 037742 


012702 


000200 


2735 037746 


020102 




2756 037750 


001406 




2737 037752 


005237 


002212' 


2741 037756 






037756 


104456 




057760 


000676 





MOV *256..R3 
MOV FREE,T24RB 



TRAP 
iRECORD SIZE 
I STARTING WRITE BUFFER ADDRESS 



C$CLP1 



jWRITE DATA,ACK.CVC-1 COMMAND 
I 

{4('K4t4>4iihfti4i****'f Aif «****« ***«*■» *4>4i *****Ailiikifc** ****** ******** A****** 4i4iA4i 



65$ 



MOV 


0140005 »T24PI<3 


MOV 


*T24PI<3,R4 


MOV 


R3.R0 


JSR 


PC.FILLMEM 


MOV 


R3,T24SZ 


MOV 


R4,TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


♦SSR.R2 


CMP 


Rl,fi2 


BEQ 


75* 


INC 


FATFLG 



ERRHRD ERRNO , WRTERR , PKTSSR 



75$ 



80 J 



CKLOOP 

TST 
CMP 
BNE 
CKLOOP 

TST 
MOV 



(R3)f 
*268. ,R3 
65$ 



-CR3) 
FREE,T24RB 



iWRITE DATA.ACK,CVC-1 COMMAND 
(SET UP R4 WITH PACKET ADDRESS 

I SET PATTERN IN CORRECT REGISTER 

(FILL MEMORY WITH RECORD SI2E 

I SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR. IF OK 

I BUMP COUNT 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 

(BUMP RECORD SIZE 

(END OF- RECORD YLT 

iBR. IF MORE RECORDS TO W-^ITE 

(LOOP IF SELECTED 

TRAP 

(SET BACK TO 512. 

I STARTING READ BUFFER ADDRESS 



CIERHRD 
445 

WRTERR 
PKTSSR 

C$CLP1 



C*CLP1 



)*******************«***********«********************************** 

(READ REVERSE DftTA.ACK COMM^^ND 

t 

J ****************************************************************** 

[READ REVERSE DATA.ACK COMMAND 
165$: MOV OT24PK3.R4 (SET UP R4 WITH PACKET ADDRESS 

(SET UP RECORD SIZE IN PACKET 
(ISSUE COMMAND 
(WAIT FOR SSR TO SET 
(GET TSSR CONTENTS 
(SET UP EXPECTED 
(ARE THEY EQUAL 
(BR, IF OK 
iBUMP COUNT 
(TSSR INCORRECT AFTER READ DATA 

TRAP CJERHRD 
.WORD 446 



MOV 


*100401,T21PK3 


MOV 


OT24PK3.R4 


MOV 


R3,T24SZ 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


*SSR.R2 


CMP 


R1.R2 


BEQ 


170$ 


INC 


FATFLG 



ERRHRD ERRNO. T24WDC. PKTSSR 



Lll 



TSV7 - HARDWARE 


TESTS 1 


-8 


TEST 4; 


BASIC 


READ DATA (FORWA 




057762 


045446' 






037764 


011746' 




2742 


037766 








037766 


104406 




2745 


037 770 


013702 


003114' 


2744 


037774 


010304 




2745 


037776 


162704 


000400 


2746 


040002 


060204 




2747 


040004 


021403 




2748 


040006 


001410 




2749 


040010 


011401 




27S0 


040012 


010302 




2751 


040014 


005237 


002212' 


2755 


040020 








040020 


104456 






040022 


000677 






040024 


044 700' 






040026 


015374' 




2756 


040030 








040030 


104406 




2757 


040032 


005724 




2758 


040034 


160204 




2759 


040036 


020403 




2760 


040040 


001360 




2/61 


040042 


005743 




2762 


040044 


022703 


000400 


2763 


040050 


001322 




2764 


040052 








040052 


104406 




2/65 


040054 
040054 








040054 


104403 




2766 


040056 


023727 


002212' 


2767 


040064 


103402 




2768 


040066 


004737 


01V104' 


2769 


040072 






2770 








2771 








2772 








27:'5 








2774 








27/5 








2776 








2777 








2778 








2779 








2780 








2781 








2782 








27J3 


040072 
040072 








040072 


104402 




2784 


040074 


004 73? 


046454' 


2785 


040100 


004 737 


046320' 


2786 


040104 


004737 


046412' 


2787 








^788 









MACRO M1113 
ID AND REVERSE 



V 



-FEB-64 17:54 



SEQ 141 



170$: CKLOOP 



173$: 



.WORD 
.WORD 



MOV 


FREE,R2 


MOV 


R3.R4 


SUB 


0256., n4 


ADO 


R2.R4 


CrIP 


(R4).R3 


BEQ 


180$ 


MOV 


CR4).R1 


MOV 


R3,R2 


INC 


FATFLG 


ERRHRD 


ERRNa,T24DTA,EXPfiEC 



180$: CKLOOP 



190$! 



TST 


CR4)i 


SUB 


R2,R4 


CMP 


R4.R3 


BNE 


173* 


TST 


-CR3) 


CMP 


<>256.,R3 


BNE 


165$ 


CKLOOP 





iLOOP IF SELECTED 

TRAP 

I GET BUFFER ADDRESS 

(CURRENT RECORD SIZE 

I FIRST LOCATION IN BUFFER 

(SET POINTER TO FRAME (WORD) 

(CHECK DATA READ CR3-DATA ALSO 

jBR. IF ALL IS WELL 

(RECD DATA 

iCXPECTEO DATA 

I BUMP COl>NT 

I DATA READ NOT - WRITTEN 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 

;BUMP TO NEXT LOCATION 

(GET RID OF BASF ADDRESS 

jENO OF RECORD YET 

(BR, IF NOT AT END OF RECORD 

(BUMP RECORD SI7e 

(END OF RECORD YCT 

J BR, IF MORE RECORDS TO WRITE 

iLOOP IF SELECTED 



T24WDC 
PKTSSR 

C$CLP1 



C$ERHRD 
447 
r24DTA 
EXPREC 

C$CLP1 



000017 



EN0SI« 



CMP 
BLO 
JSR 



J >>>>>>>>>>>> 



FATFLG, 015, 

999$ 

PC.CKDROP 



TRAP 
END SUBTEST >>>>> 
L 10060: 

TRAP 
(IS ERROR COUNT AT 25 
(BR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



C$CLP1 
>>>>>>> 

C$ESUB 



999$: 

1 * 

[test 4. SUBTEST 7 

(VERIFIES THAT READ DATA COMMANDS WITH CVC-1 AND THE 

(SWAP BYTES CSWe) BIT SET OPERATES PROPERLY. THE TEST 

(SEQUENCE IS IDENTICAL TO THAT USED TN SUBTEST 2. 

(THE RESULTS, EXCCPT FOR RAM CONTENTS, SH0U1.0 BE THE SAME. 

* 

( 

{ 

I - 

BGNSUe (>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>■>>>>> 

T4 . 7 : 

TRAP C$BSUB 
(SET UP OTHER COMMAND PACKET 
(SET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 



JSR 


PC,T24RT3 


JSR 


PC.T24REST 


JSR 


PC.T24RT2 



Mil 



TSV7 - HARDWARE TESTS 1-8 MACRO M1113 Ol-FEB-B^ ITjBA 
TEST 4; BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 142 



2789 
2790 
2 791 
2792 
2793 

2794 040110 

2795 040114 

2796 040116 
2800 040122 
2S01 040124 

040124 
040126 
040130 
040132 

2802 040134 

2803 040134 

2804 040142 
2805 

2806 
2807 
2808 
2809 
2810 
2811 

2812 040146 

2813 040152 

2814 040154 

2818 040160 

2819 040162 
040162 
040164 
040166 
040170 

2820 040172 
C40172 

2821 
2822 
2823 
2824 
2825 
2826 
2827 

2828 040174 

2829 040200 
2850 040202 
2831 040204 

2835 040210 
O40210 
040212 
040214 
040216 

2836 040220 
040220 

283 7 040222 
2838 040226 
2839 
2840 



004737 
103407 
005237 
010001 

104455 
000 ?00 
003642' 
011734- 

013737 
012704 



004737 
103407 
005237 
010001 

104456 
000701 
005046 
011734' 

104406 



004737 
103407 
010001 
005237 

104456 
000702 
045116' 
011746 

104406 
012703 
013737 



015674' 
002212' 



002172' 
043630' 



010562' 
002212' 



010714' 
002212 



000400 
003114 



043650 



043762 



1 ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
1 



20$: 



JSR 


PC.SOFINIT 


tDO INITIALIZE ON CONTROLLER 




BCS 


20$ 


|8R IF INIT WAS OK 




INC 


FATFLG 


iBUrtP COUN" 




MOV 


RO.Rl 


1 CONTENTS OF TSSfl REGISTER 




ERRDF 


ERRNO.SFIERR.SFIHSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$EROF 






.WORD 


448 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV UNITN.T24DSW 
MOV 0T24PACKET,R4 



iSET DRIVE NUMBER IN PACKET 

I SUBROUTINE NEEDS PACKET ADDRESS 



t ************************ ****««**«4i4««4i4i44>* ************************ 

!WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
I 

{*********«*********** **4i*4i****************** ************ ********** 



24$: 



JSR PC, WRTCHR 

BCS 24$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WR TMSG . SF IMSG 



CKLOOP 



(ISSUE WRITE CHARACTERISTICS 
(BR. IF COr:MANO ISSUED OK 
iBUtiP CaWT 

tSAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 

TRAP 



C$ERHRD 
449 
WRTMSG 
SFIMSG 

C$CLP1 



l****«******************4********«4********************/.*********** 

1 ISSUE REWIND COMMAND TO SELECTED 1 APE DRIVE 

J ********************************** *«*4i4k*4i************************* 



JSR 


PC, REWIND 


(CALL TAPE REWIND COMMAND 




BCS 


30$ 


(BR, IF NO PROBLEM 




MOV 


RO.Rl 


(SAVE TSSR 




INC 


FATFLG 


(BUMP COUNT 




ERRHRD 


ERRNO. T24RWN.PKTSSR 


(REWIND NOT ACCEPTED 








TRAP 


C$ERHRD 






.WORD 


450 






.WORD 


T24RW'N 






.WORD 


PKTSSR 



30$ 



CKLOOP 

MOV 
MOV 



(LOOP IF SELECTED 



0256. ,R3 
FREE,T24RB 



TRAP 



C$CLP1 



iRtCORD SIZE 

(STARTING WRITE BUFFER ADDRESS 



I ***************** *****4i***** J *****< ^****** ****************** **4^*** 



Nil 



TSV7 - HARDWARE TESTS 1-8 MACRO M1113 Ol-FEB-84 17:54 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 143 



2841 
?842 
2643 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2862 



2863 

2864 
2865 
2866 
2867 

2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2835 
2686 
2890 



2891 
2892 



040234 
040242 
040246 
040246 
040250 
040254 
040260 
040264 
040270 
040274 
040300 
040302 
040304 
040310 
040310 
040312 
040314 
040316 
040320 
040320 
040322 
040324 
040330 
040332 
040332 
040334 
040336 



040344 
040352 
040356 
040362 
040366 
040372 
040376 
040402 
040404 
040406 
040412 
040412 
04C''^14 
040416 
040420 
040422 
040422 
040424 



iWRT.TE DATA.ACK.CVC-l.SWB COMMAND 



012737 150005 043760' 
012704 043760' 



65$ 



010300 
004737 
01033? 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000703 
005103' 
011746' 

104406 
005723 
022703 
001346 

104406 
005743 
013737 



017324' 

043766' 

000000 

016150' 

00C002 

000200 



002212 



MOV 


</l50005,T24PI<3 


MOV 


*T24PK3.R4 


MOV 


R3.R0 


JSR 


PC.FILLMEM 


MOV 


R3,T243t 


MOV 


R4,T^?nr ;-:■■) 


JSR 


PC: 


MOV 


TSS->. 5i /ll 


MOV 


#SSR.R2 


CMP 


R1,R2 


BEQ 


75$ 


INC 


FPTFLG 



ERRHRD ERRNO . WRTERR . PKTSSR 



iWRITE DATA.ACK.CVC-l.SWB COMMAND 
iSET UP R4 WITH PACKET ADDRESS 

jSET PATTERN IN CORRECT REGISTER 

jFILL MEMORY WITH RECORD SIZE 

(SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FCR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR, IF OK 

(BUMP CCUNT 

(TSSR INCORRECT AFTER WRITE DATA 



000414 



003114' 043762 



75$ 



60$ 



CKLOOP 

TST 
CMP 
BNE 
CKLOOP 

TST 
MOV 



(R3)» 
*268. ,R3 
654 



-CR3) 
rR'iE.T2<RB 



TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 

(BlfflP RECORD SIZE 

(END OF RECORD YET 

;BR. IF MORE RECORDS TO WRITE 

(LOOP IF SELECTED 

TRAP 

(SET RECORD SIZE BACK TO 512. 

[STARTING READ BUFFER ADDRESS 



C$ERHRO 
451 

WRTERR 
PKTSSR 

C$CLP1 



C$CLr-'l 



READ REVERSE DATA.ACK.SWB COMMAND 



012737 110401 043760' 

012704 043760' 

010337 043766' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 

020102 

001406 

005237 002212' 

104456 
000704 
045446' 
015374' 

104406 

013702 003114' 



165$ 



MOV 


#110401, T24PK3 


MOV 


*T24PK3,R4 


MOV 


R3.T24SZ 


MOV 


R4,TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


<>SSR.R2 


CMP 


R1.R2 


BEQ 


170$ 


INC 


FATFLG 



ERRHRD ERRNO . T24W0C , EXPREC 



170$ 



CKLOOP 
MOV 



FREE,R2 



[^lEAD REVERSE DATA.ACK.SWB COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

(SET 'JP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

[GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

[BR. IF OK 

[BUMP COUNT 

(TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 452 
.WORD T24WUC 
.WORD EXPREC 

(LOOP IF SELECTED 

TRAP C$CLP1 

(GET BUFFER ADDRESS 



TSV7 - HARDWARE TESTS 1-8 MACRO 
TEST 4: BASIC READ DATA (FORWARD AND 



2895 

2B95 
^896 
2897 
2898 
2899 
2900 
2904 



2905 

2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 

2914 



2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
292 7 
2928 
2929 
2930 
2931 



;>952 
r;933 
2934 
2955 

2936 
295/ 
2958 

2939 
2940 
2941 
294^ 



040450 
040452 
040436 
040440 
040442 
040444 
040446 
04O4r>0 
040454 
040454 
040456 
040460 
040462 
040464 
040464 
040466 
040470 
040472 
040474 
040476 
040500 
040504 
040506 
040506 
040510 
040510 
040510 
040512 
040520 
040522 
040526 



040526 
040526 
040526 
040550 
040554 
040540 



010504 

162704 000400 

060204 

021405 

001410 

011401 

010502 

005257 002212' 

104456 
000705 
044700' 
015574' 

104406 

005724 

160204 

020405 

001560 

005745 

022705 000400 

001522 

104406 



104405 

025727 002212' 000017 

105402 

004737 017X04' 









Bl^^ 






M1115 01 


-FEB -84 


17i54 








REVERSE) 














MOV 


R5,R4 




iCURRENT RECORD SIZE 






sue 


♦256, ,R4 




iFIRST LOCATION IN BUFFER 




175lt 


ADO 


R2.R4 




iSET POINTER TO FRAME (WORD) 






CMP 


(R4).R5 




iCHECK DATA READ (R3-DATA ALSO) 






BEQ 


180t 




iBR. IF ALL IS WE.LL 






MOV 


CR4).R1 




iRECD DATA 






MOV 


R5.R2 




lEXPECTED DATA 






INC 


FATFLG 




IBI^IP COUNT 






ERRHRD 


feRRN0,T240TA,fcXPREC 


(DATA READ NOT - WRITTEN 












TRAP 


CIERHPJ 










.WORD 


453 










.WORD 


T.?40TA 










.WORD 


EXPREC 


180$: 


CKLOOP 






ILOOP IF SELECTED 

TRAP 


CiCLPl 




TST 


(fl4)» 




iBUMP TO NEXT LOCATION 






sue 


R2,R< 




iCiET RID OF BASE ADDRESS 






CMP 


94. R5 




lENO OF RECORD YET 






BNE 


1754 




iBR. IF NOT AT END OF RECORD 






TST 


-(R5) 




iBUhP RECORD SIZE 






CMP 


♦256* ,R3 




lENO OF RECORD YET 






BNE 


1651 




iBR. IF MORE RECORDS TO WRITE 




1901: 


CKLOOr^ 






iLOOP IF SELECTED 

TRAP 


CICLPI 



SEQ 144 



104402 

004757 046454' 

004757 046320' 

004737 046412' 



ENDSUB 



CMP 
BLO 
JSR 



|>U>>^V>>>>%> 



FATFLG. 015 
999* 

PC.CKOROP 



4. SUBTEST a 



999»: 
I * 

I TEST 
I 

I VERIFIES THAT A READ REVERSE COMMAND READING A RECORD 

(LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 

iSTATUS ALERT TERMINATION WITH THE RECORD LEf^TH LONG 

i(RLL) BIT SET. 

I 

I 

I • 



END SL«TEST 
Ll006lt 

TRAP 
lis ERROR COUNT AT 25 
(BR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



>^»>>>>>>>>> 



CJESUB 



6GNSUB 



JSR 


PC,T24RT3 


JSR 


PC,T24REST 


J'Jff 


PC,T24RT2 



040544 004737 015674* 



I >^^> v> v>>>>> BEGIN SUBTEST *>**>*>»> ^ * * 

T4.fl: 

TRAP C*BSLe 
I SET UP OTHER COMMAND PACKET 
I SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 

I •••••«••«••••«••*•••«••»«•*«•••«•**«*«•••«««•••«•««.••«•••««•«««•«« 

I ISSUE CONTROLLER "SOFT- INITIALIZE - CARRY BIT CLEAR IF ERROR 
I 

wSR PC.SOFXNIT lOO INHIALXZE ON CONTROLLER 



C12 



]U^ -.IW^^^i 


rM'U 


^®(F0RWA 


2<Hl 040550 


103407 




2944 040552 


005237 


002212' 


2946 040556 


010001 




2949 040560 






040560 


104455 




040562 


000706 




040564 


003642' 




040566 


011754* 




2950 040570 






2951 040570 


013737 


002172- 


2952 040576 


012704 


043630' 


2953 






2954 






2955 






2956 






2957 






295d 






2959 






296C 040602 


004737 


010562' 


2961 040606 


103407 




2962 040610 


005237 


002212' 


2966 040ti.l4 


010001 




2967 040616 






040616 


104456 




040620 


000707 




040622 


005046' 




040624 


011734' 




2968 040626 






040626 


104406 




2969 






2970 






2971 






2972 






2973 






2974 






2975 






2976 040650 


004737 


010714- 


2977 040634 


004737 


016236' 


2978 040640 


103407 




2979 040642 


OlOOOl 




2980 040644 


005237 


002212' 


2964 040650 






040650 


104456 




040652 


000710 




040654 


045116' 




040656 


011746' 




2985 040660 






040660 


104406 




2986 040662 


012703 


OOIOOO 


2987 040666 


0X3737 


003U4' 


2988 






2989 






2990 






2991 






2992 






299? 






2994 







17)54 



SEQ 145 



043650 



043762 



201 



BCS 


20* 


(BR IF INIT WAS OK 




INC 


FATFLG 


iBUHP COUNT 




MOV 


RO.Rl 


iCONTENTS OF T5SR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


OERDF 






.WORO 


454 






.UCRO 


SFIERR 






.WORD 


SFIMSG 



MOV UNITN.T24DSW 

MOV 0T24PACKET,R4 



iSEf DRIVE NUMBER i.N PACKET 
iSUeROt^TINE E^EOS PACKET ADDRESS 



iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
( 

(ISSUE WRITE CHARACTERISTICS 
,BR, IF COMMAND ISSUED OK 
iBUMP COUNT 

I SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



JSR 


PC. WRTCHR 


BCS 


24 1 


INC 


FATFLG 


MOV 


RO.Rl 


ERRHRO 


ERRNO.WRTMSG, SFIMSG 



241 



CKLOOP 



(LOOP IF SELECTED 



TRAP 



CtERHPD 
455 
WRTMSG 
SFIMSG 

C*CUP1 



(ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
( 



50$ 



JSR 


PC. RE WIND 




(CALL TAPE REWIND COMMAND 




JSR 


PC.CHKTSSR 




(SEE HOW TSSR IS 




BCS 


301 




(BR. IF NO PROBLEM 




MOV 


RO.Rl 




(SAVE TSSR 




INC 


FATFLG 




(BUMP COUNT 




ERRHRD 


ERRN0,T24RWN. 


.PKTSSR 


(REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 


CtEt^HRD 
456 
T24RWN 
PKTSSR 



CKLOOP 

MOV 
MOV 



(LOOP IF SELECTED 



•512., R3 
FREE.T24RB 



TRA^' 



(RECORD SIZE 

(STARTING WRITE BUFFER ADDRESS 



C$CLPl 



( 

(WRITE DATA.ACK.CVC-1 COMMAND 
( 



m 



D12 



■4"''§8g?e^Rl^SlAlA«(FORWARBWS^i^^SE 



65$: 



2995 040674 


012737 


140005 043760' 


2996 040702 


012704 


043760- 


299? 040706 






2998 040706 


010337 


04.<766' 


2999 040712 


010465 


000000 


3000 040716 


004737 


016150' 


3001 040722 


016501 


000002 


3002 040726 


012702 


000200 


3003 040732 


020102 




3004 040734 


001406 




3005 040736 


005237 


002212' 


3009 040742 






040742 


104456 




040744 


000711 




040746 


005103- 




040750 


011746' 




3010 040752 






040752 


104406 




3011 040754 


012703 


000400 


3012 040760 


013737 


003114' 043762' 


3015 






3014 






3015 






3016 






3017 






3018 






3019 






3020 040766 


012737 


100401 043760' 


3021 040774 


012704 


043760' 


3022 041000 


010337 


043766' 


3023 041004 


010465 


000000 


3024 041010 


004737 


016150' 


3025 041014 


016501 


000002 


3026 041020 


012702 


100204 


30t 7 041024 


020102 




3028 041026 


001406 




3029 041030 


005237 


002212' 


3033 041034 






041034 


104456 




041036 


000712 




041040 


046164' 




041042 


015374' 




3034 041014 






041044 


104406 




3035 






3036 






3037 






3038 






3039 






3040 






3041 






3042 041046 


015701 


043660' 


3043 041052 


010102 




3044 041054 


052702 


010000 


3045 041060 


020102 




3046 041062 


001406 




3047 041064 


005237 


002212' 



S' 


-FEB-84 


17t54 




MOV 


*140005,T24PI<3 




MOV 


*T24PI<3,R4 




MOV 


R3,T24SZ 




MOV 


R4.fS0BCRS) 




JSR 


PC.WAITF 




MOV 


TSSR(H5).R1 




MOV 


#SSR.R2 




CMP 


R1,R2 




BEQ 


75$ 




INC 


TATFLG 



SEQ 146 



ERRHRD ERRNO , WRTERR , PKTSSR 



iWRITE DATA,ACK.CVC*1 COMMAND 
I SET \JP R4 WITH PACKET AODRES'3 

I SET l^ RECORD SIZE IN PACKET 

I ISSUE COMMAND 

lUAIT FOR S-^R TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

(ARE THEY EQUAL 

iBR. IF OK 

(BUMP COUNT 

I TSSR INCORRECT AFTER WRITE DATA 



75$: 



CKLOOP 

MOV 
MOV 



#256., R3 

FREE.T24RB 





TRAP 


C»ERHRD 




.WORD 


457 




.WORD 


WRTERR 




.WORD 


PKTSSR 


jLOOP IF SELECTED 








TRAP 


CJCLPl 


I SIZE OF RECORD 






1 STARTING READ BUFFER 


ADDRESS 





I READ DATA.ACK COMMAND 
I 

I READ DATA.ACK COMMAND 
1651: MOV ♦T24PK3,R4 iSET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 
(ISSUE COMMAND 
jWAIT FOR SSR TO SET 
:oET TSSR CONTENIS 
I SET UP EXPECTED 
I ARE THEI EQUAL 
iBR, IF OK 
(BUMP COUNT 
(TSSR INCORRECT AFTER READ DATA 



MOV 


dl00401.T24PK3 


MOV 


♦T24PK3,R4 


MOV 


R3,T24SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


T5SR(R5).R1 


MOV 


♦SSR»SC!BIT2,R2 


CMP 


RI.R2 


BEQ 


170* 


INC 


FATFLG 


ERRHRD 


ERRNO. T24TRL,EXPREC 



170$: CKLOOP 



TRAP 


CIERHRD 


.WORD 


458 


.WORD 


T24TRL 


.WORD 


EXPREC 



(LOOP IF SELECTED 



TRAP 



C»CLP1 



(READ MESSAGE BUfFER EXTENDED STATUS REGISTER ZEHO (XSTO) 
I 

J******** *************** ****4i*4i«*****«*******4*«4>**«****««**A*«**** 

(GET MESSAGE BUFr'ER (XSTO) 

(SET UP EXPECTED 

(SET THE RLL BIT IN EXPECTED 

(ARE THEY EQUAL 

(BR. IF EQUAL CALL IS WELL) 

(BUMP COUNT 



MOV 


T24BFR»6.R1 


MOV 


RI.R2 


BIS 


<«IT12.R2 


CMP 


R1.R2 


BEQ 


180$ 


INC 


FATFLG 



E12 



rSV? - HARDWARE TESTS 1-8 MACRO MU15 Ol-FEB-84 17:54 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 147 



3051 

3052 
3053 



3054 
3055 
3056 
3057 
305C 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 



3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3031 
3082 
3083 
3084 
3088 
3089 



3090 
3091 
3092 

3093 
3094 
3095 
3096 
3097 



041070 
041070 
041072 
041074 
041076 
041100 
041100 
041102 
041102 
041102 
041104 
041112 
041114 
041120 



041120 
041120 
041120 
041122 
041126 
041130 
041134 
041140 
041144 



041150 
041154 
041156 
041162 
041164 
041164 
041166 
041170 
041172 
041174 
041174 
041202 



104456 
000713 
045732 
015374 

104406 



104403 
023727 
103402 
004737 



104402 
005737 
001002 
000137 
004737 
004737 
004737 



002212' 000017 
017104' 



003126 

041604 
046454 
046320 
046412 



004737 015674' 

103407 

005237 002212' 

010001 

104455 
000714 
003642' 

011734' 

013737 002172' 043650' 
012704 043630' 



ERRHRD ERRNO , T24L0N , EXPREC 

180$: CKLOOP 
ENDSUB 



CMP fa:flg,oi5. 

BLO 9^*9% 

JSR PC.CKDROP 



999$: 

;TEST 4, SUBTEST 9 

t 

(VERIFIES THAT A READ REVERSE COMMAND SPECIFYING A DATA 
I BUFFER STARTING IN NONEXISTANT .1EM0RY TERMINATES WITH 
iTHE PROPER ERROR STATUS WITHOUT MOVING TAPE 
* - 



(THE RLL BIT WAS NOT SET IN XSTO 

TRAP CIERHRO 

.WORD 459 
.WORD T24L0N 
.WORD EXPREC 

TRAP CICLPl 

J >>v>>^>> >>>> END SUBTEST >>>>>>>>>>>> 

L 10062: 

TRAP C5ESU8 
lis ERROR COUNT AT 25 
I BR. IF LESS THAN 25 
iTRr TO DROP THE UNIT 



BGNSUe 



10$ 



TST 


NXMFLG 


BNE 


10$ 


JMP 


180$ 


JSR 


PC,T24RT3 


JSR 


PC.T24RE5T 


JSR 


DC.T24RT2 



;>>>>•»>>>>>>> BEGIN SUBTEST >>>>>>>>>>■>> 

T4.9: 

TRAP C$BSUB 

iDO WE HAVE IT? 
(BR, IF ENOliGH 
(SKIP THIS TEST IF NOT 
I SET UP OTHER COMMAND PACKET 
I SET COMMAND PACKET 
J SET UP OTHER COMMAND PACKET 



(ISSUE CONTRa.LER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
t 



20$: 



JSR 


PC.SOFINIT 


(00 INITIALIZE ON CONTROLLER 




BCS 


20$ 


(BR IF INIT WAS OK 




INC 


FATFLG 


(BUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO. SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


460 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV UNITN,T24DSW 

MOV #T24PAO<ET.R4 



(SET DRIVE NUMBER IN PACKET 
(SUBROUTINE NEEDS PACKET ADDRESS 



i*A*****4>*4>**« 



; WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
( 



F12 



TSV7 - M/XaOWARE TESTS 1-8 MACRO M1113 01 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



-FEB-84 17:54 



SEQ 148 



3098 
3099 
3100 
3101 
3102 
3106 
3107 



3108 

3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
31P0 
3121 
3122 
3123 
3124 
3125 
3126 
3130 



3131 
3132 

3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3144 



3145 

3146 
3147 
3148 



t *4i4i4i4i«4i4>****4i4i4i********««>itiJti4i*4t«4i**i|i4>i(>4i«'t>4'*4t********«4«*4i«* *«****«* 



041206 
041212 
041214 
041220 
041222 
041222 
041224 
041226 
041230 
041232 
041232 



041234 
041240 
041242 
041250 
041256 
041262 
041266 
041272 
041274 
041276 
041302 
041302 
041304 
041306 
041310 
041312 
041312 
041312 



041314 
041320 
041324 
041326 
041330 
041334 
041334 
041336 
041340 
041342 
041344 
041344 
041346 
041352 



004737 010562 

103407 

005237 002212 

010001 

104456 
000715 
005046' 
011734' 

104406 



24$: 



JSR PC.WRTCHR 

BCS 241 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



I ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
I DUMP COUNT 

(SAVE CONTENTS OF TSSR 
IWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
;LOOP IF SELECTED 

TRAP 



CJERHRD 
461 

WRTMSG 
SFIMSG 

CJCLPl 



005737 
001024 
112737 
11273'' 
012704 
010465 
004737 
103^^07 
010001 
005237 

104456 
000716 
026130 
011746 



104406 



004737 
004737 
103407 
010001 
005237 

104456 
000717 
045116' 
011746' 

104406 

012703 
013737 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
I 



002216' 

000200 

OOOOIO 

0437-^0' 

000000 

016236 



002212 



043771' 
043770' 



TST 


EXTFEA 


BNE 


27$ 


MOVB 


*200.T24BS1 


MOVB 


#10,T24BS0 


MOV 


0T24PK2,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


28$ 


MOV 


RO.Rl 


INC 


FATFLG 


ERRHRO 


ERRNO, T22SSR,PKTSSR 



271 
28$ 



I CHECK FOR EXTENDED FEATURES SW SWITCH 

I BR IF SWITCH IS ON 

(WRITE MISCELLANEOUS CONT/REAO STATUS 

(FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH") 

(WRITE SUeSYS MEM PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR 

J BR, IF NO ERROR 

(ERROR. SAVE TSSR 

(BUMP COUNT 

(TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP C$ERhRO 
.WORD 462 
.WORD T22SSR 
.WORD PKTSSR 



CKLOOP 



(LOOP IF SELECTED 



TRAP 



C$CLP1 



010714 
016236 



002212 



30$: 



JSR 


PC. REWIND 




(CALL TAPE REWIND COMMAND 




JSR 


PC.CHKTSSR 




(SEE HOW TSSR IS 




BCS 


30$ 




(BR, IF NO PROBLEM 




MOV 


RO.Rl 




(SAVE TSSR 




INC 


FATFLG 




(BUMP COUNT 




ERRHRD 


ERRNO, T24RWN. 


, PKTSSR 


(REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 


CiERHRD 
463 
T24RWN 
PKTSSR 



000005 
003114' 043762 



CKLOOP 

MOV 
MOV 



«5..R3 
FREE.T24RB 



(LOOP IF SELECTED 

TRAP 
(NUMBER OF RECORDS 
(STARTING WRITE BUFFER ADDRESS 



C$CLP1 



[4*«*«4>*««<»**«*4>*4'«4'4>4t4«4><»4t4>*''*4>4.»4'4>4'4t4'4t*4t«***4>4k4>*«**«****«******** 



TSV7 
TEST 
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I: BASIC READ DATA (FORWARD AND REVERSE) 



17:54 



G12 



SEQ 149 



3149 






3150 






3151 






3152 






3153 






3154 041360 


012737 


140005 043760' 


3155 041366 


012704 


043760' 


3156 041372 






3157 041372 


012737 


000256 043766' 


3158 041400 


010465 


000000 


3159 041404 


004737 


016150' 


3160 041410 


016501 


000002 


3161 041414 


012702 


000200 


3162 041420 


020102 




3163 041422 


001406 




3164 041424 


005237 


002212' 


3168 041430 






041430 


104456 




041432 


000720 




041434 


005103' 




041436 


011746' 




3169 041440 






041440 


104406 




3170 041442 


005303 




3171 041444 


001352 




3172 041446 


012703 


000400 


3173 041452 


012701 


160000 


^174 041456 


012702 


177776 


3175 041462 


004737 


016276' 


3176 041466 


103046 




3177 041470 


010137 


003130' 


3178 041474 


013737 


005130' 043762' 


3179 041502 


005037 


043764' 


3160 






3181 






3182 






3183 






3184 






3185 






3186 






3187 041506 


012737 


100001 043760 


3188 041514 


012704 


043760' 


3169 041520 


012737 


000400 043766' 


3190 041526 


010465 


000000 


3191 041532 


004737 


016150' 


3192 041536 


016501 


000002 


3193 041542 


012702 


104210 


3194 041546 


020102 




3195 041550 


001414 




3196 041552 


005237 


043764' 


3197 041556 


023727 


043764' 000004 


3198 041564 


001353 




3199 041566 


005237 


002212' 


3203 041572 






041572 


104456 




041574 


000721 




041576 


044221' 





(WRITE DATA,ACI<,CVC-1 COMMAND 
; 



65$; 



MOV 


#140005, T24PK3 


MOV 


#T24PK3,R4 


MOV 


*256.T24SZ 


MOV 


R4,TS0B(R5) 


JSR 


PCUAITF 


MOV 


TSSRCR5),R1 


MOV 


«SSR.R2 


CMP 


R1.R2 


BEQ 


75$ 


INC 


FATFLG 


ERRHRD 


ERRNO.WRTERR.PKTSSR 



(WRITE OATA.ACK.CVC-1 COMMAND 
J SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 
|ISSL€ COMMAND 
iWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
(SET UP EXPECTED 
(ARE THEY ECJUAL 
(BR, IF OK 
(BUMP COUNT 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 

TRAP 
(BUMP DOWN RECORD COUNTER 
(BR, IF NOT AT 5 RECORDS YET 
(RECORD SIZE 
iNXM LOU ADDRESS START 
(LIMIT CHECK FOR NXM (HIGHEST) 
(LOOK FOR NXM ADDRESS 
(BR, IF NON FOUND 
(SET ADDRESS IP FOR TEST 
(STARTING READ BUFFER ADDRESS 
(SET TO 16 BIT ADDRESSING 

(READ DATA.ACK COMMAND 
i 



75$: 



CKLOOP 



CIERHRD 
464 

WRTERR 
PKTSSR 

CJCLPl 



DEC 


R3 


BNE 


65$ 


MOV 


*256. ,R3 


MOV 


* 160000, Rl 


:10V 


0177776, R.^ 


JSR 


PC . XNXM 


0CC 


180$ 


MOV 


R1,NXML0 


MOV 


NXML0,T24RB 


CLR 


T24RB*2 



165$ 



MOV 


♦ 10000!., T24PK3 


MOV 


*T24PK3,R4 


MOV 


«256. .T24SZ 


MOV 


R4.TSDB(R5) 


JSR 


PC.UAITF 


MOV 


TSSR(R5),R1 


MOV 


#SSR!NXM!SC!BIT3,R2 


CMP 


R1.R2 


BEQ 


170$ 


TNC 


T24RB*2 


CMP 


T24RB*2.*4 


BNE 


165$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T24NXM. PKTSSR 



(READ DATA.MrK COMMAND 

(SET UP R4 WiTH PACKET ADDRESS 

(SET UP RECU^D SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR. IF OK 

(SET TO NEXT HIGHER ADDRESSING MODE 

(DID WE OVERFLOW INTO 19 BITS 

(BR, IF STILL IN 16-18 BITS RANGE 

(BUMP COUNT 

(TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHPD 

.WORD 465 
.WORD T2''.N.XM 



HI 2 
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TEST 4; BASIC READ DATA (FORWARD AND REVERSE) 



041600 


011746' 




3204 041602 






041602 


104406 




5205 041604 






3206 041604 






041604 






041604 


104403 




3207 041606 


023737 


002212' 000017 


3206 041614 


103402 




3209 041616 


004737 


017104' 


3210 041622 






3211 






3212 






3213 






3214 






3215 






3216 






3217 






3216 






3219 






3220 






3221 






3222 






3223 






3224 041622 






041622 






041622 


104402 




3225 041624 


004737 


046454' 


3226 041650 


004737 


046320' 


3227 041634 


004737 


046412' 


3228 






3229 






3230 






3231 






3232 






3233 






3234 






3235 041640 


004737 


015674' 


3236 041644 


103407 




3237 041646 


005237 


002212' 


3241 041652 


010001 




3242 041654 






041654 


104455 




041656 


000722 




041660 


003642' 




041662 


011734- 




3243 041664 






3244 041664 


013737 


002172' 043650 


3245 041672 


012704 


043630' 


3246 






3247 






3248 






3249 






i250 






3251 






3252 






3253 041676 


004737 


010562' 



170$ 
160$ 



999$ 



CKLOOP 
ENOSUB 



CMP 
BLO 
JSR 







SEQ 150 


.WORD 


PKTSSR 




TRAP 


C$CLP1 





FATFuG,015. 

999$ 

PC.CKDROP 



I LOOP IF SELFCTEO 



(>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L 10063: 

TRAP C$ESU6 
lis ERROR COUNT AT 25 
iBR, IF LESS THAN 25 
I TRY TO DROP THE UNIT 



TEST 4. SUBTEST 10 

VERIFIES THAT ILLEGAL MODE-FIELD CODES IN THE READ 
COMMAND CAUSE A FUNCTION REJECT TERMINATION WITH THE 
ILLEGAL COMMAND CILC) ERROR BIT SET. 



BGNSU6 



JSR 
JSR 
JSR 



PC,T24RT3 

PC,T24REST 

PC.T24RT? 



) >>>>x >>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T4.10: 

TRAP C$BSUB 
I SET COMMAND PACKET UP CLEAR 
I SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



: ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
I 



20$ t 



JSR 


PC.SOFINIT 


(00 INITIALIZE ON CONTROLLER 




BCS 


20$ 


»BR IF INIT WAS OK 




INC 


FATFLG 


tBUMP COUNT 




MOV 


RO.Rl 


jCONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


jFATAL ERROR TSSR WAS NOT OK 








TRAP 


CSERDF 






.WORD 


466 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV L^ITN.T24DSW 
MOV 0T24PACKET.R4 



I SET UP DRIVE NUMBER 

I SUBROUTINE NEEDS PACKET ADDRESS 



t 

jWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

JSR PC.URTCHR (ISSUE WRITE CHARACTERISTICS 



112 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 151 



5254 041702 
3255 041704 

3259 041710 

3260 041712 
041712 
041714 
041716 
041720 

3261 041722 
041722 

3262 041724 
3263 

3264 
3265 
3266 
3267 
32o6 
3269 

3270 041732 

3271 041740 

3272 041744 

3273 041752 

3274 041756 

3275 041762 

3276 041766 

3277 041772 

3278 041774 

3279 041776 

3283 042002 
042002 
042004 
042006 
042010 

3284 042012 
042012 

3285 
3286 
3287 
3288 
3289 
3290 
3291 

3292 042014 

3293 042020 

3294 042022 

3295 042026 

3296 042030 

3297 042032 

3301 042036 
042036 
042040 
042042 
042044 

3302 042046 
042046 

330r> 042050 
042050 



103407 
005237 
010001 

104456 
000723 
005046' 
011734' 

104406 
013737 



002212 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000724 
044305' 

011746' 

104406 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
000725 
044446' 
015374' 

104406 



003114' 043762 



104001 

043760' 

000400 

000000 

016150' 

000002 

100206 



002212 



043660 
001000 

002212 



043760 
043766 



BCS 


2A» 


I BR. IF COMMAND ISSUED 


OK 




INC 


FATFLG 


iBUMP COUNT 






MOV 


RO.Rl 


/SAVE CONTENTS OF TSSR 






ERRHRD 


ERRNO.WRTMSG, SFIMSG 


1 WRITE CHARACTERISTISC 


FAILED 
TRAP 
.WORD 
.WORD 

.WORD 


CJERHRD 
467 
WRTM3G 
SFIMSG 


CKLOOP 




|(.00P IF SELECTED 


TRAP 


C$CLP1 


MOV 


FREE,T24RB 


(STARTING WRITE BUFFER 


ADDRESS 





24* 



J ILLEGAL MODE DATA.ACK COMMAND 

; 

I ILLEGAL MODE DATA.ACK COMMAND 
I SET UP R4 WITH PACKET ADDRESS 
jSET UP RECORD SIZE IN PACKET 
(ISSUE COMMAND 

;UAIT FOR SSR!BIT1!BIT2 TO SET 
(GET TSSR CONTENTS 
I SET UP EXPECTED 
,ARE THEY EQUAL 
iBR. IF OK 
I BUMP COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 
;LOOP IF SELECTED 

TRAP 



MOV 


dl04001,T24PK3 


MOV 


0T24PK3.R4 


MOV 


*256.,T24SZ 


MOV 


R4,TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


*SSR!SC!BIT1!BIT2.R2 


CMP 


R1.R2 


6EQ 


75$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T24WDF,PKTSSR 



75i 



CKLOOP 



CJERHRD 
468 
T24W0F 
PKTSSR 

CJCLPl 



.*4 



iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 
i 

I GET MESSAGE BUFFER 

(SET UP EXPECTED 

I SET THE ILC BIT IN EXPECTED 

(ARE THEY EQUAL 

I BR. IF EQUAL (ALL IS WELL) 

I BUMP COUNT 

iTHE ILC BIT WAS NOT SET IN XSTO 

TRAP C$ERHRD 
. WORD 469 
.WORD T24L0Q 

.wof;D expREc 



MOV 


T24BFR»6 Rl 


MOV 


R1,R2 


BIS 


#6IT9.R2 


CMP 


RI.R2 


BEQ 


180$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T24L0Q. EXPREC 



180$ 



CKLOOP 
tNDSUB 



TRAP CJCLPl 
]>>>>>>>>>>>% END SUBTEST >>>>>>>v>^>> 

L 10064: 



J12 
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TEST 4: BASIC READ DATA (TORWARD AND REVERSE) 



SEQ 152 



042050 104403 
3304 042052 02372/ 
3505 042060 105402 

3306 042062 004737 

3307 042066 
3309 

3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3517 
3318 
3319 
3320 

3321 042066 
042066 
042066 104402 

3322 042070 004737 

3323 042074 004737 

3324 042100 004737 
3325 

3326 

3327 

3328 

3529 

3330 

3331 

3532 042104 004737 

3333 042110 5 03407 

3534 042112 005237 

3338 042116 010001 

3339 042120 
042120 104455 
042122 000726 
042124 005642' 
042126 011734' 

3340 042150 

3341 042130 013737 

3342 042136 012704 
3343 

3544 

5545 

3346 

3347 

3548 

3549 

5550 042142 004757 

3551 042146 103407 

3352 042150 005237 

3556 042154 010001 

3357 042156 

042156 104456 
042160 000727 



002212' 00001/ 
017104' 



046454' 
046320' 
046412' 



015674' 
002212' 



002172 
043630 



010562' 
002212' 



043650 



CMP FATFLG.#15. 

BLO 999$ 

JSR PCCKDROP 



999$! 

i * 

TEST 4. SUBTEST 11 

VERIFIES THAT .a-LEGAL BUFFER ADDRESSES CAUSE A 
FUNCTION REJECT TERMINATION WITH ILLEGAL ADDRESS 
(ILA) ERROR BIT SET, 



TRAP 
(IS ERROR COUNT AT 25 
;8R. IF LESS THAN 25 
iTRY TO DROP THE UNIT 



CJESUB 



BGNSUB 



JSR 
JSR 
JSR 



PC,T24RT-> 

PC,T24REST 

PC,T24RT2 



!>>>>>>>>>>>> BEGIN SUBTEST •»>>>>>>>>>>> 

T4.11: 

TRAP C$BSUB 
I SET COMMAND PACKET UP CLEAR 
J SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



1 ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
f 



JSR 


PC.SOFINIT 


jDO INITIALIZE ON CONTROLLER 




BCS 


20$ 


lOR IF INIT UAS OK 




INC 


FATFLG 


jBUrtP COUNT 




MOV 


RO.Rl 


tCONTENIS OF TSSR REGISTER 




ERROF 


ERRNO.SFItRR.SFIMSG 


; FATAL ERROR TSSR UAS NOT OK 








TRAP 


C$eROF 






.UORO 


4 70 






.WORD 


Sf lERR 






.WORD 


SFIMSG 



20$: 



MOV UNITN.T24DSW 
MOV «T24PACKET,R4 



iSCT UP DRIVE NUMBER 

I SUBROUTINE NEEDS PACKET ADDRESS 



iWRITE CHARACTERISTICS COMf NO CCALL TO WRTCHR:) 
1 



JSR PC.WRTCHR 

BCS 24$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG . SFIMSG 



I ISSUE WRITE CHARACTERISTICS 
»BR. IF COMMAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS Of TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
,WOHD 



C$fcRHRD 
471 



K12 



TSV7 ■ HARDWARE TESTS 1-8 MACRO MU13 Ql-FEB-84 17:54 

TEST 4: BASIC RF.AD DATA (FORWARD AND REVERSE) 



042162 


005046' 




042164 


011734' 




3358 042166 






042166 


104406 




3359 042170 


013737 


003114' 043762' 


3360 042176 


012737 


177700 043764' 


3561 






3362 






3363 






3364 






3365 






3366 






3367 






3368 042204 


012737 


140001 043760' 


3369 042^12 


012704 


043760' 


3370 042216 


012737 


OOO^OO 043766' 


3371 042224 


010465 


000000 


3372 042230 


004737 


016150' 


3373 042234 


016501 


000002 


3374 042240 


012702 


100206 


3375 042244 


020102 




3376 042246 


001406 




3377 042250 


005237 


00221ii' 


3381 042254 






042254 


104456 




042256 


000750 




042260 


044132' 




042262 


011746' 




3382 042264 






042264 


104406 




3383 






3384 






3585 






3386 






3387 






3388 






3389 






3390 042266 


013701 


043660' 


3591 042272 


010102 




3392 042274 


052702 


000400 


3393 042300 


020102 




3394 042302 


001406 




3395 042304 


005237 


002212' 


3399 042310 






042310 


104456 




042312 


000751 




042314 


044362' 




042316 


015374' 




3400 042320 






042320 


104406 




3401 042322 






042322 






042322 


104403 




3402 042324 


023727 


002212' 000017 


3405 042332 


103402 




3404 042334 


004737 


017104' 


3405 042340 







24$: 



CKLOOP 

MOV 
MOV 



FREE,T24RB 
*177700,T24RB»2 



.WORD WRTHSG 

.WORD SFIMSG 

(LOOP IF SELECTED 

TRAP CJCLPl 

i ILLEGAL STARTING READ BUFKER ADDRESS 

I CREATE ILLEGAL ADDRESS 



t LEGAL MODE. ACK.CVC-1. READ COMMAND 
t 

I LEGAL MODE, ACK.CVC-1, READ COMMAND 

I SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

iWAIT FOR SSR!BIT1!I3IT2 TO SET 

iGET T5SR CONTENTS 

I SET UP EXPECTED 

(ARE THEY EQUAL 

iB»M IF OK 

iBUhP COUNT 

;TSSR INCORRECT AFTER READ DATA 

TRAP CIERHRD 

.WORD 472 
.WORD T24WDG 
.WORD PKTSSR 
75$: CKLOOP jLOOP IF SELECTED 

TRAP CJCLPl 



hOV 


<>140001.T24PK3 


MOV 


#T24PK3,R4 


MOV 


*256..T24SZ 


MOV 


R4.TSO0(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


#SSP!SC!BITl!BIT2.rt2 


CMP 


R1.R2 


BEQ 


75$ 


INC 


FATFLG 



ERRHRD ERRN0.T24WDCi.."KTSSR 



iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 
I 

iGET MESSAGE BUFFER 

jSET UP EXPECTED 

I SET THE ILA BIT IN EXPECTED 

jARE THEY EQUAL 

iSR, IF EQUAL (ALL IS WELL) 

J BUMP COUNT 

(THE ILA BIT WAS NOT SET IN XSTO 

TRAP CiERHRU 

.WORD 473 
.WORD T24ILA 
.WORD EXPRFC 



MOV 


T24BFR*6.R1 


MOV 


R1,R2 


BIS 


*6ITe,R2 


CMP 


R1.R2 


BEQ 


180» 


INC 


FATFLG 



180$ 



ERRHRD ERRNO . T24 IL A . EXPREC 

CKLOOP 
ENDSUB 



999$ 



CMP FATFLG, dl5. 

BLO 999$ 

JSR PC.CKDRUP 



TRAP C$CIP1 

!>>>>>>>>>>>> END SU8TFST > >^> ■»>>>>> ^^ 

L 10065: 

TRAP C$ESLtB 

lis ERROR COUNT AT 25 
iBR, IF LESS THAN .?5 
(TRY TO DROP THE UNIT 



SEQ 153 



L12 



TSV7 - HARDWARE TESTS 1-9 MACRO M1113 01-FEB-8a 1V:54 
TEST 4: BASIC READ DAiA (FORWARD AND REVERSE) 



SEQ 154 



3406 
3407 
340a 
34 0*"^ 
3410 
3411 
3412 
3413 
3414 
3415 
3416 

3417 042340 
O4L^340 
042340 

3418 042342 
34 IQ 042346 

3420 042350 

3421 042354 

3422 042360 

3423 042364 
3424 

3425 
3426 
3427 
3428 
3429 
3430 

3431 042370 

3432 042374 

3433 042376 

3437 042402 

3438 042404 
042404 
042406 
042410 
042412 

3439 042414 

3440 042414 

3441 042422 
3442 

3443 
3444 
3445 
3446 
3447 
3448 

3449 042426 

3450 042432 

3451 042434 

3455 042440 

3456 042442 
042442 
042444 
042446 
042450 

3457 042452 
042452 



104402 
005737 
001002 
000137 
004737 
004737 
004737 



004 73/ 
103407 
005237 
010001 

104455 
000732 
003642 
011734 

013737 
012704 



0O4 737 
103407 
005237 
010001 

104456 
000733 
005046 
011734 

104406 



003126' 

042606' 
046454 • 
046320' 
046412* 



015674' 
002212' 



002172' 
043630' 



010562 
002212 



043650' 



1 ♦ 

iTEST 4. SUBTEST 12 

1 VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
iNONEXISTANT MEMORY CAUSES RlCOVERABLE ERROR 
;THRMINATION CTC-4), WITH THE NXM BIT SET IN THE TSSR. AND 
(THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY. 
i - 



BGNSUB 



10$ 



TST 


NXMFLG 


BNE 


10* 


JMP 


801 


JSR 


PC.T24RT3 


JSR 


PC,T24REST 


JSR 


PC,T24RT2 



!>>•,>>>>>>>>> BEGIN SUBTEST >>>>>>>>> i>> 

T4.12: 

Ti^AP CJBSUB 
1 00 WE HAVE IT? 
I BR. IF ENOUGH 
iSKIP THIS TEST IF NOT 
I SET COMMAND PACKET UP CLEAR 
(SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



(ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



20$ 



JSR 


PC»SOFINIT 


jDO INITIALIZE ON CONTROLLER 




BC5 


20$ 


(BR IF INIT WAS OK 




INC 


FATFLG 


(BUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERrt.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


CiEROF 






.WORD 


474 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV UNITN.T24DSU 
MOV 0T24PACKET,R4 



(SET UP DRIVE NUMBER 
(SUBROUTINE NEEDS PACKET ADDRESS 



!WRITt CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
( 

(ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 
(BUMP COUNT 

(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
24 $i CKLOOP (LOOP IF SELECTED 

TRAP 



J5R 


PC.WRTCHR 


BCS 


24$ 


INC 


FATFLG 


MOV 


RO.Rl 


ERRHRD 


ERRNO.WRTMSG, SFIMSG 



C$ERHRD 
4 75 
WRTMSG 

SFIMSG 

C$CLP1 



M12 



TSV7 - HARDWARE 


reES^§a^ 


-8 


MACRO ^ 


TEST 4; 


BASIC 


A (FORWARD AND R 


3456 


042454 


012 '01 


160000 




3459 


042460 


012V02 


177776 




3460 


042464 


004737 


016276' 




34 SI 


042470 


103046 






3462 


042472 


010137 


003130' 




3463 


042476 


013737 


003130' 


043762' 


3464 


042504 


005037 


043764' 




3465 










3466 










3467 










3466 










3469 










3470 










3471 










3472 


042510 


012737 


140001 


043760' 


3473 


042516 


012704 


043760' 




3474 


042522 


012737 


000400 


043766' 


3475 


042530 


010465 


000000 




3476 


042534 


004737 


016150' 




3477 


042540 


016501 


000002 




3478 


042544 


012702 


104210 




3479 


042550 


020102 






3460 


0'»2552 


001414 






3481 


042554 


005237 


043764' 




3462 


042560 


023727 


043764' 


000004 


3483 


042566 


001350 






3484 


042570 


005237 


002212' 




5486 


042574 
042574 
042576 
042600 
042602 


104456 
000734 
044221' 
011746' 






3489 


042604 
042604 


104406 






3490 


042606 








3491 


042606 
042606 
042606 


104403 






3492 


042610 


023727 


002212' 


000017 


3493 


042616 


103402 






3494 


042620 


004737 


017104' 




3495 


042624 








3496 










3497 










3498 










3499 










3500 










3501 










3502 










3503 










3504 










3505 










3506 










350 7 










35C8 










3509 


042624 
042624 









tSE 



1-FF.B- 


84 


17:54 


MOV 




# 160000. Rl 


MOV 




<?177776,R2 


JSR 




PC.XNXM 


BCC 




80$ 


MOV 




Rl.NXMLO 


MOV 




NXML0,T24RB 


CLR 




T24RB*2 



SEQ 155 



iNXM LOW ADDRESS START 

iLIMIT CHECK FOR NXM (HIGHEST) 

(LOOK FOR NXM ADDRESS 

tBR. IF NON FOUND 

iSET ADDRESS UP FOR TEST 

I SET TO NXM MEMORY ADDRESS 

I SET TO 16 BITS ADDRESSING 

iREAD. ACK. CVC-1, COMMAND 
i 

30$; MOV #140001, T24PK3 (READ. ACK, CVC-1, COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

(SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

(WAIT FOR SSR!BIT1!BIT2 TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

I ARE THEY EQUAL 

iBR, IF OK 

J BUMP TO NEXT ADDRESSING RANGE 

I CHECK FOR OVERFLOW 

jBR, IF STILL IN 16-18 BIT RANGE 

I BUMP COUNT 

iTSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 476 
.WORD T24NXM 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP C$CLP1 

. >^!>i>%:»>i>>> END SUBTEST >>*>>>>>>>>> 

L 10066: 

TRAP CIESUB 
lis ERROR COUNT AT 25 
(BR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



MOV 


#140001, T24PK3 


MOV 


*T24PK3,R4 


MOV 


*256,.T24SZ 


MOV 


R4,TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR!SC!NXM!BIT3,R2 


CMP 


R1.R2 


BEQ 


75$ 


INC 


T24RB»2 


CMP 


T24RB*2,<>4 


BNE 


30$ 


INC 


FATFLG 



ERRHRO ERRN0,T24NXM.PKTSSR 



75$: 


CKLOOP 




80$! 


ENOSUO 




999$! 


CMP 
BLO 
JSR 


FATFLG, 015. 

999$ 

PC.CKDROP 


I TEST 


4. SUBTEST 13 



VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE 
TAPE IS AT BOT PESL^LTS IN FUNCTION REJECT TERMINATION 
UTTH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET 



BGNSUe 



;>>>>>>>>>>>> BEGIN SUBTEST *>>>>>>>>>>> 

T4.13: 



N12 



TSV7 - HARDWARE TESTS 18 MACRO M1113 Ol-FEB-84 17J54 
TEST 4: BASIC READ DATA CFORWARD AND REVERSE) 



SEQ 156 



042624 

3510 042626 

3511 042632 

3512 042636 
3513 

3514 
3515 
3516 
3517 
3518 
3519 
3520 042642 



104402 
004737 
004737 
004737 



004737 
.103407 
005237 
010001 



046454' 
046320' 
046412' 



3521 042646 

3522 042650 

3526 042654 

3527 042656 
042656 104455 
042660 000735 
042662 003642' 
042664 011734- 

3528 042666 

3529 042666 013737 

3530 042674 012704 
3531 

3532 
3533 
3534 
3535 
3536 
3537 

3538 042700 004757 

3539 042704 103407 

3540 04^/06 005237 

3544 042712 010001 

3545 042714 
042714 104456 
042716 000736 
042720 005046' 
042722 011734' 

3546 042724 
042724 10440*^ 

354 7 
3548 
3549 
3550 
3551 
3552 
3553 

3554 042726 004737 

3555 042732 004737 

3556 042736 103407 
355/ 042740 010001 
35o8 042752 005237 
3562 042746 

042746 104456 
042/50 000737 
04d752 045116' 



015674' 
002212' 



002172' 
043630' 



010562' 
002212' 



010714' 
016236' 



002212' 



043650 



JSR PC,T.?4RT3 
JSR PC.T24REST 
JSR PC,T2'4RT2 



TRAP 
(SET COMMAND PACKET UP CLEAR 
»SET COMMAND PACKET 
J SET UP OTHER CCIMANO PACKET 



C$BSUB 



J ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
I 



20$: 



JSR 


PC.SOFINIT 


;D0 INITIALIZE ON CONTROLLER 




BCS 


20$ 


J BR IF INIT WAlS OK 




INC 


FATFLG 


(BUMP COUNT 




MOV 


RO.Rl 


tCONTilNTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


t FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$EROF 






.WORD 


477 






.WORD 


SFIERR 






.WORD 


SFXMSG 



MOV UNITN,T24DSW 
MOV #T24PACKET,R4 



:SET UP DRIVE NUMBER 

i SUBROUTINE NEEDS PACKET ADDREoS 



i WRITE CHARACTERISTICS COMMAND (CALL TO VJRTCHR) 
* 

; ISSUE WRITE CHARACTERISTICS 
(BR, IF COMMAND ISSUED OK 
I BUMP COUNT 

jSAVE CONTENTS OF TSSR 
J WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
;LOOP IF SELECTED 

TRAP 



JSR 


PC.URTCHR 


BCS 


24$ 


INC 


FATFLG 


MOV 


RO.Rl 


ERRHRD 


ERRNO . WRTMSG , SFIMSG 



24$ 



CKLOOP 



C$ERhRD 
478 

WRTMSG 
SFIMSG 

C$CLP1 



!l5 3UE REWIND COMMAND TO SELECTED TAPE DRIVE 
J 

(CALL TAPE REWIND COMMAND 

I SEE HOW TSSR IS 

iBR, IF NO PRCaLEM 

(SAVE TSSR 

iBtfMP COUNT 

(REWIND NOT ACCEPTED 

TRAP 

.WORD 

.WORD 



JSR 


PC, REWIND 


JSR 


PC.CHKTSSR 


BCS 


30$ 


MOV 


RO.Rl 


INC 


FATFLG 



ERRHRD ERRNO, T24RWN,PKTSSR 



CJERHRD 

479 

T24RWN 



B13 



TSV7 - HAROWARt TtSfS 1-6 HACflO M1113 Ol-FEB-ft4 17i54 
TEST 4: BASIC READ DATA (rORWARO A^40 REVERSE) 



3563 

3564 
3565 
5566 
3567 
3568 
3569 
3570 
3571 
3572 
5573 
3574 
3575 
5576 
5577 
557fl 
3579 
3560 
35»1 
3562 
3563 
3587 



358a 

5589 
5590 
3591 
3592 
3595 
5594 
3595 
5596 
5597 
3598 
3599 
5600 
5601 
5605 



5606 

5o07 



5608 
3609 
5610 
36U 



042 754 
042756 
042756 
042760 
0^2764 



042772 
045000 
043004 
045004 
045010 
045014 
043020 
04 5024 
045030 
043052 
045054 
045040 
043040 
045042 
045044 
045046 
04 5050 
043050 



04 5052 
04 5056 
04 5060 
043064 
045066 
045070 
04 5074 
045074 
04 5076 
045100 
04 5102 
045104 
045104 
045106 
045106 
045106 
045110 
045116 
045120 
045124 



011746' 

104406 

012705 000400 

015757 005114' 043762 



301) 



CKLOOP 

MOV 
MOV 



•256.. R5 

FREE.T24RB 



iLOQP ir SELECTED 



(RECORD SIZE 

iSTARTING Uf^ITE BUFFER ADDRESS 







SEQ 157 


.WORD 


PKTSSR 




TRAP 


CICLPI 





IflEAD REVERSE DATA.ACK COMMAND 
I 



012737 100401 0437*^0' 
012704 045760' 



010557 
010465 
004757 
016501 
012702 
020102 
001406 
005257 

104456 
000740 
044561 
011746 

104406 



045766* 

OOOOOO 

016150' 

000002 

100206 



002212' 



65$ I 



MOV 


0100401 »T24PK3 


MOV 


♦T24PK5,R4 


MOV 


R5,T24S7 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


#SSRISCIBIT11BIT2,R2 


CMP 


R1.R2 


BEQ 


751 


INC 


FATFLG 


ERRHRD 


ERRN0,T24WDE, PKTSSR 



75»: 



CKLOOP 



(READ REVERSE DATA.ACK COMMAND 
iSET UP R4 WITH PACKET ADDRESS 

(SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

iWAIT FOR 5SR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

jARE THEY EQUAL 

iBR. IF OK 

iBUMP COUNT 

I TSSR INCORRECT AfTER READ DATA 

TRAP CtERHRD 
.WORD 480 
.WORD T 24 WOE 
.WORD PKTSSR 

iLOOP IF SCLECTEO 

TRAP CICLPI 



045660 
002000 



0022X2' 



015701 
010102 
052702 
020102 
001406 
005257 

104456 
000741 
044010' 
015574' 

10440*' 



104405 

025727 002212' 000017 

105402 

004737 017104* 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (X5T0) 

iGET MESSAGE BUFFER 

iSET UP EXPECTED 

iSET THE nEF BIT IN EXPECTED 

I ARE rHE> EQUAL 

iBR. IF EQUAL (ALl IS WELD 

I BUMP CQWl 

I THE RLL BIT WAS NOT SET IN XSTO 

TRAP CIERHRD 

.WORD 481 
.WORD T24NEF 
.WORD tXPREC 



MOV 


T24BFR*6.R1 


MOV 


R1.R2 


BIS 


#flITlO.R2 


CMP 


R1,R2 


BEQ 


180* 


INC 


FATFLG 



1801: 



ERRHRD ERRN0,T24NeF,EXPRtC 

CKIOOP 
ENDSUB 



W^V^ 



Cf1*» 
BlO 
J5R 



FATFlG,#15, 
9991 

PCiCKDROP 



TRMP C«CLPl 

J >5i>*>>* >» > i END SL6rEST >>\>>>>>v>>> 

L10O67: 

TRAP cJEuoe 

lis ERROR CO<^T AT ,>5 
iBR, l> LtSS THAN C^ 
4 TRY TO DROP THE UNIT 



]m Anm^Rm'hh\fommB'm m^M'-'^"^-^' 



C13 



l7iS4 



SEQ 158 



5bU^ 
3615 
3614 
3615 
361t 
3617 
:S618 
3619 

3621 
3622 
3fc?3 
3624 
3625 



3626 
362/ 
v362fl 
3629 
3630 
3631 
3632 
3635 
3634 
3635 
3656 
3657 
3636 
3642 
3643 



3644 
3645 
3646 
3647 
3648 
5649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3660 
3661 



3662 
3663 



045124 
043124 
043124 
043126 
043132 
045136 



043200 
045204 
045206 
045212 
043214 
04 5214 
043216 
045220 
0452^2 
045224 
045224 



TEST 4. SUBTEST 14 

VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE 
TAPE IS POSITIONED BEFORE THE FIRST RECORD OH TAPE 
(BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT. 



BGNSU6 



104402 

004737 046454' 

004737 046320' 

004737 046412- 



JSR 


PC.T24RT3 


JSR 


PC,T24REST 


JSR 


PC.T24R12 



!>>>>>>>>>>>> BEGIK SUBTEST >>>>>>>>>>>> 

T4.14: 

TRAP c issue 

iSET COMMAND PACKET UP CLEAR 

J SET COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 









1 «4i***4 

1 ISSUE 
1 

* A A A A A 1 


CONTROLLER "SOFT" INITIALIZE 


HA***************************** 

CARRr BIT CLEAR IF ERROR 




04^142 


004757 


015674' 


1 S W V • 4 


JSR 


PCSOFINIT 


iDO INITIALIZE ON CONTROILER 




045146 


105407 






BCS 


20* 


iBR IF INIT WAS OK 




045150 


005257 


002212' 




INC 


FATFLl. 


iBUMP COUNT 




043154 


010001 






MOV 


RO.Rl 


iCONTENTS OF TS5R REGISTER 




043156 








ERRDF 


ERRNO.SFIERR.SFIMSG 


1 FATAL ERROR TSSR WAS NOT OK 




043156 


104455 










TRAP 


CIERDF 


04 3160 


000742 










.WOPD 


462 


045162 


005642' 










.WORD 


SFIERR 


045164 


011734' 










.WORD 


SFIMSG 


045166 






20»i 










043166 


015737 


002172' 043650' 




MOV 


UNITN,T240SW 


iSET UP DRIVE NUMBER 




043174 


012704 


043630* 




MOV 


♦T24PACKET.R4 


1 SUBROUTINE NEEDS PACKET ADDRESS 








l««*****t******A««******«*********************«.4*4t4«i««««*«*««*4t**«« 










(WRITE 

1 

1 ***** 


CHARACTERISTICS COMMAND (CALL 


TO WRTCHR) 





0O4737 010562' 

103407 

005237 002212' 

010001 

104456 

000743 
005046' 

011734' 

104406 



a4M 



JSR PC.WPTCHR 

BCS 24* 

INC KATFLG 

MOV RO.Rl 

ERRHRD ERRNQ^WRTMSG, SFIMSG 



CKLQQP 



(ISSUE WRITE CHARACTERISTICS 

iBR. IF COMMAND ISSUED OK 

iBUMP COUNT 

iSAVE CONTENTS OF rsSR 

iWRITE CHARACTERISTISC FARED 

TRAP CIERHRD 
.WORD 485 
.WORD WRTMSU 
.WORD SFIMSG 

iLQOR IF SiLtCTEO 

TRAP CJCLPl 



D13 



TSV7 - HARDWARE TESTS 18 MACRO MU13 01-rEB-a4 17;54 
TEST 4: BASIC i^EAD DATA (FORWARD AND REVERSE) 



SEQ 159 



?664 








3665 








3f66 








3667 








3668 








3669 








3670 


043226 


004757 


010714' 


3671 


043232 


004757 


016236' 


5672 


043256 


103407 




3673 


043240 


010001 




3674 


043242 


005^37 


002212' 


3678 


043246 








045246 


104456 






045250 


000744 






043252 


045116' 






045254 


011746' 




3679 


04525^ 








04i256 


104406 




3680 


045260 


012703 


000400 


3681 


0432fc4 


013737 


003114' 


3682 








3683 








3684 








3685 








3686 








3687 








5680 








5689 


043272 


012757 


140005 


3690 


045500 


012704 


045760' 


3691 


045504 






3692 


045304 


010557 


045766' 


3693 


045510 


010465 


000000 


3694 


043314 


004737 


016150' 


3695 


045520 


016501 


000002 


3696 


045524 


012702 


000200 


3697 


045550 


020102 




3698 


045352 


001406 




3699 


043354 


005237 


002212' 


3703 


045340 








045340 


104456 






043542 


000745 






045344 


005105' 






045546 


011746' 




3704 


045550 








04*550 


104406 




3705 


>552 


012703 


000400 


3 706 


3356 


015757 


003114' 


3707 








3708 








3709 








3710 








:';711 








3712 








3715 








3714 


045564 


012737 


100401 


3715 


043372 


012704 


04 3760 


3716 


045376 


010337 


043766' 



043762 



043760 



043762 



043760 



I ************ **A««***4«*«««**«**«4>««4i«««***^*4>4>4>'04>'f4>4>*4>«A4i«*4i4i**«4i 

I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

1 

)*********•*******•************«*****«****«*•*«*«****************** 



30$ 



JSR 


PC. REWIND 




iCALL TAPE REWIND COMMAND 




JSR 


PC.CHKTSSR 




iSEE HOW TSSR IS 




BCS 


501 




iBR. IF NO PROBLEM 




MOV 


RO.Rl 




jSAVE TSSR 




INC 


FATFLG 




(BUMP COUNT 




ERRHRD 


ERRN0,T24RWN, 


.PKTSSR 


(REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 


CIERHRD 
484 

T24RWN 
PKTSSR 



CKLOOP 

MOV 
MOV 



(LOOP IF SELECTED 



0256., R3 
FREE,T24RB 



TRAP 



I RECORD SIZE 

J STARTING WRITE BUFFER ADDRESS 



I *******************************«****4>**************«*4*** ********* 

iWRITE DATA.ACK.CVC-1 COMMAND 
I 

I ***********«««**********4*****«*««* A A************ ***************** 



65« 



CtCLPl 



MOV 


*140005.T24PK5 


(WRITE DATA.ACK,CVC-l 


COMMAND 




MOV 


*T24PK3.R4 


(SET UP R4 WITH PACKET 


ADDRESS 




'.oV 


R5,T24SZ 


(SET UP RECORD SIZE IN 


1 PACKET 




MOV 


R4,TS0B(R5) 


(ISSUE COMMAND 






JSR 


PC.UAITF 


(WAIT FOR SSR TO SET 






MOV 


TSSR(R5).Rl 


(GET TSSR CONTENTS 






MOV 


#SSR.R2 


(SET UP EXPECTED 






CMP 


R\.R2 


(ARE THEY EQUAL 






BEQ 


751 


(BR, IF OK 






INC 


FATFLG 


(BUMP COUNT 






ERRHRD 


ERRNO.WRTERR. PKTSSR 


(TSSR INCORRECT AFTER 


READ Dt*TA 
TRAP 
.WORD 
.WORD 
.WORD 


CIERHRD 
48*^ 
WKTfcRR 
PKTSSR 


CKLOOP 




(LOOP IF SELECTED 


T'^AP 


CJCLPl 


MOV 


*256. ,R3 


(RECORD SIZE 






MOV 


FREE.T24RB 


(STARTING READ BUFFER 


ADDRESS 





751 



I ********************* ************«***********«^*******«*********** 



(READ REVERSE DATA.ACK COMMAND 



MOV *10040l.T24PK3 
165$: MOV <»'T24PK5.R4 
MOV R3.T24b^ 



(READ REVERSE DATA.ACK CUMMANO 
(SET UP R4 WITH PACKET ADDRESS 
(SET UP RECORD SIZE IN PACKET 



E13 



TSV7 - HARDWARE 


TESTS 1 


-8 MACRO t 


TEST 4: 


BASIC 1 


READ DATA (TORWARD AND f 


3717 


043402 


010465 


000000 


3718 


043406 


004737 


016150' 


3719 


043412 


016501 


000002 


3720 


043416 


012702 


000200 


3721 


043422 


020102 




3722 


043424 


001406 




3723 


043426 


005237 


002212' 


3727 


043432 








043432 


104456 






043434 


000746 






043436 


046164- 






043440 


011746' 




3728 


043442 








043442 


104406 




3729 


043444 


012703 


000400 


3730 


043450 


013737 


003114' 043762 


3731 








3732 








3733 








3734 








3735 








3736 








3737 








3738 


043456 


012737 


100401 043760 


3739 


043464 


012704 


043760' 


3740 


043470 


010337 


043766' 


3741 


043474 


010465 


000000 


3742 


04i500 


004737 


016150' 


3743 


045504 


016501 


000002 


3744 


043510 


012702 


100204 


3745 


043514 


020102 




3746 


043516 


001406 




3747 


043520 


005237 


002212' 


3751 


043524 








043524 


104456 






043526 


000747 






043530 


046164' 






043532 


011746' 




3752 


043534 








043534 


104406 




3753 


043556 


013701 


043666' 


3754 


043542 


010102 




3755 


043544 


052702 


000001 


3756 


043550 


020102 




3757 


0435^2 


001406 




3758 


043554 


005237 


002212' 


3762 


043560 








043560 


104456 






043562 


000750 






043564 


044062' 






043566 


015574' 




3763 


043570 








043570 


104406 




3764 


043572 
043572 








043572 


1C4403 




3765 


043574 


023727 


002212' 000017 



M1113 01-FEB- 


84 


17:54 


REVERSE) 






MOV 




R4.TSDB(R5) 


JSR 




PC.WAITF 


MOV 




TSSR(R5),R1 


MOV 




#SSR.R2 


CMP 




R1,R2 


BEQ 




170$ 


INC 




FATFLG 



SEQ 160 



ERRHRD ERRNO , T24TRL . PKTSSR 



(ISSUE COMMAND 

I WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

jSET UP EXPECTED 

(ARE THEY EQUAL 

iBR. IF OK 

I BUMP COUNT 

(TSSR INCORRECT AFTER READ OATh 



170$ 



CKLOOP 

MOV 
MOV 



0256 . , R3 
FREE,T24RB 



TRAP 


C»ERHRD 


.WORD 


486 


.WORD 


T24TRL 


.WORD 


PKTSSR 


iLOOP IF SELECTED 




TRAP 


CJCLPl 


J RECORD SIZE 




(STARTING READ BUFFER ADDRESS 





jREAD REVERSE DATA.ACK COMMAND 
195$; 



200$ 



MOV 


^*iO040l.T24PK3 


(READ REVERSE DATA.ACK COMMAND 




MOV 


0T24PK3,R4 




(SET UP H4 WITH PACKET ADDRESS 




MOV 


R3.T24SZ 




iSET LP RECORD SIZE IN PACKET 




MOV 


R4.TSDB(R5) 




1 ISSUE COMMAND 




JSR 


PC.WAITF 




(WAIT FOR SSR TO SET 




MOV 


T5SR(R5).R1 




,GET TSSR CONTENTS 




MOV 


*SSR!SC!BiT2, 


,R2 


iSET \P EXPECTED 




CMP 


R1,R2 




I ARE THEY EQUAL 




8EQ 


200$ 




I BR. IF OK 




INC 


FATFLG 




iBUMP COUNT 




ERRHRD 


ERRNO, T24rRL, 


.PKTSSR 


I TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 


CIERHRD 
487 
T24TRL 
PKTSSR 


CKLOOP 






iLOOP IF SELECTED 

TRAP 


C$CLPl 


MOV 


T24BFR»14,R1 




(GET MESSAGE BUFFER CXST3) 




MOV 


R1.R2 




iSET UP EXPECTED 




BIS 


<«IT0,R2 




J SET THE RIB BIT IN EXPECTED 




CMP 


R1.R2 




lARE THEY EQUAL 




BEQ 


210$ 




jBR. IF EQUAL (ALL IS WELL) 




INC 


FATFLG 




iBUMP COUNT 




ERRHRD 


ERRNO, T24L0R 


.EXPREC 


(THE RIB BIT WAS NOT SET IN XST 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
468 

T24L0R 
EXPREC 



210$ 



CKLOOP 
EN0SU6 

CMP 



FATFLG. ftl5. 



TRAP C$ClP1 

I >>>>v^v>>>>> tND SUBTEST •»> ^>-> •>»•»>> ^ > 

L 10070: 

TRAP CJESUe 
lis ERROR COUNT AT 25 



TSV7 - HARDWARE TESTS 1-8 MACRO Mill? 01-^68-84 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



F13 



3766 043602 


103402 


3767 043604 


004737 017104' 


3768 043610 




3769 




3770 




3771 




3772 043610 


004737 016360' 


3773 043614 


103002 


3774 043616 


000137 034312' 


3775 043622 




3776 043622 




043622 


104432 


043624 


002660 


3777 




3778 




3779 




3780 




3782 043626 




3784 043630 




3785 043630 


100204 


3786 043632 


043640' 


3787 043634 


000000 


3768 043636 


000012 


3789 043640 




3790 043640 


043652' 


3791 043642 


000000 


3792 043644 


000024 


3793 043646 


000000 


3794 043650 


000000 


3795 043652 




3796 




3797 




3798 




:i800 043734 




3802 043740 




3803 043740 


100206 


3804 043742 


043770' 


3805 043744 


000000 


3806 043746 


000006 


3807 




3809 043750 




3811 043760 




3812 043760 


100205 


3813 043762 




3814 043762 


003114' 


3815 043764 


000000 


3816 043766 


000000 


3817 




3818 




3819 




3820 




3821 043770 




3822 043770 


010 


3823 043771 


200 


3824 043772 


000000 


3825 043774 


000000 


3826 





999$: 

I 

t 



163$: 



i * 



BLO 
JSR 



JSR 
BCC 
JMP 

EXI 



17:54 



999* 

PC.CKDROP 



PCTSTLOOP 

1631 

T24L00P 

TST 



SEQ 161 



J LOCAL 


STORAGE 


rOfl THIS TEST 


1 - 


.BLKB 


10-<. -TSV267> 


T24PACKET: 






.WORD 


100204 




.WORD 


T24DATA 




.WORD 







.WORD 


10. 


T24DATA 


; 






.WORD 


T24BrR 




.WORD 







.WORD 


20. 




.WORD 





T240SW: 


.WORD 





T24BrR: 


.BLKU 


25. 


IwRITE 


SUBSYSTEM MEMORY COMMAND PACKET 


t 


,BLKB 


10-<.-TSV2£7> 


T24PK2: 








.WORD 


100206 




.WORD 


T24BF2 




.WORD 







.WORD 


b. 




.BLKB 


10-<. -TSV2£7> 


T24PK3! 








.WORD 


100205 


T24RB: 






T24UB: 


.WORD 


FREE 




.WORD 





T24SZ: 


.WORD 





1 


.EVEN 




I 

T24BF2: 






T24B50: 


.BYTE 


10 


T24BS1: 


.BYTE 


200 


T24S2: 


.WORD 





T24S3! 


.WORD 






iBR, IF LESS THAN 25 
(TRY TO DROP THE UNIT 



iDO WE NEED TO ITERATE TEST 
jBR, IF NO LOOP REQUIRED 
(EXECUTE AGAIN 



lALL DONE THIS TEST 



TRAP 
.WORD 



CIEXIT 
L10052-. 



I COMMAND PACKET FOR TEST 

i WRITE CHARACTERISTICS COMMAND. WITH IE, ACK 

jADDRESS OF CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 
(CHARACTERISTICS DATA BLOCK 
(ADDRESS OF MtSSAGE BUFFER 

(LENGTH OF MESSAGE BUFFER 

(DRIVE SELECTION BITS 2-0 
(MESSAGE BUFFER 



(WRITE SUB SYS MEM COMMAND, IE AND ACK 
(ADDRESS OF SELECT BLOCK OATA 

(SIZE OF DATA PACKET 



(READ COMMAND. IE AND ACK 
(ADDRESS OF WRITE BUFFER 
(SIZE OF BUFFER (EXTENT) 



(BSELO AREA 
[BSELl AREA 
iSEL 2 AREA 
(DATA AREA 



TSV7 - HARDWARE TESTS 1-6 MACRO M1115 01-FEB-a4 
TEST 4: BASIC READ DATA (FORWARD AN(5 REVERSE) 



G13 



17:54 



SEQ 162 



3827 

3828 

3629 

3830 

3831 

3832 

3833 

3834 

3835 

3836 

3837 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

3846 

3847 

3848 

3849 

3850 

3851 

3852 

3853 

38S4 

3855 

3856 

3857 

3856 

3859 

3860 

3861 

3862 

3863 

3864 

3865 

3866 

3867 

3868 

3869 

3870 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

:i678 

3879 

3880 

3881 

3882 

3883 



.EVEN 
tTAPE MOTION PACKET COMMAND VALUES 



04377S 
044 OOf, 
044002 
044004 
044006 



044010 
044062 
044132 
044221 
044305 
044562 
044446 
044527 
044561 
044633 
044700 
044766 
045043 
045116 
045165 
045240 
0**5305 
045360 
045446 
045517 
045572 
045645 
045732 
046CM 
046076 
046164 
046252 



046320 
046320 
046324 
046330 
046334 
046540 
046342 



100005 
10040'j 
1C2005 
177777 
000000 



116 
122 
124 
124 
124 
111 
111 
122 
124 
124 
104 
122 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
122 
122 
122 
12? 
102 



105 
111 
125 
123 
125 
lb4 
154 
105 
123 
141 
141 
105 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
141 



106 
102 
123 
123 
123 
154 
154 
101 
123 
160 
164 
101 
123 
167 
115 
123 
151 
125 
123 
103 
102 
111 
141 
141 
163 
141 
163 



012701 
012721 
012721 
005021 
012721 



043630' 

100004 

043640' 

000012 



T24RN: 


.WORD 


100005 


T24W0R: 


.WORD 


100405 


T24C0N: 


.WORD 


102005 




.WORD 


177777 


T24DLY! 


.WORD 






iREAD DATA (NEXT) 
iREAD DATA RETRY 
iWRITE CONTINOUS 
I END OF DATA 
J DELAY STORAGE AREA 



»LOCAL TEXT MESSAGES ^"OR TEST 



T24NEF 

T24L0R 

T24WDG 

T24NXM 

T24W0F 

T24ILA 

T24L0Q 

T24SSR 

T24WDE 

T24B0T 

T24DTA 

T24E0T 

T24TM: 

T24RUN 

T24RMC 

T24AM3 

T240FL 

T24WDC 

T24WDC 

T24VCK 

T24BA: 

T24WSS 

T24L0N 

T24L0P 

T24PBP 

T24TRL 

TST24IDI 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



NEF Not S«t Aft«r NGN -EXECUTABLE FUNCTION- 
RIB Not S«t Aft«r READ REVERSE Into BOT' 
TSSR Not Correct After Illeoal Buffer Atidress Bits Set' 
TSSR Not Correct After NXh Mefftory Address In Packet' 
TSSR Not Correct After Illeoal Mode Bits Set' 



To Set ILA Bit 
Set ILC Bit In 



In XSTO 
XSTO' 



Illegal Address Bttat. Failed 

Illegal Mode Bits. Failed To 

READ COMMAND Not Accepted' 

TSSR Not Correct After WRITE DATA Command' 

Tape Not At BOT After REWIND Command' 

Data Written To Tape Not Equal To Data Read From Tape' 

READ DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

TSSR Not Correct After READ COMMAND Reject' 

Rewind (POSITION) Command Not Accepted' 

RAM Error, Correct Date Pattern Not In Ram' 

TSSR Init. Failed After READ COMMAND' 

Drive 7 Select Failed To Set "OFL" In TSSR' 



TSSR Not Correct After 

TSSR Not Correct After 

CVC Set, Didn' ' t Reset 

TSBA r4ot Correct After 

WRITE SUBSYSTEM MEMORY 

Reading Long Record Fa 

Reading Long Record Failed To Set RLS Bit 

Residual Byte Count Incorrect After Short 

Reading Long Record Failed To Give Tape St cos Alert 

ASCIZ 'Basic Read Data (Forward and R^ve'-^e)' 



READ DATA Command. SW6 Bit Set' 

READ DATA Command' 

VCK In Message Buffer' 

READ DATA Command' 

Command Not Accepted (RAM Read) 

led To Set RLL Bit In XSTO' 

In XSTO' 
Record Read' 



iROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

J WRITE SUBSYSTEM MEMORY COMMAND 

; 

I - 

T24REST: 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 



«T24PACKET,R1 

«100004,(R1). 

«T24DATA.(R1)* 

CRD* 

#10. ,(R1)* 



iSAVE THE REGISTERS 

iSTART OF THE PACKET 

(WRITE SUBSYSTEM MEM. WITH ACK. 

(ADDRESS OF CHARAISTIC5 DATA BLOCK 

(EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN Bt TES 



TSV7 - HARDWARE TESTS 1-8 MACRO M1113 Ol-FEB-84 17:54 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



HI 3 



SEQ 163 



3864 
3885 
3886 
3887 
3888 
3889 
3890 
3391 
3892 
3893 
3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3906 
3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 



3918 
3919 
3920 
3921 
3922 
3913 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
5934 
3935 
3936 
7937 
3938 



046546 
046352 
046J54 
046360 
046362 
046366 
046372 
046400 
046402 
046406 
046410 



046412 
046412 
046416 
046422 
046426 
046432 
C46434 
046440 
046442 
046446 
046450 
046452 
046454 
046454 
046460 
046464 
046470 
0464 74 
046476 
046502 
046504 
046504 
046504 



012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
012721 
012721 
005021 
012711 
000207 



104401 



043652' 
000024 

000000 
000030 
177777 043652' 64$: 

000000 



043740' 

100206 

043770 

000006 

043770- 



043760' 

000000 

000000 

000000 



T24RT2: 



T24RT3: 



MOV 
CLR 
MOV 
CLR 
MOV 
MOV 
MOV 
TST 
CMP 
BNE 
RTS 



SAVREG 

POV 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

CLR 

CLR 

RTS 

SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

RTS 

ENDTST 



#T248FR,CRl)t 

(Rl)t 

#20.,(R1)+ 

(RD* 

*0,CR1) 

#24.. R2 

#177777. T24BFRCR2) 

-(R2) 

<K),R2 

64$ 

PC 



#T24PK2,R1 

#100206, CRD ♦ 

#T24BF2.(R1)» 

CRD* 

#6.,(R1)» 

CRD* 

#T24BF2,R1 

CRDf 

CRD 

PC 



0T24PK3.R1 

#0.(RD* 

#0,(RD* 

CRD» 

#O.CRD 

PC 



.SBTTL TEST 5: SPACE RECORDS 



(ADDRESS OF MESSAGE BUFFER 
lLEis»GTH OF MESSAGE BUFFER 



I SELECT DRIVE ZERO 

ir4UMBER OF LOCATIONS TO bt 

;ALL ONES TO MESSAGE BUFFER 

I NEXT LOCATION 

iCKECK FOR END OF ' "^^ 

I KEEP GOING UNTIL 

(RETURN 



BE CLEARED 



LOOP 
DONE 



I SAVE THE REGISTERS 

(START OF '.HE PACKET 

(WRITE SUBSYSTEM MEM. WITH ACK, IE 

(ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

(POINT TO DATA SEL AREA 

(RETURN 

(SAVE THE REGISTERS 

(START OF THE PACKE^ 

(CLEAR AREA OUT 

(ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

(RETURN 



L10052: 



TRAP 



CJETST 



; ♦ 



(THIS TEST VERIFIES THAT THE SPACE RECORDS ^ORWARD AND SPACE 
(RECORDS REVERSE POSITION COMMANDS OPERATE PROPERLY WHEN SPACING 
(OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS 
(IS VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST 
(SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL 
(RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH 
(OF THE SUBTESTS. THE TAPE IS ENTIRELY WRITTEN WITH RECORDS 
(OF VARYING SIZES AND DATA CONTENT i THE FIRST 4 BYTES OF EACH 
(RECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER 
(EACH SPACING OPERATION. THE TAPE POSITION IS VERIFIED Bt READING 
(THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 
(THE EXPECTED RESULT. 
( 

(THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS 



113 



TSV7 - HARDWARE TESTS 1-6 
TEST 5: SPACE RECORDS 



MACRO M1113 Ol-FEB-84 17:54 



SEQ 164 



1939 
3940 
3941 

3942 
3947 
3948 
3949 
3950 
3^51 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 



3965 
3966 

3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 



3980 
3981 
3982 
3986 
3987 



046506 
046506 
046506 
046514 
046520 
046524 
046530 



046536 
046536 
046536 
046536 
046540 
046544 
046550 
046554 
046560 



046566 
046572 
046574 
046574 
046600 
046602 
046606 
046610 
046614 
046616 
046622 
046625 
046650 
046632 
046636 
0466<2 
046642 
046644 
046646 
046650 



BGNTST 



012737 006256- 002170' 

004737 017176' 

012700 055230* 

004737 016412' 

012737 000005 002206' 



MOV 


^^^PRT2.EPRTSW 


JSR 


PC.KTorr 


MOV 


0TST25I0,R0 


JSR 


PC.TSTSETUP 


MOV 


*5,LO0PCNT 



T5: : 
I SECONDARY ERROR MESSAGE 
I DON'T NEED LOTS OF MEMORY 
lASC'T MhSSAGE TO IDENTIFY TEST 
iDO NIUAL TEST SETUP 
iPERl ORM 5 ITERATIONS 



t ♦ 



TSST 5, SUBTEST 1 



VERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH 
THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 
THE VOLUME CHECK (VCK) FLAG IS SET. 



T25L00PJ 



104402 

004737 055246' 

005037 054060' 

004737 055340' 

004737 055402' 

012737 176750 054062 



BGNSUe 



JSR 
CLR 
JSR 
JSR 
MOV 



PC.T25REST 
T25CNT 
PC,T2SRT2 
PC.T25RT3 
*65000. .T25DLY 



; ^>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T5.1: 

TRAP C*BSUB 
I SET COMMAND PACKET 
I CLEAR THE RECORD COUNTER AREA 
»SET UP OTHER C0*1MAN0 PACKET 
I SET UP OTHER COMMAND PACKET 
;SET UP LOOP COUNTER 



I ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY JiT CLEAR IF ERROR 



0047S7 015674 
103427 



5$t 



012727 
000000 
013727 
000000 
005367 
O01375 
005367 
001367 
005337 
001356 
005237 
016501 

104455 
000765 
003642' 
011734' 



000250 

002116' 

177772 

177756 

054062' 

002212' 
000002 



JSR 


PC.SOFINIT 


BCS 


lOi 


DELAY 


250 



iDO INITIALIZE ON COMROLLER 
iBR IF INIT WAS OK 
I DELAY IF REQUIRED 







MOV 


^250. (PC)* 






.WORD 









MOV 


L$DLY.(PC)* 






.WORD 









DEC 


•6(PC) 






BNE 


. 4 






DEC 


-22(PC) 






BNE 


. -20 


DEC 


T25DLY 


iDEC DELAY COUNTER 




BNE 


5» 


I BR. IF LOOP IS REQUIRED 


INC 


FATFLG 


iBUHP COUNT 




MOV 


TSSR(R5).R1 


iCONTENfS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


; FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


501 






.WORD 


SI- lERR 






,WORD 


SFIMSG 



J13 



TSV7 - HARDWARE 


''ESTS 1 


-8 


TEST 5; 


SPACE 


RECORDS 




3988 


046652 






3989 


046652 


013737 


002172' 


3990 


046660 


012704 


053700' 


3991 








3992 








3993 








3994 








3995 








3996 








3997 








3998 


046664 


004737 


010562' 


3999 


046670 


103407 




4000 


046672 


005237 


002212' 


4004 


0466 76 


010001 




4005 


046700 








046700 


104456 






046702 


000766 






046704 


005046 ' 






046706 


011734' 




4006 








4007 








4008 








4009 








4010 








4011 








4012 








4013 


046710 








046710 


104406 




4014 


046712 


004737 


010714' 


403 5 


046716 


103407 




4016 


046720 


010001 




4017 


046722 


005237 


002212' 


4021 


046726 








046726 


104456 






046730 


000767 






046732 


055055* 






046734 


011746' 




4022 


046736 








046736 


104406 




4025 








4024 








4025 








4026 








4027 








4028 








4029 








4050 


046740 


013701 


053730 


4031 


046744 


010102 




4032 


046746 


052702 


000002 


4033 


046752 


020102 




4034 


046754 


001406 




4035 


046756 


005237 


002212 


4039 


016762 








046762 


104456 






046 764 


000770 






04676b 


054225' 






046770 


015374' 
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SEQ 165 



053720 



10$: 



MOV UNITN.T25DSW 

MOV <>T25PACKET.R4 



I SET UP DRIVE NUMBER 
(SUBROUTINE NEtDS PACKET ADDRESS 



J WRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 
; 



JSR PC, WRTCHR 

BCS 15» 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SFIMSG 



I ISSUE WRITE CHARACTERISTICS 
J BR. IF COMMAND ISSUED OK 
I BUMP COUNT 

iSAVE CONTENTS OF TSSR 
IWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

i ISSUE REWIND COMMAND TO SELECTrO TAPE DRIVE 

* 

15$! CKLOOP 

JSR PC. REWIND 

30$ 
MUV RO.Rl 

INC FATFLG 

ERhHRD ERRNO, T25RWN.PKTSSR 



30$ 



CKLOOP 



iLOOP IF SELECTED 



TRAP 



jRtAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

(PICK UP XSTO 
iSET UP EXPECTED 
iSET BOT BIT IN EXPECTED 
I DOES EXP • REC'D 
I BR, IF EQUAL (OK) 
I BUMP COUNT 

;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 



MOV 


T25BFR»6,R1 


MOV 


R1.R2 


BIS 


^IT1.R2 


CMP 


Rl.R? 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO, T25BOT.EXPREC 



C$ERHR0 
502 

WRTMSG 
SFIMSG 



TRAP 


C$CLP1 


J CALL TAPE REWIND COMMAND 




iBR. IF NO PROBLEM 




jSAVE TSSR 




iBUMP COUNT 




I REWIND NOT ACCEPTED 




TRAP 


C$ERHRD 


.WORD 


505 


.WORD 


T25RWN 


.WORD 


PKTSSR 



C$CLP1 



C$ERHRD 
504 
T25B0T 
EXPRbC 



K13 



TSV7 - HARDWARE TESTS 1-8 
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SEQ 166 



4040 046772 






04677? 


104406 




4041 046774 


012703 


000400 


4042 047000 


015737 


003114' 054032' 


4043 






4044 






404S 






4046 






4047 






4043 






4049 






4050 047006 


012737 


140005 054030' 


4051 047014 


012704 


054050' 


4052 047020 






4053 04 7020 


010337 


054036 


4054 047024 


013777 


054060' 154062 


4055 047032 


062737 


000001 054060' 


4056 O47040 


010465 


000000 


4057 O47044 


0O4737 


016150' 


4058 047050 


016501 


000002 


4059 047054 


012702 


000200 


4060 047060 


020102 




4061 047062 


001411 




4062 047064 


052701 


000004 


4063 047070 


001014 




4064 047072 


005237 


002212' 


4068 O47076 






047076 


104456 




047100 


000771 




047102 


005103' 




047104 


011746' 




4069 047106 






O47106 


104406 




4070 047110 


005205 




4071 047112 


022703 


001000 


4072 047116 


001340 




4073 047120 


000415 




4074 047122 






4075 






4076 






4077 






4078 






4079 






4080 






4081 






4082 04 7122 


015701 


053730' 


4083 047126 


010102 




4084 047150 


052702 


000001 


4085 047154 


020102 




4086 04 7136 


001406 




4087 047140 


005237 


002212' 


4091 047144 






047144 


104455 




04 7146 


000772 




04 7150 


054361' 




047152 


015574' 




4092 047154 







40$: 



CKLOOP 
MOV 

nov 



*256. .R3 
FREE,T25RB 



iLOOP IF SELECTED 

TRAP 
iRECORO SIZE 
(STARTING WRITE BUFFER ADDRESS 



CJCLPl 



iWRITE DATA.ACK.CVC-l COMMAND 
i 



65$ 



MOV 


0140005, T25PK3 


MOV 


0T25PK5.R4 


MOV 


R5.T25SZ 


MOV 


T25CNT.aFREE 


ADD 


01.T25CNT 


MOV 


R4.TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR.R2 


CMP 


R1,R2 


BEQ 


75« 


BIT 


*BIT2,R1 


BNE 


1201 


INC 


FATFLG 



75$ 



ERRHRO ERRNO . WRTERR , PKTSSR 



CKLOOP 



INC 


R5 




CMP 


0512. 


.R3 


BNE 


65$ 




BR 


125$ 





120$ 



iWRITE DATA,ACK,CVC-1 COMMAND 
jSET VP R4 WITH PACKET ADDRESS 

sSEI' UP RECORD SIZE IN PACKET 

I LOAD UP RECORD COUNTER JN WRT BUFFER 

iGET READY FOR NEXT RECORD 

I issue COMMAND 

(WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

(ARE THEY EQUAL 

iBR. IF OK 

jCHECK FOR TAPE STATUS ALERT 

»BR. IF TSA IS SET (SUSPECT IS LOT) 

J BUMP COUNT 

;TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
. WORD 505 
.WORD WRTERR 
.WORD PKTSSR 

jLOOP IF SELECTED 

TRAP C$CLP1 

iBUhP RECORD SIZE 

lEND or RECORD YET 

(BR. IF MORE RECORDS TO WRITE 

I ENOUGH RECORDS 



(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

(QUICK CHECK FOR EOT SET 

(SET UP EXPECTED 

(SET THE EOT BIT XSTO 

(IS THE EOT BIT SET IN XSTO 

(BR. IF SET (GOOD) 

(BUMP COUNT 

(DEVICE FATAL NOT EOT FOUND ETC. 

TRAP C$FRL> 

. WORD 50b 
.WORD T25NfcT 
.WORD tXPREC 
125$: 



MOV 


T258FR*6,R1 


MOV 


R1.R2 


BIS 


oeiT0»R2 


CMP 


R1,R2 


BEQ 


125$ 


INC 


FATFLG 


ERRDF 


ERRNO, T25NeT,EXPREC 



L13 



TSV7 - HARDWARE 


TESTS 1 


-8 MACRO M 


TEST 5: SPACE 1 


RErORDS 




4093 






4094 






4095 






4096 






4097 






4098 






4099 






4100 047154 


004737 


010714' 


4101 047160 


103407 




4102 047162 


010001 




4103 047164 


005237 


002212' 


4107 047170 






0^7170 


104456 




047172 


000775 




047174 


055035' 




047176 


011746' 




4108 047200 






047200 


104406 




4109 047202 


012737 


000007 053720' 


4110 047210 


012704 


055700' 


4111 






4112 






4113 






4114 






411S 






4116 






4117 






4118 047214 


004737 


010562' 


4119 047220 


103407 




4120 047222 


005237 


002212" 


4124 047226 


010001 




4125 047230 






047250 


104456 




047232 


000774 




047254 


005046' 




047256 


011734' 




4126 047240 






047240 


104406 




4127 047242 


005?57 


002216' 


4128 047246 


001044 




4129 






4150 047250 


112757 


000200 054 C41' 


4131 047256 


112757 


000010 054040' 


4132 047264 


012"'04 


054010' 


4153 047270 


010465 


000000 


4134 047274 


004757 


016236' 


4135 047300 


105407 




4136 04 7302 


010001 




4137 047304 


005257 


002212' 


4141 047310 






047310 


104456 




047312 


000775 




047314 


054064' 




047316 


011746* 




4142 04 7320 






047320 


104406 




4143 047322 


012737 


000007 053720' 
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SEQ 167 



1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
t 

JSR PC. REWIND 

BCS 150$ 

MOV RO.Rl 

INC FATFLG 

ERRHfiD ERRNO , T25RWN . PKTSSR 



130* 



CKLOOP 

MOV 
MOV 



I CALL TAPE REWIND COMMAND 




iBR. IF NO PROBLEM 




(SAVE TSSR 




iBUMP COUNT 




jREWIND NOT ACCEPTED 




TRAP 


CIERHRD 


.WORD 


507 


.WORD 


T25RWN 


.WORD 


PKTSSR 



(LOOP IF SELECTED 



*7.T25DSU 
*T25PACKET,R4 



TRAP 



CJCLPl 



iSET UP DRIVE NUMBER 

I SUBROUTINE NEEDS PACKET ADDRESS 



J WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
1 



140$ 



JSR PC. WRTCHR 

BCS 140$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSG , SFIMSG 



CKLOOP 



TST 


EXTFEA 


BNE 


160$ 


MOVB 


«200,T25fl51 


MOVB 


#10.T25BS0 


MOV 


0T25PK2.R4 


MOV 


R'l.TSDBCRS) 


JSR 


PC.CHKTSSR 


BCS 


150$ 


MOV 


RO.Rl 


INC 


FATFIG 



(ISSUE WRITE C ^ARACTERISTICS 

I BR, IF COMMAND ISSUED OK 

I BUMP COUNT 

I SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

(SCOPE LOOP 

TRAP 

(CHECK FOR EXTENDED FEATURES 

iBR IF SWITCH IS ON 



C$ERHRO 
508 

WRTMSG 
SFIMSG 

C$CLP1 



150$ 



FRRHRO ERRNO, T25SSR, PKTSSR 

CKL OOP 

MUV 07,T25DSW 



(WRI'E MISCELLANEOUS CONT/REAO STATUS 

(FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

(WRITE SUeSYS MEM PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR 

[BR. IF NO ERROR 

I ERROR. SAVE TSSR 

(BUMP COUNT 

(TSSR NUT CORRECT AFTER WRT. MISCtLL ANtOUS 

fRAP C$eRHRO 
. WORD 509 
.WORD T25SSR 
.WORD PKTSSR 

\\ OOP If SELECTED 

TRAP C$CLP1 

(SET UP DRIVE NUMBER 



TSV7 - HARDWARE ItSTS 1-6 
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SEQ 168 



4144 


047330 


012704 


055700' 


4145 








4146 








4147 








4148 








4149 








4150 








4151 








4152 


047334 


004737 


010562' 


4153 


047340 


103407 




4154 


047342 


005237 


002212- 


4158 


047346 


010001 




4159 


047350 








047350 


104456 






047552 


000776 






047354 


005046' 






047356 


011734' 




4160 


04 7360 








047360 


104406 




4161 


047362 


016501 


000002 


4162 


047366 


032701 


000100 


4163 


047372 


001006 




4164 


047374 


005237 


002212' 


4168 


047400 








047400 


104455 






047402 


000777 






047404 


055104' 






04 7406 


011734' 




4169 


047410 








047410 


104406 




4170 








4171 








4172 








4173 








4174 








4175 








4x76 








4177 


047412 


012737 


140010 


4176 


047420 


012737 


000001 


4179 


047426 


012 704 


054030' 


4180 


047452 


010465 


000000 


4181 


04 7436 


004737 


016150' 


4182 


047442 


OlnSOl 


000002 


4185 


047446 


012702 


100306 


4184 


047452 


020102 




4185 


04 7454 


001406 




4186 


047456 


005237 


002212' 


4190 


047462 








047462 


104456 






04 7464 


001000 






04 7466 


054272' 






04 74 70 


011746' 




4191 


0474 72 








0474 72 


104406 




4192 


04 7474 

04 74 74 








04 7474 


104403 





MOV 



#T25PACI<ET.R4 



I SUBROUTINE NEEDS PACKET ADDRESS 



{ **4i**<^4.***44>* ************ **4i***<ti**********4i4i***«4i**4j«i*4t4i4i*4i*4ijfc4i«44 

IwRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 
i 



160$ 



JSR PC.WRTCHR 

BCS 160$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



MOV 


TSSRCR5),R1 


BIT 


*0FL.R1 


BNE 


170$ 


INC 


FATFLG 


ERRDF 


ERRNO, T250FL. SFIMSG 



170$ 



CKLOOP 



(ISSUE WRITE CHARACTERISTICS 

I BR, IF COMMAND ISSUED OK 

(BUMP CO'JNT 

(SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

I SCOPE LOOP 

TRAP 

tGET TSSR CONTENTS 

I CHECK FOR THE OFFLINE BIT SET 

(BR. IF OFFLINE (GOOD) 

I BUMP COUNT 

;OFF LINE SHOULD HAVE BEEN SET (BAD) 

TRAP C$EROF 

.WORD 

.WORD 

.WORD 

;LOOP IF SELECTED 

TRAP 



CIERHRO 
510 
WRTMSG 
SFIMSG 

C$CLP1 



511 
T250FL 

SFIMSG 



C$CLP1 



;*4i***4i****<*****4>*4i***«<ti*4i4>4>4i**4>4'4>4'4>4i<4>* 4^41*41 4'4i4i4>4>4i4i4i4i4i4>*4i4i4k«4>*4i4i4i4i4i4t 

[SPACE FORWARD COMMAND IN PLACE 

;4>4>«4>4>4i4i***«*«4i4^**4i*44>4>*4>4>««4i**4t4i4«44t«*44^*i4>4'4t««4i****«4>4>*******4i*** 



054030' 180$ 
054032' 



MOV 


0140010. T25PK3 


MOV 


«1.T25RB 


MOV 


4^T25PK3.R4 


MOV 


R4,TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCH5).R1 


MOV 


*SSR!SC!0FL!BI 


CMP 


RI.R2 


BEQ 


190$ 


INC 


FATFLG 



; SPACE FORWARD COMMAND IN PLACE 
I NUMBER OF RECORDS TO SPACE 
iR4 - POINTER TO PACKET 
I ISSUE COMMAND 
iWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 



SET UP EXPECTED 



190$ 



ERRHRD ERRNO , T25TM , PKTSSR 

CKLOOP 
ENOSUB 



J ARE THEY EQUAL 

|BR. IF OK FSP. FUNCTION REJECT 

I BUMP COUNT 

;TSSR INCORRECT AFTER TAPE MOTION CMO 

TRAP C$ERHRD 
.WORD 512 
.WORD T25TM 
.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP C$CI,P1 

)>>>>>>>>>>>> END SUBTEST >-> > >^> > > • > >•» 

L10O72; 

TRAP CifcSUB 



Nl^ 



o 



TSV7 - HARDWARE TESTS 1 
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SEQ 169 



4193 


047476 


023727 


002212' 000017 


4194 


047504 


103402 




41.95 


047506 


004737 


017104' 


4196 


047512 






4197 








4198 








4199 








4200 








4201 








4202 








4203 








4204 








4205 








4206 








4207 








4208 








4209 


047512 
047512 








047512 


104402 




4210 


047514 


004737 


055246' 


4211 


047520 


004 737 


055402' 


4212 


047524 


004737 


055340' 


4213 








4214 








4215 








4216 








4217 








4218 








4219 








4220 


047530 


004 737 


015674' 


4221 


047534 


103407 




4222 


047536 


005237 


002212' 


4226 


047542 


010001 




422? 


047544 








047544 


104455 






047546 


001001 






047550 


003642' 






047552 


011734' 




4228 


047554 


012737 


C00007 053720' 


4229 








42S0 


047562 


012704 


053700' 


4231 








4232 








4233 








4234 








4235 








4236 








4237 








4233 


047566 


004 737 


010562' 


4239 


047572 


103407 




4240 


047574 


005237 


002212* 


4244 


047600 


010001 




4245 


047602 








047<:02 


104436 






047604 


001002 






047606 


C05046' 






047610 


011734' 





999$: 



t ♦ 



CMP FATFLG,W15. 

BLO 999* 

JSR PC.CKDROP 



(IS ERROR COUNT AT 25 
I BR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



I TEST 5, SUBTEST 2 

(VERIFIES THAT A SPACE RECORDS REVERSE COMMAND WITH 
J THE CLEAR VOLUME CHECK CCVC) BIT CLEAR IS REJECTED IF 
iTHE VOLUME CKECK (VCK) FLAG IS SET. 



BGNSLJe 



JSR 
JSR 
JSR 



PC,T25REST 

PC,T25RT3 

PC.T25RT2 



J >>>>>>>^>>>> BEGIN SUBTEST >>>>•> >>>^^% > 

T5.2: 

TRAP C$BSUB 
iSET COMMAND PACKET 
J SET UP OTHER COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 



I ISSUE CONTROLLER "SOFT" INITIALIZE -■ CARRY BIT CLEAR IF ERROR 



10$: 



JSR 


PC.SOFINIT 


(DO INITIALIZE ON CONTROLLER 




BCS 


10$ 


jBR IF INIT WAS OK 




INC 


FATF-LG 


;BUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO , SFIERR , SFIMSG 


J FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


513 






. WOi^O 


SFIERR 






.WOUD 


SFIMSG 


MOV 


fl7.T25DSW 


(SET UP DRIVE NUMBER 





MOV 



*T25PACKET.R4 



(SUBROUTINE NEEDS PACKET ADDRESS 



I 

(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



v!SR PC. WRTCHR 

BCS 15$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WR TMSG , SF IMSG 



(ISS'JE WRITE CHARACTERISTICS 
(BR, IF COMMAND ISSUED OK 
(B'JMP COUNT 

(SAVE CONTENTS OF TSSR 
jWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



CJERHRD 
514 

W^^TMSG 
SFIMSG 



B14 



TSV7 ■ HARDWARE TESTS 1-6 
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SEQ 170 



4?46 
4^4 7 
4^4d 
4249 
4^50 
4251 
4.V5? 
4255 

42S4 

4255 
4256 

4257 
4261 



4262 

4265 

4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4275 
4277 



4278 

4279 
4260 
4281 
4282 
4285 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4294 
4295 



42% 



04 7612 
047612 
047614 
04 7620 
04 7622 
04 7624 
04 7650 
047650 
04 7652 
04 7654 
047656 
04 7640 
047640 
047642 
047646 

047650 
04 7656 
047664 

047670 
04 7674 
047700 
047702 
047704 
047710 
047710 
047712 
047714 
047716 
047 720 
047720 
04 7722 
047730 



047754 
04 7/40 
047742 
04 7 746 
04 7 750 
04 7 750 
04^752 
04 7 754 
0477'i6 
047760 



(ISSUE REWIND COMMAND tq SELECTED TAPE DRIVE 
I 



104406 

004757 010714' 

105407 

010001 

005257 002212* 

104456 
001005 
055055' 
011746' 

104406 

005737 002216' 

001044 

112757 000200 054041' 

112757 000010 054040' 

012704 054010- 

010465 000000 

004757 016256' 

lOr-407 

010001 

005257 002212' 

104456 
001004 
054064' 
011746' 



151 ! CKLOOP 

JSR 
BCS 

MOV 
INC 
ERRHRD 



104406 
012757 
012704 



PC, REWIND 

501 

RO.Rt 

F ATFLG 

ERRN0,T25RWN,PKTSSR 



TRAP 
I CALL TAPE REWIND COMMAND 
iBR. IF NO PROBLEM 
I SAVE T5SR 
iBUMP COUNT 
(REWIND NOT ACCEPTED 



C*CLP1 



301: 


CKLOOP 




1401; 


TST 


EXTFEA 




B^C 


1601 




MOVB 


•200.T25BS1 




MOVB 


#l0,V25eS0 




MOV 


#T25PK2.R4 




MOV 


R4,TS0B(R5) 




JSR 


PC.CHKTSSR 




BCS 


1501 




MOV 


RO.Rl 




INC 


FATFLG 




ERRHRD 


ERRN0.T25SSR,PKTSSR 



iLOOP IF SELECTED 

iCMECK FOR EXTENDED FEATURES SW 
iBR IF SWITCH IS ON 



TRAP 

.WORD 

.WORD 

.WORD 

TRAP 



CtERHRD 
515 
T25RWN 
PKTSSR 

CICLPl 
SWITCH 



000007 055720 
053700' 



15011 CKLOOP 

MOV 
MOV 



lURITE MISCELLANEOUS CONT/READ STATUS 

iFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH") 

iWPITE S'jeSYS MEM PACKET 

I ISSUE COMMAND 

lUAIT rCR SSR 

I BR. IF NO ERROR 

lERROR, SAVE TS5R 

iBUMP COUNT 

(TSSR NOT CORRECT AFTER 



iLOOP IF SELECTED 



WRT. MISCELLANEOUS 


TRAP 


OERHPD 


.WORD 


516 


.WORD 


T25SSft 


.WORD 


PKTSSR 



•7.T25DSW 
#T25PACKET,R4 



TRAP 



OCLPl 



iSET UP DRIVE NUMBER 
iSUBROUTINE NtEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WPTCHR) 



004757 
105407 
00525 7 
OlOOOl 

104456 
001005 
005046' 

0X1734* 



010562' 
002212* 



JSR 


PC.WRTCHR 


BCS 


160t 


INC 


FATFLG 


MOV 


RO.RI 


ERRHRD 


ERRNO.WRTMSG.SFIMSU 



160 I { CKLOOP 



(ISSUE WRITE CHARACTERISTICS 
iBR, IF COMMAND ISSUED OK 
iBUMP COUNT 

iSAVE CONTENTS Of TSSR 
jWRITt CHARACTERISTISC 



liiCOPE LOOP 



FAILED 




TRAP 


CILRHi;;} 


.WORD 


^ir 


.WORD 


WRTHSC 


.WORD 


SFIMSU 



C14 



TSV/ - HARDWARE TESTS 1-6 
TEST 5; SPACE RECORDS 



MACRO Mm5 01-rEB-fl^ 17i54 



SEQ 171 



4297 
429d 
429S 
4500 
4304 



4505 

4506 
4307 
4508 
4509 
4310 
4511 
4512 
4315 
4314 
4315 
4516 
4317 
431S 
4319 
4520 
4521 
4 322 
4526 



4327 
4528 



4529 

4550 
4331 
4352 
4555 
4554 
4355 
4556 
4537 
4 358 
4559 
4 540 
4541 
4542 
4 545 
4344 



047760 
047762 
047766 
047772 
047774 
050000 
050000 
050002 
050OO4 
050006 
050010 
050010 



050012 
050020 
050026 
050032 
050056 
050042 
050046 
050052 
050054 
050056 
050062 
050062 
050064 
050066 
050070 
050072 
050072 
050074 
050074 
050074 
050076 
050104 
050106 
050X12 



050112 
050112 
050X12 



104406 

016501 000002 

032701 OOOIOO 

001006 

005257 002212' 

104455 
001006 
055104' 
011754' 

104406 



MOV 


TSSR(R5),R1 


BIi 


♦O^L.Rl 


B^^ 


I 701 


INC 


TATFLC 


ERHDF 


ERRN0,T250F*U.SFIMSG 



170* 



CKLOOP 



TRAP CICLPI 

iGET TSSR CONTENTS 

(CHECK FOR THt OFFLINE BIT SET 

I BR. IF OFFLINE (GOOD) 

I BUMP COUNT 

I OFF LINE SHOULD HAVE BEEN SET (BAD) 

TRAP CIEROF 

.WORD 

.WORD 

.WORD 

iLOOP IF SELECTED 

TRAP 



518 

T250FL 
SFIMSG 



CICLPI 



I SPACE REVERSE COMMAND IN PLACE 
I 



012757 100410 054050 

012757 000001 054032 

012704 054030' 

010465 000000 

004737 016150' 

016501 000002 

012702 100306 

020102 

0C'H06 

00r237 002212' 

104456 
001007 
0542/2' 
011746- 

104406 



104405 

023727 002212' 000017 

105402 

004737 017104' 



180S: 



MOV 


♦ 100410, T25PK3 


MOV 


01,T25RB 


MOV 


♦T25PK3.R4 


MOV 


R4.TS06(*55) 


JSR 


PC.WAITF 


MOV 


TS5RCR5),R1 


MOV 


#SSR!SC!OFL!eX 


CMP 


R1,R2 


BEQ 


1901 


INC 


FATFLG 



1901: 



9991 1 



ERRHRD ERRN0,T25TM,PKTSSR 

CKLOOP 
CNOSUB 



CMP FATFLG. 015. 

BLO 9991 

JSR PC.CKDROP 



I SPACE REVERSE COMMAND IN PLACE 

jNUMBER Of RECORDS TO SPACE 

|R4 - POINTER TO PACKET 

I ISSUE COMMAND 

I WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 
I ARE THEY EQUAL 

iBR, IF OK ESP, FUNCTION REJECT 
iflUMP COUNT 
I TSSR INCORRECT AFTER TAPE MOTION CMO 

TRAP CIERHRD 

.WORD 519 
.WORD T25TM 
.WORD 3KTSSR 
iLOOP IF SEIECTEO 

Tfl CICLPI 

I ^ k » > k > » > > > ^ > END SUBTEST »*>>*>>*■»*>» 

L 10075: 

TRAP CIESUB 

lis ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



TEST 5. SUBTEST 5 

VERIFIES THAT SPACE RECORDS FQRWARD CAN SPACE ONE. 
RECORD OFF BOT AND CAUSES 90T STATUS TQ BE CLEARED. 



BONSUe 



X04402 



J >)>>> >ik>3tv> BEGIN SUBTEST >**»».. >»>»x 

T5,3; 

TRAP CIBtiUU 



}m -^Twrn'Rimk' 



D14 



MACRO MU15 Ol-FEB fl4 17(54 



SEQ 172 



4545 


050114 


004757 


055246' 


4546 


050120 


004 757 


055540' 


4547 


050x24 


00473"* 


055402' 


4548 








4549 








4550 








4551 








455^ 








4555 








4554 








4355 


050130 


004737 


015674' 


4556 


050154 


105407 




4557 


050156 


005237 


002212' 


45tr 


050142 


010001 




4562 


050144 








050144 


104455 






050146 


OOIOIO 






05O150 


003642' 






050152 


011754' 




4563 


050154 


015737 


002172' 


4364 








4565 


050162 


012704 


053700' 


4566 








4367 








4368 








4369 








4370 








4571 








4372 








4375 


050166 


004757 


010562' 


4574 


050172 


105407 




4575 


050174 


005237 


002212' 


4379 


050200 


010001 




4380 


050202 








050202 


104456 






050204 


OOlOll 






050206 


005046 ' 






050210 


011734' 




4381 








4582 








4583 








4584 








4585 








4386 








436/ 








4588 


050212 








050212 


104406 




4389 


050214 


004737 


010714- 


4590 


050220 


103407 




4391 


05O222 


010001 




4392 


050224 


00525/ 


002212' 


4396 


050230 








050230 


104456 






050252 


001012 






050254 


055035' 






050256 


011746* 




4397 


050240 







JSR 



PC.T25REST 



JSR PC.T25RT. 



JSR 



PC. T25RT; 



I SET COMMAS PACKET 
iSGT UP 
iSET UP 



QTHtR COMMAND 
OTHER COMMAND 



PACKET 
PACKET 



ISSUE CONTROLLER "SOTT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



053720' 101 



JSR 


PCSOFINIT 


|D0 INITIALIZE ON CONTROLLER 




BCS 


101 


iBR IF INIT WAS OK 




INC 


FATFLG 


iBUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


1 FATAL ERROR TSSR WAS NOT OK 








TMAP 


CIERDF 






.WORD 


520 






.WORD 


SFIERR 






.WORD 


SFJMSG 


MOV 


UNITN.T250SW 


iSET UP DRIVE NUMBER 





MOV 



♦T25PACKET,R4 



(SUBROUTINE NEEDS PACKET ADDRESS 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
) 

t****AA*«*«**4**A******«*****A««**4*4*««**** ************* ********** 



JSR 


.'CWRTCHR 


(ISSUE WRItE CHARACTERISTICS 




BCS 


151 


iBR, IF COMMAND ISSLtD OK 




INC 


FATFLG 


iBLtV COUNT 




MOV 


RO.Rl 


(SAVE CONTENTS OF T5SR 




ERRHRD 


ERRNO.WRTMSG.SFIMSG 


(WRITE CHARACTERISTISC FAILED 








TRAP 


CIERHRD 






.WORD 


521 






.WORD 


URTMSG 






.WORD 


SFIMSG 



I^JSUt REWIND COMMAND TO SELECTED TAPE DRIVE 



151: 



CKLOOP 



301: 







TRAP 


CJCLPl 


JSR 


PC. REWIND 


(CALL TAPE REWIND COMMAND 




BCS 


50 « 


(BR. IF NO PROBLEM 




MOV 


RO.Rl 


(SAVE TrSR 




INC 


FATFLC. 


(BUMP COUNT 




ERRHRD 


ESIRN0,125RWN,PKTSSR 


(REWIND NOT ACCEPTED 








TRAP 


CIERHHD 






.WORD 


5.V^ 






.WORD 


T.'^^PWN 






.WORD 


PKTSSR 



CKLOOP 



(LOOP IF SELECTED 



E14 



TSV7 - HARDWARE TFSTS 1-8 



TEST 



SPACE RECORDS 
050240 104406 



4598 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4414 



4415 

4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4450 
4431 
4432 
4433 
4434 
4435 
4439 



4440 

4441 
4442 
4443 
4444 
4445 
4446 
444 7 
4448 
4449 



050242 
050246 
050250 
050254 
050256 
050260 
050264 
050264 
050266 
050270 
050272 
050274 
050274 
050276 



050304 
050312 
050316 
050316 
050322 
050326 
050332 
050356 
050340 
050342 
050546 
050350 
050354 
050354 
050356 
050360 
050362 
050364 
050564 
050366 



013701 053750' 

010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001013 
054225- 

015374' 

104406 

012737 000001 



012/57 140010 
012704 054030 



010465 
004737 
016501 
012702 
020102 
001411 
052701 
001006 
005237 

104456 
001014 
054145 
015574 

104406 



000000 
016150 
000002 
000200 



000004 
00221d* 



MACRO M1113 Ol-FEB-84 17:54 



SEQ 173 



054032 



054030' 



TRAP CJCLPl 
READ MESSAGE BUTFER EXTENDED STATUS REGISTER ZERO (XSTO) 

iPICK UP XSTO 

(SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

(DOES EXP - REC'D 

|BR, IF EQUAL (OKD 

■BUMP COUNi 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 

I NUMBER OF RECORDS TO SPACE OVER 



MOV 


T25BFR+6.R1 


MOV 


R1.R2 


BIS 


*fiITl.R2 


CMP 


R1»R2 


BEQ 


40i 


INC 


FATFLG 



ERRHRD ERRNO . T25B0T , EXPREC 



40» 



CKLOOP 
MOV 



*000001.T25RB 



CiERHRO 
523 
T25B0T 
EXPREC 

CJCLPl 



651 



1 

I SPACE FORWARD, ACK,CVC-1 COMMAND 
I 

J ***«4**** ******* **A* *******&* A ***^>>*4** \*********«********«****«* 

(SPACE FORWARD, ACK.CVC-1 COMMAND 
iSET UP R4 WITH PACKET ADD.9ESS 

I ISSUE COMMAND 

(WAIT FOR 5SR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR, IF OK 

(CHECK FOR TAPE STATUS ALERT 

(BR. IF TSA IS SET (SUSPECT IS EOT) 

(BUMP COUNT 

J TSSR INCORRECT AFTER READ DATA 

TRAP CiERMRO 
. WORD 524 
.WORD T25WDE 
.WORD EXPREC 

(LOOP IF SELECTED 

TRAP CJCLPl 



MOV 


♦140010, T25PK5 


MOV 


#T25PK3.R4 


MOV 


R4,TSD6(R5) 


JSR 


PC.WAITF 


MOV 


TS5R(R5).R1 


MOV 


•SSR,R2 


CMP 


R1.R2 


BEQ 


751 


BIT 


»eiT2.Rl 


BNE 


751 


INC 


FATFLG 



ERRHRD ERRNO , T25WDE . E XPREC 



CKLOOP 



75»: 
I20i: 

I **************************************** *«**«4*««*««*«««*««^«*i4t4,^ 

(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSIO) 
I 

I ****** **************************«*****4***************4****«****A* 



050366 013701 053750 



MOV 



T25BFR»6,Rl 



(QUICK CHECK FOR BOT SET 



F14 



TSVV - HMRDWARF TESTS 1.-8 
TEST 5: SPACE RECORDS 



MACRO M1113 Ol-FEB-04 17j54 



SEQ 174 



4450 
4451 
445^ 
4453 
4454 
4458 



4459 

4460 
4461 
4462 
4463 
4464 
446b 
4466 
4467 
4466 
4469 
4470 
4471 
4472 
4475 
44/4 
4475 
4476 
4477 
4478 
4462 



4433 

4484 
44S5 
4486 
4487 
4488 
4492 



4493 
4494 



4495 
4496 
4497 
4496 



050372 
050374 
050400 
050402 
050404 
050410 
050410 
050412 
050414 
050416 
050420 
05042C 
050422 
050426 



050454 
050442 
050450 
050454 
050460 
05O464 
050470 
050474 
05O476 
050500 
050504 
050504 
050506 
050510 
050512 
050514 
050514 
050516 
050522 
050526 
050550 
050552 
050536 
050556 
050540 
050542 
050i>44 
050546 
050546 
050550 
050550 
050550 
050552 
050560 
050562 
05056b 



010102 

042702 000002 

020102 

001406 

005237 002212' 

104456 

001015 

054520' 

015374' 

104406 

004737 055402' 

012 737 000401 054036 



MOV 


R1.R2 


BIC 


*eiTl.R2 


CMP 


R1.R2 


BEQ 


1251 


INC 


TATFLG 


ERRHRO 


ERRN0,T25BNC,EXPREC 



I SET UP EXPECTED 

(CLEAR THE BOT BIT (XSTO) 

lis THE EOT BIT SET IN XSTO 

iBR. IF SET (GOOD) 

I BUMP COUNT 

I BOT NOT CLEARED AFTER 



125$ J CKLOOP 

JSR 
MOV 



SPACE FROM BOT 
TRAP CIERHRD 
.WORD 525 
.WORD T25BNC 
.WORD EXPREC 



PC.T25RT3 
i>257. ,T25SZ 



I CLEAN UP PACKET 

I SET THE CORRECT SIZE UP 



TRAP 



C$CLP1 



012737 140001 054030 

015737 005114' 054032 

012704 054030' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 

020102 

001406 

005237 002212' 

104456 
001016 
C05176' 
011746' 

104406 

017701 132372 

012702 000001 

020102 

001406 

005237 002212' 

104456 
001017 
054435' 
015374' 

104406 



I READ DATA COMMAND IN PLACE 
t 

I RE AD DATA COMMAND IN PLACE 

(READ BUFFER ADDRESS TO PACKET 

»R4 • POINTER TO PACKET 

iISSL€ COMMAND 

(WAIT FOR SSR TO SET 

(GET TS5R CONTENTS 

iSET UP EXPECTED 

,ARE THEY EQUAL 

iBR. IF OK ESP. FUNCTION REJECT 

iBUMP COUNT 

iTSSR INCORRECT AFTER READ DATA CMO 



MOV 


♦140001, T25PK3 


MOV 


FREE,T25R6 


MOV 


«T25PK3,R4 


MOV 


R4.TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


«SSR,R2 


CMP 


R1.R2 


BEQ 


1901 


INC 


FATFLG 



190$ 



ERRHRD ERRNO . RDERR . PK TSSR 



CKLOOP 



MOV 


OTREE^Rl 


MOV 


♦ 1,R2 


CMP 


R1.R2 


BEQ 


200$ 


INC 


fATFLG 



200$ 



104405 
023727 
105402 
004 737 



002212' 000017 
017104' 



999$ 



ERRHRD ERRNO , T25WNG , EXPREC 

CKLOOP 
ENDSUB 



CMP FATFLG, 015. 

BLO 999$ 

JSR PCCKDROP 



TRAP C$ERHRD 

.WORD 526 
.WORD RDERR 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP CICLPl 

(GET FIRST WORD FROM BUFFER 

iSET UP EXPECTED 

J WAS RECORD NUMBERED 1 

iBR, IF CORRECT RECORD 

lOUMP COl'NT 

(SHOULD HAVE BEEN RECORD NUMBFR 1 

TRAP CtFWHRl) 

.WORD 527 
.WORD T25UNG 
.WORD EXPREC 

TRAP C$CIP1 

I >> ^ ^>>) > > >>> END SUBTEST »i>>*i>^^^^> 

L10074: 

TRAP C$ESl.»B 
(IS ERROR COUNT AT 25 
(BR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



TSV7 - HARDWARF. TESTS 1-8 
T£ST 5: SPACE RECORDS 



Gi4 



MACRO M1113 Ol-FEB-84 I7i54 



SEQ 175 



4499 

4500 
4501 
450^ 
4503 
4504 
450S 
4506 
4507 
4508 
4509 
4510 



4511 
451? 
4515 
4514 
4515 
4516 
4517 
4516 
4519 
4520 
4521 
4522 
4523 
4527 
4528 



4529 
4530 
4531 
4532 
4533 
4534 
4535 
4536 
4537 
4558 
4539 
4540 
4541 
4545 
4546 



4547 

4548 
4549 
4550 



050566 
050566 
050566 
050570 
050574 
050600 



104402 

004737 055246 

004737 055340 

004737 055402 



050604 
050610 
050612 
05061*.S 
050620 
050620 
050622 
050624 
050626 
C 50630 



004737 015674' 

103407 

005237 002212' 

010001 

104455 
001020 
003642' 
011734' 
013737 002172 



050636 012704 053700* 



050642 
050646 
050650 
050654 
050656 
050656 
050660 
050662 
050664 
050666 
050666 



004757 010562' 

105407 

005237 002212' 

010001 

104456 
001021 
005046' 
011734' 

104406 



J ♦ 

tTEST 5, SUBTEST 4 

(VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK 
tOVER THE FIRST RECORD ON TAPE. 



I - 



BGNSUB 



JSR 
JSR 
JSR 



PC»T25REST 

PC,T25RT2 

PC.T25RT3 



I >>>>i>>>>>>> BEGIN SUBTEST >>>>t. > >> > > ^ > 

T5.4: 

TRAP c$esub 

(SET COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 

(SET UP OTHER COMMAND PACKET 



(ISSUE CONTROLLER "SOFT" INITl/.LIZE - CARRY BIT CLEAR IF ERROR 
I 



053720' 201: 



JSR 


PC.SOFINIT 


(DO INITIALIZE ON CONTROLLER 




BCS 


201 


(BR IF INIT WAS OK 




INC 


FATFLG 


;BiJMP COUNT 




MOV 


RO.Rl 


iCONTENTS OF TSSR REGISTER 




ERROF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


CiERDF 






.WORD 


528 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T25DSU 


iSET UP DRIVE NUMBER 





MOV 



#T25PACKET,R4 



I SUBROUTINE NEEDS PACKET ADDRESS 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
I 



25$! 



JSR PC. WRTCHR 

BCS 251 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRN0.WRTM5G, SFIMSG 



CKLOOP 



(ISSUE WRITE CHARACTERISTICS 
(BR, IF COMMAND ISSUFD OK 
(BUMP COUNT 

(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILFO 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP ' SELECTED 

TRAP 



CItRHRD 
529 

WRTMUG 
SFIMSG 

CJCLPl 



|««***«*«4>4t44i****«*«*«****4t***««*«*4i**>*«*4>**«^ «««««*«**«**4«*4«** 



HI 4 



TSV7 - HARDWARE TtST! 
TEST 5: SPACE RECSRI 

4551 
4552 
4553 
4554 



1-8 



45S6 

<3S0 
456? 



4565 

4564 
4565 
4566 
4567 
4568 
456*J 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4580 



4581 

4582 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593 
4594 
4598 



4599 

4600 
4601 



050670 
050674 
050676 
050700 
050704 
050704 
050706 
050710 
050712 
C50V14 
050714 



004737 0107K' 

105407 

010001 

005237 002212' 

t 04456 
001022 
055035' 
011746' 

104406 



050716 
050722 
050724 
050730 
050732 
050734 
050740 
050740 
050742 
050744 
050746 
050750 
050750 



013701 053730' 

010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001023 
054225' 

015374' 

104406 



050752 
050756 
050762 
050764 
OSO770 
050774 
0507 74 
050776 
0510CO 
051002 
051004 
051004 
051006 



012703 OOOOOl 

004737 010366 
105410 

016501 000002 

005237 002212 

104456 
001024 
054145' 
012002' 

104406 

012737 OOOOOl 



MACRO rilll3 Ol-FEB-84 17;54 



ilaSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
1 

JSR PC. REWIND 

BCS 301 

MOV RO.Rl 

INC FATFLG 

ERRHRD ERRN0,T25RWN,PI<TSSR 



30$: 



CKUOOP 



iLOOP ir SELECTED 



TRAP 



iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
I 

iPICK UP XSTO 
(SET UP EXPECTED 
iSET SOT BIT IN EXPECTED 
iDOeS EXP - REC'O 
iBR. IF EQUAL (OK) 
^B\J1P COUNT 

I TAPE NO"^ AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40* : CKLOOP iLOOP IF SELECTED 

TRAP 



MOV 


T25BFR*6,R1 


MOV 


Rl,R2 


BIS 


*eiTl.R2 


CMP 


Rl,R2 


BEQ 


401 


INC 


FATFLG 



ERRHRD tRRNO , T25B0T . EXPREC 



SEQ 176 



(CALL TAPE REWIND COMMAND 




iBR, IF NO PROBLEM 




iSAVE TSSR 




(BL^IP COUNT 




1 REWIND NOT ACCEPTED 




TRAP 


C$FRHRD 


.WORD 


530 


.WORD 


T25RWN 


.WORD 


PKT5SR 



CJCLPl 



CIERHRD 
531 

T25B0T 
EXPREC 

CJCLPl 



054032' 



»I^''>ue SPACE RECORDS COMMAND - VALUE IN R5 SETS NUMBER OF RECORDS 

(BIT 15 SETS DIRECTION - 0-FORWARD 1-REVERSE 

1 

I NUMBER OF RECORDS TO SPACE FORWARD 
I CALL SPACE COMMAND 
(CHECK FOR ERROR 
iGET TSSR CONTENTS 
I BUMP COUNT 
ERRHRD ERRN0,T25WDE,SFFMSG i SPACE FORWARD FAILED 

50*1 CKLOOP iLOOP TF SELECTED 

TRPP 
MOV 01,T25RB (NUMBER OF RECORDS TO SPACE OVER 



MOV 


OOOOOl. R3 


JSR 


PC. SPACE 


BCS 


50 » 


MOV 


TSSR(R5).R1 


INC 


FATFLG 



TRAP 


C$ERHRD 


.WORD 


53:^ 


.WORD 


TcSWOE 


.UORD 


SFFM5G 



CJCLPl 



114 



TSV7 - HARDWARE TtSTS 1-8 
TEST 5: SPACE RECORDS 



4602 
4603 
4604 
4605 
4606 
4607 
4606 
4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 
4617 
4621 



MACRO M1113 01-FEB-e4 17:54 



SE« 177 



iSPACE REVERSE. ACK.CVC-1 COMMAND 
I 



4622 

4623 
4624 
4625 
4626 
4627 
4626 
4629 
4630 
4631 

1632 
4653 
4634 
4635 
4636 

^637 
4638 
4639 
4640 
4641 
464? 
4646 



4647 

4648 
4649 

4650 
4651 
4652 
4656 



051014 
051022 
051026 
051026 
051052 
051036 
051042 
051046 
051050 
051052 
051056 
051056 
051060 
051062 

05 1:^ 

051066 
051066 
051070 
051070 
051074 



012737 140410 054030' 

012704 054030' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 

020102 

001406 

005237 002212' 

104456 
001025 
054145' 
011746' 

104406 

012705 000400 
013737 003114' 054032' 



65$! 



MOV 


0140410, T25PK3 


MOV 


*T25PK3.R4 


MOV 


R4,TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


751 


INC 


FATFLG 



ERRHRD ERRNa,T25WDE,PKTSSR 



75$: 
120$: 



CKLQOP 



MOV 
MOV 



iSPACE REVERSE, ACK.CVC-l COMMAND 
I SET \JP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 
iWAIT FOR SSR tO SET 
I GET TSSR CONTENTS 
(SET UP EXPECTED 
J ARE THEY EQUAL 
iBR, IF OK 

I BUMP count 

J TSSR lNCORRv.rT AFTER READ DATA 



I LOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


533 


.UORO 


T25W0E 


.WORD 


PKTSSR 



TRAP 



CSCLPl 



*256. ,R3 

FREE.T25RB 



(RECORD SIZE 

! STARTING READ BUFFER ADDRESS 



051102 
051110 
051114 
051120 
051124 
051130 
051134 
051140 
051142 
051144 
051150 
051150 
051152 
051154 
051156 
05U60 
051160 
051162 
051166 
051172 
051174 
051176 
05120? 
051*202 



012737 140001 054030 

012704 054030' 

010337 054056' 

010465 000000 

004757 016150' 

016501 0OOO02 

012702 000200 

020102 

001406 

005237 002212' 

10445«> 
001026 

005176' 
011746' 

104406 

0U701 151726 

012 702 000000 

020102 

001406 

005257 002212' 

104456 



1 

iREAD DATA.ACK,CVC-1 COMMAND 
I 

iREAD DATA.ACK.CVC-l COMMAND 
165$: MOV OT25PK3,R4 iSET UP R4 WITH PACKET ADDRESS 

; SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

iWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

I ARE THEY EQUAL 

iBR. IF UK 

;BUMP COUNT 

J TSSR INCORRECT AFTER READ DATA 

TRAP C»ERHRP 

.WORD 554 
.WORD RDEMR 
.WORD PKTSSR 

iLOUP IF SELECTED 

TRAP C$CLP1 

I GET FIRST WORD FROM BUFFER 

iSET UP EXPECTED 

lUAS RECORD NUMBERED I 

I BR. IF CORRECT RECORD 

iBUMP COL^T 

I SHOULD HAVE GEEN RECORD NL^ER I 

TRAP CJERHRD 



MOV 


0140001, T25PK3 


MOV 


OT25PK3,R4 


MOV 


R5,T25SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


0SSR.R2 


CMP 


R1,R2 


BEQ 


170$ 


INC 


FATFLG 



ERRHRD ERRNO.RDERR, PKTSSR 



170$: CKLOOP 



MOV 


SFREE.Rl 


MOV 


00. R2 


CMP 


RI.R2 


BEQ 


2001 


INC 


FATFLG 



ERRHRD ERRNO, T25WNG,EXPREC 



J14 



TSV7 - HARDWARE TESTS 1-8 
TEST 5! SPACE HECOROb 
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SEQ 178 



4657 
4656 



4659 
4660 
4661 
4662 
4665 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
467? 
4675 
46 74 
4675 
4676 
4677 



4678 
4679 
4680 
4681 
4682 
4685 
4684 
4685 
4686 
468 7 
4688 
4669 
4690 
4691 
4692 
4693 



051204 
051206 
051210 
051212 
051212 
051214 
051214 
051214 
051216 
051224 
051226 
051232 



4694 
4695 
4696 
4697 



05125*? 
051252 
051232 
051254 
051240 
051244 
051250 
051256 
051264 



051272 
0512/6 
051500 
051500 
051504 
051506 
051312 
051514 
051520 
051322 
051526 
051550 
051334 
051556 
051342 



001027 
054455 
015574 

104406 



104405 
0^3727 
105402 
004737 



104402 
004757 
004737 
004737 
015757 
162737 
013737 



004 757 
103427 

012727 
000000 
015727 
000000 
00556 7 
001375 
005567 
001567 
005337 
001556 
016501 
005257 



200$ J 



002212' 000017 
017104' 



055246' 
055540' 
055402' 

054060' 054056 
000002 054056 
054060' 054062' 



015674' 

000250 

002116' 

177772 

177756 

OS4062' 

000002 
002212' 



999$: 



CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 



.WORD 
.WORD 
.WORD 



555 

T25WNG 
EXPREC 



FATFLG.OIS. 
999 » 
PC.CKDROP 



TRAP C$CLP1 

(>>>>>>>>>■»>> E^4D SUBTEST >>>>>>>>>>>> 

L10075: 

TRAP C$ESUB 
;IS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
J TRY TO DROP THE UNIT 



TEST 5. SUBTEST 5 

VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A 
MULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 
MAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE, 
WHICH EVER IS LESS. 



>>>>)>>>>>>> 



I 
t 

« 
t 

1 
1 
1 
1 

I 
t 

i 
I - 

BGNSU6 ,>>>>>>>>>>>> BEbIN SUBTEST 

T5.5: 

TRAP C$BSUB 
»SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
»HOLD NUMBER OF RECORDS 
(ACTUA'. NUMBER OF RECORDS ON TAPE 
I SET UP REWIND DELAY COUNTER 

IlSSUF CONTRa,LER "SOFT" INITIALIZE - CARRY BTT CLEAR IF ERROR 
1 



JSR 


PC.T25REST 


JSR 


PC,T25RT2 


JSR 


PC.T25RT5 


MOV 


T25CNT,T25CN2 


sue 


♦2.T25CN2 


MOV 


T25CNT.T25DLY 



10$ 



JSR 
BCS 
DELAY 



PC.SOFINIT 

20$ 

250 



DEC 


T25nLY 


BNE 


10$ 


MOV 


TSSR(R5),R1 


INC 


FATFLG 



iDO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

I WAIT ABOUT .25 SECONDS 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

(DEC COUNTER 

iBR. IF MORE LOOPS REQUIRED 

iCONTEMTS OF TSSR REGISTER 

I BUMP COUNT 



*250.(PC')» 


L$DLY .(PC)» 


-6(PC:) 
. 4 
2^(PC) 



K14 



TSV7 - HARDWARE TESTS 1 
TEST 5: SPACE RECORDS 



-8 
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4701 



4 702 
4705 
4704 
4705 
4706 
4707 
4 708 
4709 
4710 
4711 
4712 
4715 
4714 
4718 
4719 



4720 

4721 
4 722 
4723 
4 724 
4 725 
4726 
4727 
4728 
4/29 
4730 
4751 
4735 



4756 

4737 
4 758 
4739 
4740 
4741 
4 742 
4743 
4 744 
4745 
4 746 
4 74 7 
4 748 
4749 



051346 
051346 
051350 
051352 
051354 
051356 
051356 
051364 



051370 
051574 
051376 
051402 
051404 
051404 
051A06 
051410 
051412 
051414 
051414 



051416 
051422 
051424 
051426 
051432 
051432 
0514.';4 
0514A6 
051440 
051442 
051442 
051444 
051450 
051454 
05145f 
051460 
051462 
051464 
051466 
051472 



104455 
001030 
003642 
011734 

015737 
012704 



004737 
103407 
005237 
010001 

104456 
001031 
005046 
011754 

104406 



004737 
103407 
010001 
005237 

104456 
001032 
055035' 
011746 

104406 
015701 
012702 
020201 
003002 
010103 
000401 
010203 
16270i 
010337 



002172 
053700' 



053720' 



010562' 
002212' 



010714 
002212 



054056 
177776 



000001 
054032 



ERRDF ERRN0» SFIERR . SFIMSG 



20$: 



MOV UNITN.T25DGW 

MOV 0T25PACKET.R4 



(FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 

.WORD 536 

.WORD sriCRR 

.WORD SFIMSG 

J SET UP UNIT NUMBER 

jSUSROUTINE NEEDS PACKET ADDRESS 



IwRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
I 



25*: 



JSR PC.URTCKR 

BC5 25 t 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSG , SFIMSG 



CKLOOP 



jISSUE WRITE CHARACTERISTICS 
J BR. ir COMMAhO ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
J WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
jLOOP IF SELECTED 

TRAP 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
1 





MOV 


T25CN2.R1 




MOV 


065534. ,R2 




CMP 


R2.RI 




BGT 


Ati 




MOV 


R1.R5 




BR 


47$ 


46i: 


MOV 


R2.R3 


47*: 


SUB 


01. R3 




MOV 


R5.T25RB 



C$ERHRD 
537 
WRTMSG 
SFIMSG 

C*CLP1 



JSR 


PC. REWIND 


(CALL TAPE REWIND COMMAND 




BCS 


50* 


iBR, IF NO PROBLEM 




MOV 


RO.Rl 


iSAVE TSSR 




INC 


FATFLG 


J BUMP COUNT 




ERRHRD 


ERRNO. T25RWN.PKTSSR 


1 REWIND NOT ACCEPTED 








TRAP 


CJERHRD 






.WORD 


558 






.WORD 


T25RWN 






.WORD 


PKTSSR 



30* i CKLOOP iLOOP IF SELECTED 

TRAP C$CLP1 

I NUMBER OF RECORDS ON TAPE 
(MAX IT CAN SPACE OVER 
I WHICH VALUE CAN Wt USE 
|BR. IF O WRITTEN > 64K 
lO WRITTEN CAN BE USED 
iMOVE ON 
I USE MAX NUMBER 
I DON' T GO ALL THE WAY YET 
1 NUMBER Oy RECORDS TO SPACE OVER 

; SPACE FORWARD. ACK.CVC- I COMMAND 



SEQ 179 



L14 



TSV7 - HARDWARE TESTS 1-C 
TEST 5: SPACE RECORDS 



4 750 
4751 
4 752 
4753 
4754 
4755 
4756 
4757 
4 753 
4759 
4760 
4761 
4762 
4765 



4764 
4765 
4 766 
4770 



4771 

4772 
4775 
4774 
477^ 
47/6 
4777 
4 776 
4779 
4/80 
4761 
4 782 
4 785 
4784 
4785 
4786 
4787 
4788 
4 78^ 
4 790 
4 791 
4 792 
4796 



051476 
051504 
051510 
051510 
051516 
051522 
051526 
051552 
051536 
051540 
051542 
051542 
051546 
051550 
051554 
051556 
051562 
051564 
051570 
051572 
051576 
0516O0 
051604 
051604 
0516O6 
051610 
051612 
051614 
051614 
051616 
051622 



051650 
05165'. 
05164.' 
051646 
051652 
051656 
051662 
0«il666 
051670 
051672 
0516 76 
051700 
051704 
051704 
051/06 
051710 



012737 140010 
012704 054050 



015/37 
010465 
0O4737 
016501 
012702 
020102 
001425 

012727 
000000 
013727 
OOOOOO 
005567 
001375 
005367 
001367 
005537 
001351 
0O5237 

104456 
001035 
054145' 
011746' 

104406 
012705 
013737 



012757 
012704 
010557 
010465 
004757 
016501 
012702 
020102 
001411 
032701 
001006 
005257 

104456 
001054 
005176 



054056' 

OOOOOO 

016150' 

000002 

000200 



000250 

002116' 

177772 

177756 

054062 

002212 



010000 
003114 



100001 

054050' 

054056' 

OOOOOO 

016150' 

000002 

000200 



000004 
002212 
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SEQ 180 






054030' 
054062' 



65$ 
67$ 



MOV <?140010,T25PK3 

MOV 0T25PK3,R4 

MOV T25CN2,T25DLY 

MOV R4,TSDB(R5) 

JSR PC.WAITF 

MOV rSSRCR5).Rl 

MOV #SSR.R2 

CMP R1,R2 

BEQ 75$ 

DELAY 250 



(SPACE FORWARD. ACK.CVC-1 COMMAND 
I SET UP R4 WITH PACKET ADDRESS 

I NUMBER OF RECORDS USED AS DELAY COUNTER 

(ISSUE COMMAND 

I WAIT FOR SSR TC SET 

(GET TSSR CONTENTS 

I SET Lip EXPECTEC 

(ARE THEY EQUAL 

;BR. IF OK 

(DELAY »25 SECONDS 



MOV 


<>250.(PC)* 


.WORD 





MOV 


LSDLY.CPO* 


.WORD 





DEC 


-6(PC) 


BNE 


.-4 


DEC 


-22(PC) 


BNE 


.20 



DEC 


T25DLY 


BNE 


67$ 


INC 


FATFLG 



ERRHRD ERRNO . T25WDE . PKTSSR 



(BUMP DOWN COUNTER 

(BR. IF NOT AT END OF DELAY 

(BUMP COUNT 

I TSSR INCORRECT AFTER READ DATA 



75$ 



054032 



CKLOOP 

MOV 
MOV 



04096. .R3 
FREE.T25RB 



TRAP 


C$ERHRD 


.WORD 


539 


.WORD 


T25W0E 


.WORD 


PKTSSR 


iLOO*' IF SELECTED 




TRAP 


C$CLP1 


(RECORD SIZE 




i STARTING READ BUFFER ADDRESS 





054030 



(READ DATA.ACK COMMAND 
I 

(READ OATA.ACK COMMAND 
165$: MOV «T25PK3,R4 (SET UP R4 WITH PACKET ADDRESS 

(SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR. IF OK 

(CHECK FOR TAPE STATUS ALERT 

(IF SET ALL IS WELL 

:BUMP COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAP CShRHRO 
.WORD 540 
.WORD RDERR 



MOV 


0100001. r25PK3 


MOV 


0T25PK3.R4 


MOV 


R5.T25SZ 


MOV 


R4.TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BfcQ 


170$ 


BIT 


oeiT2,Rl 


BNE 


170$ 


INC 


FATFLG 



ERRHRD ERRNO, RDERR, PKTSSR 



M14 



TSV7 - HARDWARE TESTS 1-8 
TEST 5: SPACE RECORDS 



4797 

4798 
4799 
4800 
4801 
4802 
4805 
4807 



4808 
4809 



4810 
4811 
481;? 
4813 
4814 
4815 
4816 
4817 
4818 
4819 
4820 
48? 1 
48?2 
4823 
4824 
4825 
4826 
4627 



4828 
4829 
4830 
4831 
4832 
4833 
4834 
4835 
4836 
4857 
4338 
4839 
4840 
4841 
4642 



051712 
051714 
051714 
051716 
051722 
051726 
051732 
051734 
051736 
051742 
051742 
051744 
051746 
051750 
051752 
051752 
051754 
051754 
0S1754 
051756 
051764 
051766 
051772 



051772 
051772 
051772 
051774 
052000 
052006 
052012 
052016 



052024 
052030 
052032 
052032 
052036 
052040 



011746' 

104406 
017701 
013702 
162702 
020102 
001406 
005237 

104456 
001035 
054435 
015374 

104406 



104403 
023727 
103402 
004737 



104102 
004737 
013737 
004757 
004737 
013737 



004 73/ 
103427 

012727 

000000 
013727 
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170$: CKl-OOP 



SEQ 181 



151172 
054056 
000001 



002212' 



MOV 


SFREE.Rl 


MOV 


T25CN2.R2 


SUB 


#1.R2 


CMP 


R1,R2 


BEQ 


200$ 


INC 


rATFLG 


ERRHRD 


ERRNa,T25WNG,EXPREC 



200$: 



002212' 
017104' 



000017 



999$: 



CKL.OOP 
ENOSUB 



CMP 
BLO 
JSR 



FATFLG»#15» 
999 i 
PC»CKDROP 



.WORD PKTSSR 

jLOOP ir SELECTED 

TRAP CJCLPl 
I GET FIRST WORD FROM BUFFER 
(SET UP EXPECTED 

I SHOULD BE LAST RECORD 

I WAS RECORD NUMBERED R3 

iBR, IF CORRECT RECORD 

I BUMP COUNT 

(SHOULD HAVE BEEN RECORD NUMBER 1 

TRAP CtERHRO 
.WORD 541 
.WORD T25WNG 
.WOPO EXPREC 

TRAP C»CLPl 
(>>>>>>>>>>>> END SUBTEST >>>>>■>>>>>> 

L10076: 

TRAP C$ESUe 
lis ERROR COUNT AT 25 
J BR, IF LESS THAN 25 
I TRY TO DROP THE UNIT 



I TEST 5, SUBTEST 6 

IvERiritS THAT SPACE RECORDS REVERSE CAN SPACE A 
ihU.lIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 
I MAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE 
J WHICH EVER IS LESS. 
; 



I - 



055246' 
054060' 
055340' 
055402' 
054060' 



05.; 056' 
054062 



BGNSUe 



JSR 
MOV 
JSR 
JSR 

MOV 



PC.T25REST 

T25CNT,T25CN2 

PC.T25RT2 

PC.T25RT3 

T25CNT.T25DLY 



•>>>>>>>> i>i> BEGIN SUBTEST >>^ii>^>is>> 

T5.6: 

TRAP CJBSUB 
I SET COMMAND PACKET 
tSCT L^P RFCOHO COUNTER 
(SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
.SET UP REWIND DELAY COUNTER 



ISSUE CONTROLLER "SOFT" INITIALIZE ■ CARRY BIT CLEAR IF ERROR 



015674' 

000250 
002U6' 



lC?j 



JSR 
BCS 
DELAY 



PC.SOFINIT 

20 J 

250 



iDO INITIALISE ON CONTROLLER 
iBR IF INIT WAS OK 
;WAIT ABOUT .25 SECONDS 

MOV 

.WORD 

MOV 



>'?c'>SO.CPCV 



LSDLY.CPO* 



N14 



TSV7 - HARDWARE TtSTS i-8 
TEST 5 J SPACE RECORDS 



4845 
4844 
484!^ 
4846 
4850 



4851 
4852 
4855 
4854 
4855 
4856 
4857 
4858 
4859 
4860 
4861 
4862 
4863 
4867 
4868 



4869 

4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4876 
4879 
4880 
4884 



4885 

4886 
4887 
4888 
4869 



052C44 
052046 
052052 
052054 
052060 
052062 
052066 
0520 .'0 
0520/4 
052100 
052100 
05;il02 
052104 
052106 
052110 



000000 
005367 
001375 
005367 
001367 
005337 
001356 
016501 
005237 

104455 
001036 
003642 
011734 
013737 



177772 

177756 

054062 

000002 
002212 



052116 012704 



002172' 
053700 



052122 
052126 
052130 
052134 
052136 
052136 
052140 
052142 
052144 
052146 
052146 



004737 010562' 

103407 

005257 002212' 

010001 

104456 
001037 
005046' 
011734' 

104406 



052150 
052154 
052156 
052160 
052164 
052164 
052166 
052170 
052172 
052174 
052174 



00473? 010734 

103407 

OlOOCl 

005237 002212 

104456 
001040 
055035' 
011746' 

104406 



053720' 20$: 



FEB -84 


17:54 




SEQ 182 






.WORD 









DEC 


-6CPr) 






BNE 


. -4 






DEC 


-22CPC) 






BNE 


. -20 


DEC 


T25DLY 


(DEC COUNTER 




BNE 


10$ 


I BR, IF MORE LOOPS REQUIRED 




MOV 


TSSR(R5).R1 


:CONTENTS OF TSSR REGISTER 


INC 


FATFLG 


iBUMP COUNT 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


CJERDF 






.WORD 


542 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN,T25DSW 


iSET UP UNIT NUMBER 





MOV 



; SUBROUTINE NEEDS PACKET ADDRESS 



#T25PACKET,R4 

IwRXTE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
t 

; «)]t4i4i4t*4i4(4i4>*4iA*4t4iA4i4i4t**4>**4t*4i*4(4i4t4k4t4i4>4t4L4i4>**4i4i4i**4i*4i«4i4.*4i*4i*4i4>*****4t 



25$: 



JSR PC, WRTCHR 

BCS 25$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



(ISSUE WRITE CHARACTERISTICS 
J BR. IF COMMAND ISSUED OK 
tBLtMP COUNT 

;SAVE CONTENTS OF TSSR 
J WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
jLOOP IF SELECTED 

TRAP 



C5ERHR0 

543 

WRTMSG 

SriMSG 

C$CLP1 



4t*4**«****4*A*4>****4************** + ***^4*4^**4>4i4t4i44<4«4i4k4i4i4i4^4i4>%4t4i4i*4i4> 

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

4i4t4(««4^4i4'4i*4i4i4i4i4i4t***«*4>4>«M4i«4i4i4(«4t4i*4t«4i4i4i4> + 'f«*4>***4>4i***«**4i*******«* 



30$: 



JSR PC. REWIND 

BCS 30$ 

MOV RO.Rl 

INC FATFLG 

ERRHRD ERRNO . T25RWN . PKTSSR 



CKLOOP 



tCALL TAPE REWIND COMMAND 

;BR. IK NO PROBLEM 

;SAVE TSSR 

;BUf"P COUNT 

(REWIND NOT ACCEPTED 



(LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ir"RHRD 
544 

T25RWN 
PKTSSR 

CSCLPl 



• *t««**«4i««««4i«4*«*«4,*4«44i««««4.*44i««4,**4i«4t4i**4-»L«*<:.«^«**4.***4i4i4i44^4L4k4^4w 

IrEAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



Bl 



j> 



TSV7 HARDWARt 


TtSTb 1 


•6 


TEST "^i SPACE 


RECORDS 




4890 






4891 






4895 






4893 052176 


013701 


055730' 


4894 052202 


010102 




4895 052204 


052702 


000002 


4896 052210 


020102 




4897 052212 


001406 




4898 052214 


005237 


002212' 


4902 052220 






052220 


104456 




052222 


001041 




052224 


054225' 




0'.2226 


015574' 




4905 052250 






052250 


104406 




4904 052232 


013701 


054056' 


4905 052236 


012702 


177776 


4906 052242 


020201 




4907 052244 


005002 




4908 052246 


010105 




4909 052250 


00O401 




4910 052252 


010205 




4911 052254 






4912 052254 


01033? 


054052' 


4915 






4914 






4915 






4916 






4917 






4918 






4919 






4920 052260 


012737 


140010 


4921 052266 


012704 


054050' 


4922 052272 


010465 


000000 


4925 052276 


015737 


054056' 


4924 052504 


004757 


016150' 


4925 052310 


016501 


000002 


4926 052314 


012702 


000200 


492 7 052520 


020102 




4928 052522 


001425 




4929 052524 






052524 


012727 


000250 


052550 


000000 




052352 


015727 


002116' 


052556 


000000 




052540 


005567 


177772 


052544 


001575 




052546 


00556 7 


177756 


052552 


001567 




4950 0525? * 


005557 


054062' 


4951 052560 


001551 




4952 052562 


005257 


002212' 


4936 C52566 






052366 


104456 




052570 


001042 




0523/2 


054145* 





MACRO M1113 01-FfcB-a4 I7i54 



}***■ 



SEQ 185 



« 4> 4> « ♦ 4> « V * * 4> 

MOV 


T25BFR.6,R1 




iPICK UP XSTO 


MOV 


R1,R2 




iSET UP EXPECTED 


BIS 


♦eiTl.R2 




iSET BOT BIT IN EXPECTED 


CMP 


Rl»R2 




(DOES EXP • REC'D 


BEQ 


401 




iSR, If EQUAL (OK) 


INC 


rAlFLG 




iBlMP COWT 


ERRHRD 


ERRN0.T25B0T 


.EXPREC 


iTAPE NOT AT BOT AFTER REWI 



401 1 



CKLOOP 





MOV 


T25CN2,Rl 




MOV 


♦65554. ,R2 




CMP 


R2.R1 




BGT 


461 




MOV 


Pl.fi3 




BR 


47t 


461: 


MOV 


R2.R3 


471: 








MOV 


R5.T25».B 



SPACE F0«WARQ,ACK.CVC-1 COMMAND 



054050 



054062 



481 



MOV 


#140010. T25PK5 


MOV 


#T25PK5,R4 


MOV 


R4.TS0B(R5) 


MOV 


T25CN2,T25DLY 


JSR 


PC.WAITr 


MOV 


TSSR(R5),R1 


MOV 


•SSR.R2 


CMP 


Rl,R2 


BEQ 


50 » 


DELAY 


250 



DFC T25DL! 

B^-t 48 » 

INC FATriG 

ERRHRD ERRNO, t^SWDE , EXPREC 



TRAP CIERSRD 

.WORD 545 
.WORD T25B0T 
.WORD EXPREC 

iLOOP IF SELECTED 

TRAP C»CLP1 

iNUMBER Of RECORDS ON TAPE 

I MAX IT CAN SPACE OVER 

I WHICH VALUE CAN WE USE 

iBR, IF ♦ WRITTEN > 6<K 

10 WRITTEN CAN BE USED 

I MOVE ON 

I USE MAX NC^ER 

(NUMBER Of RECORDS TO SPACE OVER 



(SPACE fOftWARO.ACK.CVCM COMMAND 

iSET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 

iSET UP DELAY COUNTER 

IWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

(ARE THEY EQUAL 

iBR. IF OK 

(WAIT .25 SECONDS 



iDEC THE DELAY COliNTER 
iBR, If COUNTER HASN' T 
iBUMP COUNT 
I TSSR INCORRECT AFTER 



MOV 


•250. (PC)* 


.WORD 





MOV 


L$DL> .(PC) 


.WORD 





DEC 


-6(PC) 


BNE 


. 4 


DEC 


22tPC) 


BNE 


. -20 


EXPIRED 




READ DATA 




TRAP 


CttRHRD 


.WORD 


546 


.WORD 


TOSWOt 



C15 



Tsv; 

TEST 



5 



4957 



4956 
4959 
4940 
4941 
4942 
4945 
4944 
4945 
4946 
4947 
4948 
4949 
4950 
4951 
495^ 
4955 
4954 
4955 
4956 
4957 
4956 
4959 
4960 
4961 
4962 
4963 



HARDUAI 
SPACE 

052574 
052376 
052576 
052400 
052404 
052410 
052412 
052414 
052416 
052420 
05242^ 
052426 



4964 
4965 
4966 
4970 



49/1 

49^2 
4975 
49.4 
4975 
49/6 
4977 
4978 
4979 
4980 
4901 



015574* 

104406 
013701 
012702 
020201 
005002 
010105 
000401 
010205 
162705 
010537 



052452 
052440 
052444 
052450 
052456 
052462 
052466 
052472 
0524 74 
0524 76 
052476 
052502 
052504 
052510 
052512 
052516 
052520 
052524 
052526 
052552 
052554 
052540 
052540 
052542 
052544 
052546 
052550 
052550 
052552 
052556 



012757 
012704 
010465 
015757 
004757 
016501 
012702 
020102 
001425 

012727 
OOOOOO 
015727 
OOOOOO 
005367 
00l':75 
005567 
001567 
005557 
001351 
005237 

104456 
001045 
054145' 
015574' 

104406 

012705 
013737 



054056 
177776 



OOOOOl 
054032 



140410 

054050' 

OOOOOO 

054056' 

016150' 

00\X>02 

000200 



000250 
002116' 

177772 
177756 
054062 
002212' 



OlOOOO 
003114' 



MACRO MU13 Ol.Ft.B-84 17i54 



50*1 



CKLOOP 





MOV 


T25CI^.R1 




MOV 


♦65554. ,R2 




CMP 


R2.R1 




BGT 


551 




MOV 


R1.R5 




BR 


601 


551 1 


MOV 


R2,R5 


601: 


sue 


♦1,R5 




MOV 


R3.T25RB 


1 







(SPACE REVERSE, ACK,CVC-1 COMMAND 



!♦♦ 



054030' 



054062 



701 



MOV 


#140410, T25PK5 


MOV 


#T25PK5,H4 


MOV 


R4.TSDe(ft5) 


MOV 


T25CN2,T250Ly 


JSR 


PC.WAITF 


MOV 


TSSrt(R5).Rl 


MOV 


♦SSH.R2 


CMP 


R1.P2 


BEQ 


751 


DELAY 


250 



Sta 184 



.WORD FXPRf C 



TRAP 
I NUMBER or RECORDS ON TAPE 
(MAX IT CAN SPACE OVER 
I WHICH VALUE CAN WE USE 
iBR, If 9 WRITTEN > 64K 
i9 WRITTEN CAN BE USED 
I MOVE ON 
I USE MAX NUMBER 
iDON'T GO ALL THE WAY YET 
iNLiMBER Of RECORDS TO SPA 



OCLPl 



SPACE OVER 



(SPACE RE VERSE, ACK.CVC-l COMMAND 

I SET UP R4 WITH PACKET ADDRESS 

iISS(€ COMMAND 

I SET UP COUNTER 

iWAir FOR 5SR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

iA«e TMEt EQUAL 

iBR IF OK 

iWAIT ABOUT .25 SFCONOS 



75» 



054032' 







MOV 


0250. (PC)* 






.WORD 









MOV 


L»01Y,(PC)» 






.WORD 









DEC 


-6(PC) 






BNE 


. 4 






DEC 


-/?2CPC) 






BNE 


. -20 


DEC 


T25DLt 


iBUMP COUNTER DOWN 




6NE 


70% 


|BR, IF COUNTER HASN'T EXPIRED 




INC 


FATFIG 


iB».«P COUNT 




bHHHHD 


ERRN0,T25WOt,tXPREC 


iTSSR INCORRECT AFTER READ DATA 








TRAP 


CIERt^O 






.WORD 


547 






.WORD 


T25W0E 






.WORD 


EXPRFC 


CKl OOP 




iLCOP If SELECTED 








TRAP 


CtCLPl 


HOV 


•4096. .R5 


iRECORO SI/E 




MOV 


FREE.T25RB 


1 STARTING READ BUf'ER AODHC SS 





iREAO DATA.ACK COMMAND 

\ 

|4%4%A^^*A««^^444>*****«********4*%%%A4%«** *************** •*«***4k4^%«^ 

052b64 01275/ lOOOOl Obf^OSO* MOV ^lOOOQl.tJbPKi jHtAD CATA^ACK COMHANU 



}m '^Tsm^ihuk'' 



Dl^ 



Ji 



MACRO MlUB 01.FEB-fl4 17i54 



SEQ 185 



4982 


052572 


012704 


054050' 


4985 


052576 


012700 
004757 


177777 
017524' 


4984 


052602 


4985 


052606 


010537 


054056' 


4986 


052612 


010465 


000000 


4987 


052616 


004/37 


016150' 


4988 


052622 


016501 


000002 


4989 


052626 


012702 


000200 


4990 


052652 


020102 




4991 


052654 


001411 




4992 


052656 


052701 


000004 


4995 


052642 


001006 




4994 


052644 


005257 


002212' 


4998 


052650 








052650 


104456 






052652 


001044 






052654 


005176' 






052656 


015574' 




4999 


052660 








052660 


104406 




5000 


052662 


017701 


130226 


5001 


052666 


012702 


000001 


5002 


052672 


o;?oio2 




5005 


052674 


001406 




5004 


052676 


005257 


002212' 


5006 


052702 








052702 


104456 






052704 


001045 






052/06 


054610- 






052710 


015574' 




5009 


052712 








052712 


104406 




5010 


052 714 
052714 








052714 


104405 




5011 


052716 


025727 


002212' 


5012 


052724 


105402 




5013 


052726 


004737 


017104' 


5014 


052752 






5015 








5016 








5017 








5018 








5019 








5020 








5021 








5022 








5025 








5024 








5025 








5026 








50? 7 


052752 
052 752 








052752 


104402 




5028 


052 7 54 


004757 


055246' 


5029 


052740 


004/3 7 


055540 


5030 


052744 


004757 


055402' 



1651 1 



200$; 



0000X7 



MOV 


#T25PK5»R4 


MOV 
JSR 


#177777, RO 
PC.FlLLMeM 


MOV 


R3,T25S/ 


MOV 


R4.TSDB(R5) 


JSR 


PC.UAITF 


MOV 


TSSR(R5),RX 


MOV 


#SSR,R2 


CMP 


R1.R2 


BEQ 


1701 


BIT 


♦eiT2.Rl 


BNF- 


170$ 


INC 


FATriG 


ERRHRD 


ERRNO.RDERR.EXPRfcC 



170$: CKLOOP 

MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



999$ I 



CKLOOP 
ENDSU6 



CMP 
BLO 
JSR 



aTREE.Rl 
♦ 1,R2 

R1,R2 

200$ 

TATFLG 

ERRN'0,T25WNH,EXPREC 



FATFLG.^IS. 

999$ 

PC.CKDROP 



iSET UP R4 WITH PACKET ADDRESS 

i^V ALL ONES INTO CORRECT REGISTER 
iPlLL MCMORY with record SI/F 

I SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

iWAIT FOR 5SR TO SET 

iGET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

iBR. IF OK 

(CHECK FOR TAPE STATUS ALERT 

iBR. IF BIT SET 

jBL^IP COL^T 

(TSSR INCORRECT AFTER 



iLOOP IF SELECTED 



READ DATA 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRO 
548 
ROERR 
EXPREC 



TRAP 
FROM 



C$CLP1 
BUFFER 



iGET FIRST WORD 

iSET UP EXPECTED 

iWAS RECORD NUMBERED R5 

iBR. IF CORRECT RECORD 

iBUMP COUNT 

(SHOULD HAVE BEEN RECORD NUMBER 1 

TRAP C$ERHRO 

.WORD 549 
.WORD T25WNH 
.WORD EXPREC 

TRAP C$CLP1 

(>>>>k>^>>>>> END SUBTEST >>>i>>^>»>>> 

LrO077! 

TRAP C$ESUB 

(IS ERROR COUNT AT 25 
»BR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



TEST 5, SUBTEST 7 

VERIFIES THAT SPACE RECORDS REVERSE ISSI^D WHILE Ht 



TAPE IS AT BOT RESULTS 
WITH THE NONEXECUTABLE 



IN FUNCTION REJECT TERHINAUON 
FUNCTION (N£F) ERROR BIT SET. 



BGNSue 



JSR 
JSR 
JSR 



PC.T25RES1 

PC,T25RI2 

PC.T25RT5 



, >>>>)>>ii>^> BEGIN SuBTll T 

T5.7: 

VRAP 
(SET COMMAND PACK^ T 
J SET UP OTHER C.»<1ftAN0 PACKET 
i SET UP OTHER H.1HMAN0 PACKET 



> ^ ^ » % > s 



C$BSLiO 



Ll^ 



TSV/ - HAROWARt 


Tt'iTS 1 


-6 


TEST S: 

r. 


SPACE 1 


RECORDS 




.J 








5034 








S035 








5036 








5037 








5038 


052750 


004737 


015674' 


5059 


052754 


10^407 




5040 


052756 


005237 


002212' 


50A4 


052762 


010001 




5045 


052764 








052764 


104455 






052766 


001046 






052770 


005642* 






052772 


011754' 




5046 


052774 


013737 


0023 72' 


504 7 








5048 


053002 


012704 


053700' 


5049 








5050 








5051 








5052 








5053 








5054 








5055 








5056 


053006 


004737 


010562' 


5057 


053012 


105407 




5056 


053014 


005257 


002212' 


5062 


055020 


010001 




5065 


053022 








053022 


104456 






053024 


001047 






053026 


005046' 






053030 


011754' 




5064 


053032 








053032 


104406 




5065 








5066 








5067 








5068 








5069 








5070 








5071 








5072 


055054 


004757 


010714' 


5073 


053040 


105407 




5074 


055042 


OlOOOl 




50/5 


053044 


005237 


002212' 


5079 


055050 








055050 


104456 






055052 


001050 






053054 


055035' 






055056 


011746' 




5080 


055060 








055060 


104406 




5081 








508^ 









MACRO M1113 01-FEB 84 17:54 



SEQ 186 



(ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
1 



053720' 20$: 



JSR 


PC.SOFINXT 


|D0 INITIALIZE ON CONTROLLER 




BCS 


20 1 


iBR IF INIT WAS OK 




INC 


FATFLG 


iBUMP COUNT 




MOV 


RO.Rl 


iCONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


1 FATAL ERROR TSSR WAS NOT OK 








TRAP 


CIERDF 






.UORO 


550 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN,T25DSU 


iSET UP UNIT NUMBER 





MOV 



0T25PACKET,R4 



iSUBROUTINE NEEDS PACKET ADDRESS 



I 

iWRITF CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
I 



!5»: 



JSR PC. WRTCHR 

BCS 25$ 

INC FATFLG 

MOV RO.Rl 

ERRHRO E^RNO . WRTMSG , SF IMSG 



CKLOOP 



I ISSUE WRITE CHARACTERISTICS 
I DR. IF COMMAND ISSUED OK 
iBUMP COUNT 

I SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 

TRAP 
.WOftJ 
.WORD 
.WORD 
iLOOP IF SELECTED 

TRAP 



CIERHRD 
551 

WRTMSG 
SFIMSG 

CJCLPl 



**4*«* 



(ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
1 

JSR PC. REWIND 

BCS 30i 

MOV RO.Rl 

INC ^ATFLG 

ERRHRD ERRN0.T25RWN,PKTSSR 



(CALL TAPE REWIND COMMAND 




iBR, IF NO PROBLEM 




(SAVE TSSR 




iBUMP COUNT 




(REWIND NOT ACCEPTED 




TRAP 


OERHRO 


.WORD 


^S.'' 


.WORD 


T.^SRWN 


.WORD 


PKTSSR 



50$: 



CKLOOP 



(LOOP IF SELECTED 



TRAP 



CJCLPl 



ri5 



TSV/ - HAROWArtt 


TE'JTS 1 


-8 MACRO M 


TEST 5: SPACE 1 


RECORDS 




5085 






5064 






5085 






5086 






5087 






5088 053062 


013701 


053730' 


5089 055066 


010102 




5090 053070 


052702 


000002 


5091 0530/4 


020102 




5092 053076 


001406 




5093 053100 


005237 


002212' 


5097 053104 






055104 


104456 




053 lOf. 


001051 




055110 


054225' 




053112 


015374' 




5098 053114 






053114 


104406 




5099 053116 


012737 


000001 054032' 


5100 






5101 






510? 






5103 






5104 






5105 






5106 






5107 053124 


012757 


10O410 054030' 


5108 053132 


012704 


054050' 


5109 055136 






5110 053136 


010465 


000000 


5111 055142 


004737 


016150' 


5112 055146 


016501 


000002 


5113 053152 


012702 


100206 


5114 055156 


020102 




5115 053160 


001406 




5116 055162 


005237 


002212' 


5120 055166 






053166 


104456 




053170 


001052 




053U^ 


054145' 




055174 


011746' 




5121 053176 






053176 


104406 




5122 






5123 






5124 






5125 






5126 






5127 






5128 






5129 053200 


oi3;oi 


055750' 


5150 055204 


010102 




5131 0j3206 


052702 


002000 


5152 055212 


020102 




5153 055214 


001406 




5154 055216 


005257 


ooasi^' 


5X38 053^22 
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SEQ 187 



MOV 


T25BFRt6,Rl 


MOV 


R1,R2 


BIS 


*eiTl.R2 


CMP 


R1.R2 


BEQ 


40» 


INC 


FATFLG 



ERRHRD ERRN0.T25B0T.EXPREC 



iRtAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
1 

jPICK UP XSTO 

iSFT UP EXPECTED 

iSET BOT BIT IN EXPECTED 

lOOES EXP • REC'D 

iBR. IF EQUAL COK) 

iB'JMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP CIERHRD 
.WORD 555 
.WORD T25B0T 
WORD EXPREC 
40$: CKLOO? »L-OOP IF SELECTED 

TRAP CJCLPl 
MOV *1.T25RB (NUMBER OF RECORDS TO SPACE OVER 

I SPACE REVERSE, ACK COMMAND 
i 



65» 



MOV 


#100410, T25PK3 


MOV 


0T25PK5.R4 


MOV 


fl4.TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


♦SSR!SC!B1T1»BIT2.R2 


CMP 


R1.R2 


BEQ 


75 » 


INC 


FATFLG 



75» 



ERRHRD ERRN0,T25WDE,PKTSSR 



CKLOOP 



(SPACE REVERSE, ACK COMMAND 
iSET UP R4 WITH PACKET ADDRESS 

tissue COMMAND 

iWAIT FOR SSR TO SET 

[GET TSSR CC^TENTS 

iSET UP EXPECTED 

iARE THEY EQUAL 

iBR. IF OK 

jBUMP COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAP CIERHRO 
. WORD 554 
.WORD 125WDE 
.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP CJCLPl 



>4««44> 



jREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
1 

J«4i4i%4*4i***«4i4>4i4i«**«**«*««**4i«4i4i4k«4444444«44444*«4«*444444«4«««*4^*4 

iGfcT XSTO STATUS WORD 

iSET UP EXPECTED 

iSET THE NEF BIT 

lARE THEY EQUAL 

I BR, IF EQUAL (GOOD) 

iBl#1P COUNT 

I NEF SHOULD BE SET 



MOV 


T35eFR.6.Rl 


MOV 


R1.R2 


BIS 


•flITlO,R2 


CMP 


RI.R2 


BEQ 


170$ 


INC 


FATFLG 



ERRHRD ERRN0,T25NEK.EXPREC 



Gib 



TSV/ - HARDWARE TESTS 1-6 
TEST 5: SPACE RECORDS 
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SEQ 188 



5159 
5140 



5141 
514L^ 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5150 
5151 
515? 
5155 
5154 
5155 
5156 
5157 
5158 
5150 



5160 
5161 
5162 
5163 
5164 
5165 
5166 
516/ 
5168 
516<5 
5170 
5171 
5172 
5176 
5177 



5178 
51/9 
5180 
5181 
5182 
5183 
5184 
5185 



055222 
055224 
055226 
053230 
053252 
053232 
055254 
055254 
053234 
055256 
055244 
055246 
053252 



055252 
053252 
0552 .2 
055254 
055260 
053264 



055270 
053274 
055276 
053302 
055504 
055504 
053306 
053510 
055312 
055314 



104456 
001055 
C54675 
015574 

104406 



104403 
023727 
103402 
004737 



10440? 
00473/ 
004757 
004737 



004757 
103407 
005237 
010001 

104455 
001054 
003642 
011734 
013737 



053322 012704 



00221:-" 
017104' 



000017 



055246' 
055340' 
055402' 



015674' 
002212' 



002172 
053700' 



170J 



CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 



LlOlOO: 



FATFLU.OIS, 

999$ 

PC , CKDROP 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



TRAP 



CiERHRD 

555 

T25NEF 

EXPREC 

C«CL.P1 
C$ESUB 



999$: 

I * 

(TEST 5. SUBTEST 8 

(VERIFIES THAI A SPACE RECORDS REVERSE COMMAND THAT 

iCUASES THE TAPE TO RUN INTO BOT (WITH THE TAPE NOT 

: INITIALLY AT BOT) CAUSES A TAPE STATUS ALERT 

i TERMINATION AND SETS THE REVERSE INTO BOT (RIB) 

I STATUS BIT 

I 

t 

I 

I - 



(IS ERROR COUNT AT 25 
iBR, IF I FS5 THAN 25 
I TRY TO DROP THE UNIT 



BGNSUB 



{>■»><> >^> Ik >!k>'> BEGIN SUBTEST ^>>>i»> * > >>> > 

T5.8: 

TRAP C$BSUB 
iSET COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 

ISSUE CONTROILER "SOFT" INITIALIZE CARRY BIT CLEAR IF ERROR 



JSR 


PC.T25REST 


JSR 


PC.T25RT2 


JSR 


PC.T25RT3 



053720* 20» 



JSR 


PC.SOFINIT 


iOO INITIALIZE ON CONTROLLER 




BCS 


20 » 


iBR IF INIT WAS OK 




INC 


FATFLG 


iBUMP COUNT 




MOV 


RO.Rl 


iCONTENTS OF TSSR REGISTER 




ERROK 


ERRNO,SFIERR»SFIHSG 


jFATAL ERROR TSSR WAS NOT OK 








TRAP 


CiERD^" 






.WORD 


5S6 






.WORD 


Sf lERR 






.WORD 


SFIMSG 


MOV 


UN:TN.T25DSW 


iSFT UP UNIT NUMBER 





MOV 



dT25PACKET.R4 



iSUBROUYlNE NEEDS PACKET ADDRESS 



jWRlTE CHARACTERISTICS COMMAND tCALL TO WRTCHR) 



I 



I-1 1 5 



TSVr - HARDUARt TtSTS 1-8 
TEST 5; SPACE RECORDS 



5166 
5187 
5188 
5189 
5190 
5194 
5195 



5196 

519/ 
5198 
5199 
5200 
5.>01 
5202 
5203 
52C4 
5205 
5206 
5207 
5211 



5212 

5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5225 
5224 
5225 
5239 



5230 

5231 
5252 
5255 
5234 
52^5 



053526 
053532 
053334 
053^40 
053542 
053342 
055544 
055546 
055550 
0555*j2 
053352 



055554 
055560 
055562 
053564 
055370 
053570 
053372 
055374 
053376 
055400 
053400 



055402 
055406 
053410 
053414 
053416 
055420 
055424 
053424 
055426 
053430 
053432 
0554 54 
0534 54 
053436 



004737 
105407 
005237 
010001 

104456 
001055 
005046' 
011754' 

104406 



010562' 
002212' 



00475/ 010714' 

103407 

OlOOOl 

005257 002212' 

104456 
001056 
055035' 
011746' 

104406 



013701 053730' 

010102 

052 702 000002 

020102 

001406 

005237 002212' 

104456 
00105 7 
054225' 
015574' 

104406 

012737 000001 



MACRO M1115 Ol-FEB-84 17:54 



054032 



{4>4»4«<f*4>4i4>'*«4»4>4«4>4t«**4>'4'**4>*«<4i«4>4>'f + <t>4>'(>4t«4i'f4>4t*4>4> + *4>*'f***4>«*«««**«***4>4* 



25$: 



JSR PC.WRICHR 

BCS 251 

INC FAfFLG 

MOV RO.Rl 

ERRHRO ERRNO , WRTMSG . SFIM5G 



CKLOOP 



iISSUE WRITE CHARACTERISTICS 
»BR. IF COMMAND ISSUED OK 
J BUMP COUNT 

I SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
jLOOP IF SELECTED 

TRAP 



J ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
I 

JSR PC. REWIND 

BCS 50* 

MOV RO.Rl 

INC FATFLG 

ERRHRO ERRNO, T25RWN.PKTS5R 



30$: 



CKLOOP 



jLOOP IF SELECTED 



TRAP 



(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

(PICK UP XSTO 
(SET UP EXPECTED 
(SET BOT BIT IN EXPECTED 
(DOES EXP - REC'D 
(BR. IF EQUAL (OK) 
iBUMP CO*^T 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 



MOV 


T25BFR*6.Rl 


MOV 


R1.R2 


BIS 


'^ITl.R2 


CMP 


R1,R2 


BEQ 


40« 


INC 


FATFLG 



40) 



ERRHRD ERRNO. T25B0T .EXPREC 

CKLOOP 

MOV «l,T25RB 



CiERHRD 
557 

WRTMSG 
SFIMSG 

C*CLP1 



(CALL TAPE REWIND COMMAND 




(BR. IF NO PROBLEM 




:SAVE TSSR 




(BUMP COUNT 




(REWIND NOT ACCEPTED 




TRAP 


CIERHRD 


.WORD 


558 


.WORD 


T25RWN 


.WORD 


PKTSSR 



CICLPl 



SEQ 189 



TRAM 
(NUMBER OF RECORDS TO SPACE OVER 



CiERHRD 
559 
T25B0T 
EXPREC 

CJCLPl 



t 

(SPACE FORWARD, IE, ACK.CVC-1 COMMAND 



lib 



TSV7 - HARDWARE TESTS l-« 
TEST 5: SPACE RECORDS 
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SEQ 190 



5237 








5238 








5239 053444 


012737 


140210 


054030' 


5240 055452 


012704 


054030' 




5241 053456 


010465 


000000 




5242 055462 


004737 


016150* 




5243 055466 


01650X 


000002 




5244 0534 72 


012702 


000?00 




5245 053476 


0201C2 






5246 053500 


001406 






5247 053502 


005237 


002212' 




5251 053506 








055506 


104456 






055510 


001060 






053512 


054145' 






055514 


015374' 






5252 053516 








053516 


104406 






5255 053520 


012737 


000020 


054032* 


5254 








5255 








5256 








5257 








5258 








5259 








5260 








5261 053526 


012737 


100610 


054030' 


5262 053554 


012704 


054050' 




5263 055540 


010465 


000000 




5264 053544 


004737 


016150' 




5265 055550 


016501 


000002 




5266 053554 


012702 


100204 




5267 053560 


020102 






5268 055562 


001406 






5269 053564 


005237 


0022X2' 




5273 053570 








053570 


104456 






053572 


001061 






053574 


054145' 






053576 


015374' 






5274 055600 








055600 


104406 






5275 053602 


013701 


053736' 




5276 055606 


010102 






5277 053610 


052702 


000001 




5278 055614 


020102 






5279 055616 


001406 






5280 055620 


005237 


002212' 




5284 055624 








055624 


104456 






055626 


001062 






055630 


0546/5' 






053632 


0153/4' 






52H5 055654 








053654 


104406 






bciae 053636 








053636 









|4tA*A*ih*A««*4i***4t************A**4i*AA4iAA4>4i****A**4t**AA**jf *4iii*A*A4i44i4i 



MOV 


#140210. T25PK3 


MOV 


#T25PK3.R4 


MOV 


R4»TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


0SSR,R2 


CMP 


R1,R2 


BEQ 


75» 


INC 


FATFLG 


ERRHRD 


ERRN0,T25WDE,EXPREC 



75$: 



CKLCOP 

MOV #20.T25RB 



I SPACE FORWARD, IE, ACK,CVC-1 COMMAND 

I SET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 

I WAIT FOR 5SR TO SET 

iGET TSSR CONTENTS 

iStT UP EXPECTED 

I ARE THEY EQUAL 

iBR, IF OK 

I BUMP COUNT 

I TSSR INCORRECT AFTER READ DATA 



(LOOP IF 



i NUMBER 



TRAP 


CIERHRD 


.WORD 


560 


.WORD 


T25W0E 


.WORD 


EXPREC 


SELECTED 




TRAP 


CiCLPl 


F RECORDS TO SPACE OVER 



(SPACE REVERSE. IE, ACK COMMAND 
t 



MOV 


♦100610, T25PK3 


MOV 


♦r25PK3.R4 


MOV 


R4.TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


0S5R!BIT2!SC.R2 


CMP 


R1.R2 


BEQ 


1751 


INC 


FATFLG 


ERRHRD 


ERRN0,T25W0E, EXPREC 



175$ 



CKLOOP 



MOV 


T258FR*14.RX 


iCET 


MOV 


R1,R2 


iSET 


BIS 


^IT0.R2 


iSET 


CMP 


R1.R2 


lARE 


BEQ 


180$ 


(OR. 


INC 


FATFLG 


;BUM 


ERRHRD 


ERRN0,T25Ni:K. EXPREC 


iNEF 



(SPACE REVERSE, IK. ACK 

iSET UP R4 WITH PACKET 

I ISSUE COMMAND 

iWAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

(SET l^ EXPECTED 

[ARE THEY EQUAL 

iBR. IF OK 

iBUMP COUNT 

I TSSR INCORRECT AFTER 



iLOOP IF SELECTED 



XST3 STATUS WORD 
UP EXPECTED 
THE RIO BIT 
THEY EQUAL 
IF EQUAL (GOOD) 
> COUNT 
SHOULD Bt SET 



COMMAND 
ADDRESS 



READ DATA 




TRAP 


C$ERHRD 


.WORD 


561 


.WORD 


T2f)W0F 


.WORD 


EXPREC 



TRAP 



C$CLP1 



180$ 



CKLOOP 
ENDSUe 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRl) 

562 

T.»^Ne> 

EXPRtC 



TRAP CJCt PI 

{ » ^>> > 1 >>> » >) END SUflFfST >>>>>>>>>'* >i 

LlOlOl; 



J15 
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055636 


104403 


5287 053640 


023727 002212' 


5C^B8 053646 


103402 


5289 053650 


004737 017104' 


5290 053654 




5291 




5292 




5295 




5294 053654 


004737 016360' 


5295 053660 


103002 


5296 053662 


000137 046536' 


5297 055666 




5298 053666 




053666 


104432 


053670 


001542 


5299 




5300 




5301 




5302 




5504 05367P 




5306 053700 




550^ 053700 


100004 


5308 053702 


053710' 


5309 053704 


000000 


5310 053706 


000010 


5311 053710 




5312 053710 


053722' 


5313 053712 


000000 


5314 053714 


000012 


5315 053716 


000000 


5316 055720 


000000 


531V 053722 




5318 




5519 




5320 




5522 054004 




5524 054010 




5325 054010 


10OOO6 


5326 054012 


054040' 


5327 054014 


000000 


5328 054016 


000006 


5329 




5351 054020 




5353 054030 




5354 054050 


100005 


5535 054032 




5536 054032 


005114' 


5557 054054 


000000 


5558 054036 


000000 


5559 




5340 




5341 




5. '^4 2 




554 5 054040 




5544 054040 


010 


5545 054041 


200 


5346 054042 


000000 



000017 



999$ i 

J 
I 



193*! 



CMP 
BLO 
JSR 



JSR 
BCC 
JMP 

EXIT 



FATFLG,*15. 

999 i 

PC , CKDROP 



PC.TSTLOOP 

193» 

T25L00P 



TST 



iLOCAl. STORAGE FOR THIS TEST 
I - 



.BLKB 


10-<. -T 


T25PACKET : 




.WORD 


100004 


.WORD 


T25DATA 


. WC-^O 





.WORD 


8. 


T25DATAi 




.WORD 


T25BFR 


.WORD 





.WORD 


10. 


.WORD 





T25DSW: .WORD 





T25E;FR: .BLKW 


25. 



jWRITE SUBSYSTEM MEMORY COMMAN^ PACKET 



.BLKB 



10-<.-TSV2£7> 



T25PK2I 


.WORD 
.WORD 
.WORD 
.WORD 


100006 

T25BF2 



6. 


T25PK3; 

T25Rfl: 
T25W8: 

T25SZ! 

• 


.BLKB 

.WORD 

.WORD 
.WORD 
.WORD 
.EVEN 


10-<, -TSV2£7> 

100005 

F REE 






1 

T25Bf 2: 
T25BS0: 
T.?5BS1: 

T25S2: 


.BYTE 
.BYTE 
.WORD 


10 

200 





SEQ 191 



TRAP 
lis ERROR COUNT AT 25 
I BR, IF LESS THAN 25 
I TRY TO DROP THE UNIT 



iDO WE NEED TO ITERATE TEST 
I BR, IF NO LOOP REQUIRED 
lEXECUTE AGAIN 



C$ESUB 



J ALL DONE THIS TEST 



TRAP 
.WORD 



CiEXIT 
L10071-. 



jCOMMANO PACKET FOR TEST 

jWftlTE CHARACTERISTICS COMMAND. WITH ACK 

(ADDRESS OF CHARACTERISTICS BLOCK 

(STARTING VALUE OF BLOCK SIZE 
iCHARACTERISTir*: DATA BLOCK 
(ADDRESS OF MESSAGE BUFFER 

;IENGTH OF MESSAGE BUFFER 

i'-A •' ECT DRIVE ZERO 
I MESSAGE BUFFER 



(WRITE SUB SYS MEM COMMAND, AND ACK 
(ADDRESS OF SELECT BLOCK DATA 

(SIZE OF DATA PACKET 



(READ COMMAND. AND ACK 
(ADDRESS OF WRITE BUFFER 
iblZE OF BU-"FER (EXTENT) 



iBSELO AREA 
iBSELl AREA 
;SEL ^ 



K15 



T5V7 - HARDWARE TESTS 1-9 
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SEQ 19^ 



534 7 

5348 

534*^ 

5350 

53:^1 

5352 

5353 

5354 

5355 

5356 

53^.7 

5558 

5359 

5360 

5361 

5362 

5363 

5364 

5365 

5366 

5367 

53C8 

5369 

53/0 

5371 

537? 

5'S73 

5374 

537!: 

5376 

5377 

5378 

5379 

5380 

5381 

558? 

5383 

5584 

5385 

5386 

5387 

5388 

5389 

5390 

5391 

5592 

5595 

5594 

5395 

5396 

5397 

5598 

5599 

5400 

5401 

5402 

5403 



054044 000000 



054046 
054050 
054052 
054054 

05405b 
054060 
054062 



054064 
054145 
054225 
054272 
054361 
054435 
054520 
054610 
054673 
054 755 
055035 
055104 
055157 
055230 



055246 
055246 
055252 
055256 
055262 
055266 
055270 
055274 
055300 
055502 
055506 
055510 
055314 
055320 
055526 
055530 



100005 
100405 
102005 

177777 

000000 
000000 
000000 



127 
124 
124 
124 
127 
123 
123 
125 
125 
125 
122 
104 
124 
123 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012m 
012702 
012762 
005 742 
022702 



122 
123 
141 
125 
162 
160 
160 
160 
160 
160 
145 
162 
125 
160 



111 
123 
160 
125 
151 
141 
141 
141 
141 
141 
167 
151 
123 
141 



053 700' 

100004 

053710' 

000012 
053722' 

000024 

000000 
000030 

177777 

000000 



053722 



T25S3: .WORD 



I 



iDATA AREA 



.EVEN 
:TAPE MOTION PACKET 



COMMAND VALUES 



T25RN: .WORD 

T25WDR: .WORD 

T25C0N: .WORD 

.WORD 



100005 
100405 
102005 
177777 



T25CN2 
T25CNT 
T25DLY 

i ^ 

i LOCAL 

i 



. WORD 
. WORD 
.WORD 



(READ DATA (NEXT) 
iREAO DATA RETRY 
I WRITE CONTINOUS 
I END OF DATA 

(COUNTER FOR RECORDS 
(COUNTER FOR RECORDS 
JC0UNTF.R FOR RECORDS 



TEXT MESSAGES FOR TEST 



T25SSR 
T25W0E 
TSSeOT 
T25TM: 
T25NeT 
T25UNG 
T25eNC 
T25WNH 
T25NEF 
T25RIB 
T25RWN 
T250FL 
T25WDC 
TST25ID! 



.ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 

.EVEN 



WRITE SUBSYSTEM Mi scttllancousi Rnad Status Failed' 

TSSR Not Corr«ct After POSITION (SPACE) Command' 

Tap« Not At BOT After REWIND Command' 

TSSR Not Correct After POSITION (Space Command) Reject' 

Wrtte Tape. Status Alert. But No EOT S*ns«d' 

Spac* Fortxard Failed To Position On Correct Record' 

Space Forward, From BOT, Failed To Clear BOT Indication 

Space Reverse Failed To Position On Correct Record' 

Space Reverse, At BOT, Failed To Set NEF CX5T0V 

Spacs Revsrse, Into BOT. FaiUd To Set RIB (XST3)' 

Rewind (POSITION) Command Not Accepted' 

Drive 7 Select Failed To Set "OFL" In TSSR' 

TSSR Not Correct After READ DATA Command' 

ASCIZ 'Space Records' 



iROUriNE TO RE^IORE COMMAND PACKET 
(WRITE SUBSYSTEM MEMORY COMMAND 
( 



TO START -U? C DEFAULT) VALUES 



T25REST: 




SAVREG 




MOV 


0T25PACKET.R1 


MOV 


^100004. CR1)» 


MOV 


OT250ATA.CR1)* 


CLR 


(RD* 


MOV 


«10. ,(R1)» 


MOV 


*T25BFR.(R1)* 


CLR 


(Rl)» 


MOV 


«20. .CRD* 


CLR 


(Rl)» 


MOV 


dO.CRl) 


MOV 


024. .R2 


64$: MOV 


#177777 J25BFR(R2) 


TST 


CR2) 


CMP 


00, R2 



(SAVE THE REGISTERS 

(START OF THE PACKET 

iURIlE SUBSYSTEM MEM. WITH ACK 

(ADDRESS OF CHARAISTIC5 DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

(ADDRESS OF MESSAGE BUFFER 



(LENGTH OF MESSAGE BUFFER 



(SELECT 
(NUMBER 



DRIVE ZERO 

OF LOCATIONS TO 



BE CLEARED 



(ALL ONES TO MESSAHE BUFFER 
(NEXT LOCATION 
lis R2 AT ZERO YET 



L15 



TSV7 - HARDWARE 


TESTS 1 


-8 


TeST 5: SPACE 


RECORDS 




S404 055554 


001571 




5405 055336 


000207 




5406 






5407 055340 






5408 055540 






5409 055344 


012701 


054010' 


5410 055350 


012721 


100006 


5411 055354 


012721 


054040' 


541? 055360 


005021 




5413 055362 


012721 


000006 


5414 055566 


005021 




5415 055370 


012701 


054040' 


5416 055574 


005021 




5417 055376 


005011 




5418 055400 


000207 




5419 055402 






5420 055402 






5421 055406 


012701 


054050 ' 


5422 055412 


012721 


000000 


5423 055416 


012721 


000000 


5424 055422 


005021 




5425 055424 


012721 


000000 


5426 0554 30 


000207 




5427 055432 






055432 






055432 


104401 




5428 






5429 






5450 






5451 






5432 






5453 






5434 






5435 






54 36 






54 3 7 






5438 






54 59 






5440 






5441 






5442 






5443 






5444 






5445 






5446 






5447 0554 34 






055454 






5448 055454 


012757 


006256' 


5449 055442 


004737 


017176' 


5454 055446 


012700 


074607' 


5455 055452 


004757 


016412' 


5456 055456 


012737 


000005 


5457 055464 


004737 


021U6' 


5458 055470 


005037 


072056' 


5459 






5460 






5461 







MACRO M1113 01 


•■FEB-04 


17:54 




BNE 


64$ 




RTS 


PC 


T25RT2! 


SAVREG 






MOV 


dT25PK2,Rl 




MOV 


0100006. CRD ♦ 




MOV 


*T25BF2,CRl)f 




CLR 


(Rl)» 




MOV 


*6. .CRD* 




CLR 


CRD* 




MOV 


«T25BF2,R1 




CLR 


CRD* 




CLR 


(Rl) 




RTS 


PC 


T25RT3: 


SAVREG 






MOV 


0T25PK?»R1 




MOV 


*0,(R1)* 




MOV 


*0.(R1V 




CLR 


(RD* 




MOV 


<>0,(R1)* 




RTS 


PC 




ENDTST 





SEQ 193 



iKEEP GOING 
; RETURN 



UNTIL DONE 



;SAVE THE REGISTERS 

I START or THE PACKET 

I WRITE SUBSYSTEM MEM. WITH ACK . 

: ADDRESS OF DATA BLOCK 

I EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

I POINT TO DATA SEL AREA 



iRETURN 

J SAVE THE REGISTERS 

I START Of THE PACKET 

(WRITE SUBSYSTEM MEM. WITH ACK, 

J ADDRESS OF DATA Bl UCK 

; EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

(RETURN 



L10071 



TRAP 



C$ETST 



SBTTL TEST 6; REREADS 



I * 



I THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT 
I COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
iDATA BUFFER 80UN0RIES, RECORD SIZES CUP TO 64K BYTES IF MEMORY 
jSPACE IS AVAILIABLE), AND BYTE-SWAP CSWP) AND OPPOSITE COPP) 
;CONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON 
J EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD 
;LEK5TH SHORT, READ REVERSE AT BOT . ILLEGAL DATA BUFFER ADDRESSES, 
iAND DATA BUFFERS IN NONEXISTENT MEMORY. 



;THE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS 



i - 



BGNTS* 



002170 



002206 



»TEST 6, 



MOV 


0EPRT2.EPRTSW 


JSR 


PC, 


.KTOt^F 


MOV 


0TST26ID.ro 


JSR 


PC, 


.TSTSETUP 


MOV 


05 


.LOOPCNT 


JSR 


PC, 


.MEMCK 


CLR 


T26CNT 


SUBTEST 1 





T6: : 
(SECONDARY ERROR MESSAGE 
jOON' r NEED Kill 
(ASCII MESSAGE TO IDENTIFY 
(00 INITIAL TEST SETUP 
(PERFORM 5 ITERATIONS 
(CHECK FOR MEMORY 
(CLEAR TAPE RECORD COUNTER 



TEST 



M15 



TSV7 - HARDWARE TESTS 1-tt 
TEST 6: REREADS 



5462 
5463 
5464 
5465 
5466 
5467 
5468 
5469 
5470 
5471 
5472 
5473 
54 74 
5475 
5476 
54 77 
54 78 
5479 
5480 



MACRO M1H3 Ol-FEB-84 17:54 



SEQ 194 



5481 
5482 
5483 
5484 
5465 
5486 
548/ 
5488 
5489 
5490 
5491 
5492 
5493 
5494 



055474 

055474 
0554/4 
055474 
055476 
05550.. 
055506 
055512 



104402 
004737 
004737 
004737 
012737 



5495 
5496 
549 7 
5501 
5502 



5503 
5504 
5505 
5506 
5507 



055520 
055524 
0S5526 
;5526 
'i532 
055534 
055540 
055542 
055546 
055550 
055554 
055556 
C55562 
055564 
055570 
055572 
0555 12 
055574 
055576 
055600 
055602 
055602 
055610 



004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

1U4455 
001131 
003642 
011734 

013737 
01270) 



074620 
074712 
074754 
176750 



072064 



015674' 

000250 

002116' 

177772 

177756 

072064' 

002212' 



002172' 071720' 
071700' 



(VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP-0 
I AND SWB-0 OPERATES PROPERLY. THE TAPE IS FIRST 
REWOUND AND THEN WRITTEN WITH A SERIES OF TEST 
RECORDS VARYING IN LENGTH AND DATA CONTENT. TI'E TAPE 
IS THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE 
TAPE IS SPACED FORWARD ONE RECORD AND A REREAD 
PREVIOUS COMMAND ISSUED. RESULTS (STATUS, DATA, 
ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD 
PREVIOUS COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 



T26L00P1 



JSR 


PC.T26REST 


JSR 


PC,T26RT2 


JSR 


PC.T26RT3 


MOV 


«65000. ,r26DLY 



BGNSUB ■>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T6.1: 

TRAP C$BSUB 
I SET COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
;SET UP DELAY COUNTER 

I ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
* 

10$: 



JSR 


PC.SOF 


INIT 


I DO INITIALIZE ON CONTROLLER 




BC5 


20 i 




iBR IF INIT WAS OK 




DELAY 


250 




;DELAY FOR A REWIND TO FINISH 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
DNE 


*250,CPC)* 


L$DLY,tPC)> 


'6(PC) 
. -4 
22(PC) 
. -20 


DEC 


T26DLY 




iOEC COUNTER 




RNF 


lOi 




iBR. IF DELAY NOT aFAD> 




INC 


FATf LG 




J BUMP COUNT 




MOV 


RO.Hl 




jCONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO. 


SFIERR.SFIMSG 


1 FATAL ERROR TSSR WAS NOT OK 

TRAP 

.WORD 
.WORD 
.WORD 


C»tHOF 

601 

SFItRH 

SFIMSG 



MOV 
MOV 



UNITN.T26DSU 
*T26PACKET,R4 



1 SET UP UNIT NUMBER 

: SUBROUTINE NEEDS PACKET ADDRESS 



• **4i**A4i4k4>**4(4i**<«tA*4i4i**A4i4*44ii'4^4i4^4^<«^«4LA4i*4iAA4L4>4L*4L4>4i44k44i*<K4L444i**4^^4L*4 



N15 



TSV/ - HARDWARt TESTS 1 
TEST 6: REREADS 



5S08 
5509 
5510 
5511 
5512 
5513 
5514 
5515 
5519 
5520 



-a 



5521 

5522 
5525 
5524 
5525 
5526 
5527 
5528 
5529 
5530 
5531 
5532 
5533 
5534 
5538 



5539 

5540 
5541 
5542 
5543 
5544 
5545 
5546 
5547 
5548 
5549 
5550 
5551 
5552 
5556 



5557 
5558 



055614 
055620 
C55622 
055626 
055630 
055630 
055632 
055634 
055636 
055640 
055640 



055642 
055646 
055650 
055654 
055660 
055602 
055666 
■■'55666 
55670 
^'55672 
055674 
055676 
055676 



055700 
055704 
055706 
055712 
055714 
055716 
055722 
055722 
055724 
055726 
055730 
055732 
055732 
055/34 



004737 
103407 
005237 
010001 

104456 
001132 
005046' 
011734' 

104406 



004737 
103413 
016501 
012702 
010004 
005237 

104456 
001133 
O/336'l' 
011746' 

104406 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
001134 
073075 
015374 

104406 
012703 



010562' 
002212' 



010714 

000002 
000200 

002212 



071730' 
000002 

0C2212' 



MACRO M1113 Ol-FEB-84 17:54 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



26$: 



JSR PC. WRTCHR 

BCS 26J 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSG , SFIMSG 



CKLOOP 



t ISSUE WRITE CHARACTERISTICS 
I BR, IF COMMAND ISSUED OK 
I BUMP COUNT 

(SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
. WORD 
I LOOP IF SELECTED 

TRAP 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

tCALL TAPE REWIND COMMAND 

I BR, IF NO PROBLEM 

iGET TSSR 
SET UP EXPECTED TSSR 
PACKET ADDRESS SET UP 
BUMP COUNT 

(REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


30 i 


MOV 


TSSRCR5),R1 


MOV 


*SSR.R2 


MOV 


R0.R4 


INC 


FATFLG 



ERRHRD ERRNO . T26RWN . PKTSSR 



30$ 



CKLOOP 



iLOOP IF SELECTED 



000400 



TRAP 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

;PICK UP XSTO 
tSET UP EXPECTED 
tSET BOT BIT IN EXPECTED 
iDOES EXP - REC'D 
;BR, IF EQUAL (OK) 
J BUMP COUNT 

iTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
. V;0R0 
.WORD 
[LOOP xF SELECTED 

TRAP 
;RECORD SIZE 



MOV 


T26BFR*6,R1 


MOV 


R.,R2 


BIS 


vmiTl,R2 


CMP 


R1,R2 


BEQ 


40$ 


INC 


FATFLG 



40$ 



ERRHRD ERRNO . T26B0T . EXPREC 

CKLOOP 

MOV ^>256. ,R3 



SEQ 195 



CSE^iHRD 
602 

WRTMSG 
SFIMSG 

C$CLP1 



TRAP 


C$ERHRD 


.WORD 


603 


.WORD 


T26RWN 


.WORD 


PKTSSR 



C$CL?1 



CJERHRD 
604 
T26B0T 
EXPREC 

CSCLPl 



Bib 



TSV7 HAROWARt TtSTS 18 
TEST 6; RfRtADS 
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SEQ 196 



5559 
5560 
5561 
556? 
5565 
5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
55 7u' 
5575 
5574 
5575 
5576 
3577 
55 70 
5579 
5583 



558*, 

5585 
5586 

5587 
5588 

5589 
5590 
5591 
5592 
5595 
5594 
5595 
5596 
5597 
5598 
5599 
5600 
5601 
5602 
5606 



5607 

5'.08 
5C.09 
5610 



055740 013737 003114' 072032 



MOV 



P'REE.T26nB 



055746 
055754 
055760 
055760 
055762 
055766 
055772 

0557 76 
056002 
056006 
056012 
056014 
056016 
056022 
056022 
056024 
056026 
056050 
056032 
056052 
056054 
056056 
056042 
056044 
056044 
056046 



056046 
056052 
056054 
056060 
056064 
056066 
056072 
056072 
056074 
0560 76 
056100 
056102 
056102 



012757 
012704 

010500 
004757 
010557 
010465 
OC 737 
016501 
012702 
020102 
001406 
005237 

104456 
001135 
005105' 

015574' 

104406 
005723 
022/03 
001346 

104406 



004757 
103415 
016501 
012702 
01OOO4 
005237 

104456 
001156 
075564' 

011746' 

104406 



I STARTING URITE BUFFER ADDRESS 



WRITE OATA.ACK.CVC-l COMMAND 



140005 
072030' 



017524' 

072056' 

000000 

016150' 

000002 

000200 



002212' 



072030 



65t: 



MOV 


#140005. T26PK3 


MOV 


#T26PK3.R4 


MOV 


R3,R0 


JSR 


PC.FILLMEM 


MOV 


R5.T26SZ 


MOV 


R4,TS0B(R5) 


JSR 


PC.WPITF 


MOV 


tssp:r5),ri 


MOV 


♦SSR,R2 


CMP 


Rl,R2 


BEQ 


751 


INC 


FATFLG 


ERRHflO 


ERRNO.WRTERR.EXPREC 



(WRITE 0ATA,ACK.CVC-1 C0MMA^40 
iSET UP R4 WITH PACKET ADDRESS 

I SET PATTERN IN CORRECT REGISTER 

iFiLL MEMORY WITH RECORD SIZE 

(SET tJP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

(WAIT FOR SSR TO SET 

iGF.T T5SR CONTENTS 

iSET UP EXPECTED 

I ARE THEY EQUAL 

iBR, IF OK 

iBJMP COUNT 

iTSSR INCORRECT AFTER WRITE DATA 



000414 



75»i 

80t: 
1201 



CKLOOP 

TST 
CMP 
BNE 
CKLOOP 



(R5). 
«268..R3 
65 1 



TRAP 


C»ERHRD 


.WORD 


605 


.WORD 


WRTERR 


• WORD 


EXPREC 


(LOOP IF SELECTED 




TRAP 


CiCLPl 


iBUMP RECORD SIZE 




lEND OF RECORD ^ET 




iBR, IF MORE RECORDS TO WRITE 




iLOOP IF SELECTED 





TRAP 



** 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



010714' 

000002 
000200 

0022X2* 



I CALL TAPE REWIND COMMAND 
I BR, IF NO PROBLEM 
I GET TSSR 

jSET UP EXPECTED TSSR 
I PACKET ADDRESS SET UP 
I BUMP COUNT 
ERRHRD ERRN0,T26RWN.PKTSSR iREWINO NOT ACCEPTED 



JSR 


PC, REWIND 


8CS 


1301 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


MOV 


R0.R4 


INC 


FATFLG 



150$ 



CKLOO^^ 



iLOOP IF SELECTED 



TRAP 



CICLPI 



TRAP 


CIERHRD 


.WORD 


606 


.WORD 


T26RWN 


.WORD 


PKTSSR 



CJCLPl 






C16 



TSV; HARDWARt 
TE^T h: REREAD 


TESTS 1 


-8 


5611 






5612 






5615 






5614 






5615 056104 


015701 


071730' 


5616 056110 


010102 




5617 056112 


052702 


000002 


5616 056116 


020102 




5619 056120 


001406 




5620 056122 


005257 


002212' 


5624 056126 






056126 


104456 




056130 


OOJ157 




056132 


075075' 




056134 


011746' 




5625 056156 






056156 


104406 




5626 056140 


012737 


000400 


562/ 






5628 






5629 






5630 






5651 






5652 






5655 






5654 






5655 056146 


012705 


OOOOOl 


5656 056152 


004757 


010566' 


56'.7 056156 


105412 




563? 056160 


016501 


000O02 


5659 0S61M 


012702 


000200 


5640 056170 


CX)5257 


002212' 


5644 056174 






056174 


104456 




056176 


001140 




056200 


072477' 




056202 


015574' 




5645 0562O4 






C56204 


104406 




5646 056206 


015703 


072062' 


564 7 056212 


015''37 


003114- 


5648 






5649 






5650 






5651 






5652 






5655 






5654 






5655 056220 


012757 


141001 


5656 056226 


012704 


072050' 


5657 056252 


010557 


072036 


565« 056256 


010465 


OOOOOO 


5659 056242 


004757 


016150' 


5660 056246 


016501 


000002 


5661 056252 


012702 


000200 


5662 056256 


02C102 




5663 056iit*0 


001406 
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SEQ 197 



iREAD MESSAGE BUFFER EXTENDED STAfUS REGISTER ZERO CXSTO) 
1 

iPICK UP XSTO 

iSET UP EXPECTED 
(SET BOT BIT IN EXPECTED 
iDOES EXP - REC'D 
|BR. IF EQUAL (OK) 
I BUMP COUNT 

I TAPE NOT AT BOT AFTER REUINO 

TRAP 
.WORD 
.UORD 
.UORD 
iLOOP IF SELECTED 

TRAP 
I SET RECORD SIZE 



MOV 


T26BFR»6.R1 


MOV 


R1.R2 


BIS 


*eiTl.R2 


CMP 


R1.R2 


BEQ 


1401 


INC 


FATFLG 



ERRHRD ERRN0.T26BOTpPl<TSSR 



140»: 



CKLOOP 
MOV 



«256..T26RSZ 



CIERHRD 
607 
T26B0T 
PKTSSR 

CJCLPl 



ISSUE SPACE RECORDS COMMAND - VALUE IN R5 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - 0-FOflWARD 1-REVERSE 



145»: 



MOV 


♦ 1.R5 


JSR 


PC. SPACE 


BC5 


1501 


MOV 


TSSR(R5).R1 


MOV 


♦SSR.R2 


INC 


FATFLG 


ERRHRD 


ERRN0,T26SC,EXPREC 



072052 



1501: CKLOOP 

MOV 
MOV 



(SPACE ONE RECORD PARAMETER 

iCALL SPACE ROUTINE 

I BR, IF NO PROBLEM UITH SPACE COMMAND 

iGET T55R 

I SET UP EXPECTED TSSR 

I BUMP COUNT 

iPOSITlON (SPACE RECORDS) FAILED 

TRAP CIERHRD 
. UORD 608 
.WORD T26SC 
.UORD EXPREC 



T26RSZ,R5 
FREE.T26RB 



(RECORD SIZE 
jSTARTING READ 



TRAP 
BUFFER ADDRESS 



CICLPI 



REREREAD OATA.CVC-l , ACK COMMAND 



72030' 



165*; 



MOV 


0141001, T26PK5 


MOV 


OT26PK5.R4 


MOV 


R5.T26SZ 


MOV 


R4.TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


CMP 


PI.R2 


BEQ 


1701 



iREREREAD DAT A.CVC-l , ACK COMMAND 
iSET UP R4 WITH PACKET AOORESS 
J SET UP RECORD SIZE IN PACKET 
I ISSUE COMMAND 
lUAIT FOR SSR TO SET 
iGfcT TSSR CONTENTS 
(SET UP EXPECTED 
I ARE THE> EQUAL 
iBR. IF OK 



D16 



1SV7 - HARDUARt 
TEST b: REREAD 


JESTS 1 


6 


5664 056262 


005257 


002212' 


566Q 056266 






056266 


104456 




056270 


001141 




056272 


075720' 




056274 


011746- 




5669 056276 






056276 


104406 




5670 056500 


015702 


005114' 


5671 056304 


010504 




5672 056506 


162704 


000400 


56 75 056312 


060204 




5674 056514 


021405 




5675 056516 


001410 




56 76 056520 


011401 




56 7 7 056522 


010502 




56/8 056324 


005257 


002212' 


5682 056550 






056550 


104456 




056552 


001142 




056554 


075142' 




056556 


015574- 




56t55 056540 






056540 


104406 




56ft4 056542 


005724 




5685 056544 


160204 




5686 056546 


020405 




5687 056550 


001560 




5680 056552 


005725 




5689 056554 


010337 


072062' 


5690 056560 


022705 


000412 


5691 056564 


001270 




5692 056566 






056566 


104406 




5695 056570 






056570 






056570 


104405 




5694 0565 72 


025727 


002212' 


5695 056400 


105402 




5696 0564C2 


004 737 


017104' 


5697 056406 






5698 






5699 






5700 






5701 






5 702 






5705 






5 704 






5 705 






5 706 






5707 






5 708 






5 709 






5710 






'.- n 






b'/ld 056406 






056406 







MACRO M1113 Ol'fEB 84 I7i54 



000017 



INC 
CRRHRD 



170* : CKLOOP 

MOV 
MOV 
SUB 
175* : ADO 
CMP 
BEQ 
MOV 
MOV 
INC 
ERRHRD 



1801 J CKLOOP 



190 »: 



999 « : 



ENDSUB 



CMP 
BLO 
JSR 



f ATFLG 
ERRN0,T26WDC,PKTSSR 



FREE.R2 
R3,R4 
*256. ,R4 
R2.R4 

(R4),R5 

180> 

(R4).R1 

R5.R2 

FATruG 

ERRNQ,T26DTA,EXPREC 



TST 


(R4)^ 


S^« 


R2,R4 


CMP 


R4.R5 


BNE 


1751 


TST 


CR5)» 


MOV 


R3.T^6R5^ 


CMP 


«266, .R3 


BNE 


I45i 


CKLOOP 





FATFLG,dl5. 

9991 

PC, CKDROP 



SEQ 198 



iBLiMP 
iTSSR 



COUNT 
INCORRECT 



AFTER 



iLOO- IF SELECTED 



REREAD 
TRAP 
.UORD 
.UORD 
.WORD 



DATA 

CIERHRD 
609 
T26WDC 
PKTSSR 



TRAP 
TO R2 



I CURRENT BUFFER ADDRESS 

I CURRENT RECORD SIZE 

iFIRST LOCATIOfJ IN BUFFER 

(SET UP POINTER 

(CHECK DATA READ (R5-DATA ALSO) 

iBR. IF ALL IS WELL 

(RECO DATA 

(EXPECTED DATA 

iBUMP COUNT 

(DATA READ NOT - WRITTEN 

TRAP 
.WORO 
.WORD 
WORD 

ILOOP IF SELECTED 

TRAP 

iBUMP TO NEXT LOCATION 

(CORRECT RECORDS SIZE VALUE 

lENO OF RECORD YET 

lBR» IF NOT AT END OF RECORD 

iBUMP RECORD SIZE 

(RESET RECORD SIZE 

(END OF RECORD YET 

(BR, IF MORE RECORDS TO READ 

(LOOP IF SELECTED 

TRAP 



CJCLPl 



OERHRD 
610 
T26DTA 
EXPREC 

CJCLPl 



C*CLP1 



END SUBTEST 
L10105r 

TRAP 
(IS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



>>>i>iv>^>>> 



CJESUB 



(TEST 6. SUBTEST 2 

iVERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP-0 

(AND SU6-1 OPERATES PROPERLY. THE TEST SEQUENCE IS 

(THE SAME AS THAT USED IN SUBTEST I. BUT IT IS 

(VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 

(SWAPPED BYTES. 

1 

1 

I 

I ■ 



BGNSUB 



I >«>>>>^))>>> 



BEGIN SUBTEST 
T6.2: 



'kV>N'i'i>\>'»>> 



TSV/ - HARDWARE TESTS 1 
TEST 6: RLREA05 



-8 



E16 



MACRO M1U3 01-FEB-a4 I7t54 



SEQ 199 



056^06 


104402 




5715 056410 


004 757 


074620' 


5714 056414 


004 757 


074712' 


5715 056420 


004737 


074754' 


5716 






5717 






571fl 






571*> 






57,:o 






5721 






5/^c? 






5723 056424 


004737 


015674' 


57?4 056450 


105407 




5725 056452 


005257 


002212' 


5729 056456 


010001 




5750 056440 






056440 


104455 




056442 


001145 




056444 


005642' 




056446 


011754' 




5751 056450 


015757 


002172' 071720 


5752 






5755 056456 


015704 


071700' 


5754 






5755 






5756 






5757 






5756 






5759 






5740 






5741 056462 


0O4 75 7 


010562' 


5742 056466 


105407 




5 745 056470 


005237 


002212' 


574 7 056474 


010001 




5748 056476 






0564 76 


104456 




056500 


001144 




056502 


005046' 




056504 


011754* 




5749 056506 






056506 


104406 




5750 






5751 






5752 






5755 






5754 






5755 






5756 






5757 056510 


004757 


010714' 


5758 056514 


105413 




5 759 056516 


016501 


000002 


5 760 056522 


012702 


000200 


5761 056526 


010004 




5 762 056550 


005257 


002212' 


5 766 056554 






056554 


104456 




056556 


001145 





JSft 


PC,T26REST 


JSR 


PC.T26RT2 


JSR 


PC,T26RT3 



TRAP 
I SET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 

J ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
( 



C$BSUB 



20$: 



JSR 


PC.SOriNIT 


(DO INITIALIZE ON CONTROLLER 




BCS 


20$ 


iBR IF INIT WAS OK 




INC 


FATFLG 


jBUMP COUNT 




MOV 


RO.Rl 


iCONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


I FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDK 






.WORD 


611 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T260SU 


;SET UP UNIT NUMBER 





MOV 



*T26PACKET.R4 



(SUBROUTINE NEEDS PACKET ADDRESS 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
1 



26$: 



JSR PC. WRTCHR 

BCS 26$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG . SF IMSG 



CKLOOP 



(ISSUE WRITE CHARACTERISTICS 
(BR. IF comma:© ISSUED OK 
(BUMP COUNT 

[SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 

TRAP 



C$ERHRO 
612 

WRTMSG 
SFIMSG 

C$CLP1 



t **. ****************** *4****«***«**«***«****444t**4«4*****4«**«**4«4 

(ISSUE REWTND COMMAND TO SELECTED TAPE DRIVE 
I 

)*****4******4k**********«***«*«*>)>**A*4i**********«********«*******«* 

(CALL TAPE REWIND COMMAND 

(BR. IF NO PROBLEM 

(GET TSSR 

(SET UP EXPECTED TSSR 

(PACKET ADDRESS SET UP 

(BUMP COUNT 

(REWIND NOT ACCEPTED 

TRAP 
.WORD 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


TSSR(R5),R1 


MOV 


♦SSR,R2 


MOV 


R0.R4 


INC 


FATFLG 



ERRHRD ERRNO . T26RWN . PK T 5SR 



CJERHRO 
613 



F16 



TSV/ - HARDWARt 


TtiiTS 1 


-a 


TUST 6; REREADS 




056540 


075364' 




056542 


011V46' 




5767 056544 






056544 


104406 




5;6a 






5/69 






5770 






5771 






577? 






577? 






5774 






5775 056546 


013701 


071730' 


5776 05655^ 


010102 




5777 056554 


052702 


000002 


5778 056560 


020102 




5779 056562 


001406 




57fl0 056564 


005237 


002212' 


5784 056570 






05657O 


104456 




0565 /2 


001146 




056574 


073075' 




056576 


015374' 




5785 056600 






0566O0 


104406 




5 786 05660? 


012705 


000400 


5787 056606 


013737 


003114' 


5788 






5769 






5790 






5791 






5792 






5795 






5794 






5 795 056614 


012757 


110005 


5796 056622 


012704 


072030' 


5/97 056626 






5798 056626 


010300 




5799 056630 


004737 


017524' 


5800 056654 


010357 


072056' 


5801 056640 


010465 


000000 


5802 056644 


0O4737 


016150' 


5805 056650 


016501 


000002 


5804 056654 


012702 


000200 


5d05 056660 


020102 




5806 056662 


001406 




580/ 056664 


0O5257 


002212' 


5811 056670 






056670 


104456 




0566 72 


0O1147 




0566 74 


OO5105' 




056676 


011746' 




5812 056700 






056700 


104406 




5813 056702 


005725 




5814 056704 


022705 


000414 


5815 056710 


001346 




5816 056712 







MACRO M1113 Ol-FtB-84 17;54 



SEQ 200 



30$: 



CKLOOP 



iLOOP IF SELECTED 



.WORD 
.WORD 

TRAP 



T26RWN 
PKTSSR 

C$CLP1 



072032 



(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 
I 

(PICK UP X5T0 
iSET UP EXPECTED 
(SET SOT BIT IN EXPECTED 
(DOES EXP • REC'O 
;BR. IF EQUAL (OK) 
iBUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40$; CKLOOP iLOOP IF SELECTED 

TRAP 
(RECORD SIZE 
(STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR*6,R1 


MOV 


R1.R2 


BIS 


*eiTl,R2 


CMP 


R1,R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO . T26B0T , EXPREC 



CKLOOP 

MOV 

MOV 



#256. .R3 
FREE . T26RB 



C$ER^)RD 
614 
T26B0T 
EXPREC 

CJCLPl 



(WRITE DATA.ACK.SWe COMMAND 



072030 



I* 



65$ 



MOV 


0110005, T26PK3 


MOV 


OT26PK5,R4 


MOV 


Ro.RO 


JSR 


PC.FILLKEM 


MOV 


R5,T26SZ 


MOV 


R4,TS0BCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


RI.R2 


BEQ 


/5$ 


INC 


FATFLG 



ERRHRD ERRNO , WRTERR , PKTSSR 



/5S 



80$ 



CKl OOP 

TST 
CMP 
BNf 
CKLOOP 



(R5)* 
P2tQ. ,R3 
65$ 



(WRITt DATA.ACK.SWB COMMAND 
(SET UP R4 WITH PACKET ADDRESS 

(SET PATTERN IN CORRECT REGISTER 

(FILL MEMORY WITH RECORD ?XZE 

(SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR, IF OK 

(BUMP COUNT 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP CiERHRD 
.WORD 615 
.WORD WRTERR 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP CSCLPl 

(BUMP RECORD SIZE 

jENO OF RECORD YET 

[DR. IF MORE RECORDS TO WRITE 

(LOOP IF SELECTED 



TSV7 - HAHOWARE TESTS 1 
TEST 6: REREADS 



-a 



G16 



MACRO MHIS 0X-FEB-a4 17:54 



SEQ 201 





056712 


104406 




5817 


056714 






5618 








5819 








58?0 








5821 








58c»2 








58^5 








5824 








5825 


056714 


004757 


010714' 


5826 


056720 


103413 




58.»; 


056/22 


016501 


000002 


5828 


056726 


012702 


000200 


5829 


056752 


010004 




5850 


056754 


005257 


002212* 


5834 


056740 








056740 


104456 






056742 


001150 






056744 


073564' 






056746 


011746' 




5855 


056750 








056750 


104406 




5836 








5857 








5858 








5859 








5840 








5841 








5842 








5843 


056752 


013701 


071750' 


5844 


056756 


010102 




5645 


056760 


052702 


000002 


5646 


056764 


020102 




5847 


056/66 


001406 




5848 


0567 70 


00525/ 


002212' 


5852 


056/74 








056 774 


104456 






056776 


001151 






05/0OO 


073075' 






057002 


015574' 




5855 


0570O4 








057004 


104406 




5854 


057006 


012737 


000400 


5855 








5856 








5857 








5858 








5859 








5860 








5861 








5862 








5665 


057014 


012705 


000001 


5864 


057020 


004 737 


01C366' 


5865 


05 7024 


10341? 




5866 


057026 


016501 


000002 


5867 


057052 


012/02 


000200 


5868 


057036 


005237 


002212' 



120$: 



TRAP 



C$CLP1 



072062 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
( 

J **4>*A***« ********* *********«*4i4i***4i4>4i**4i4i**4t*w ******4>****4******** 

I CALL TAPE REWIND COMMAND 
I BR. IF NO PROBLEM 
iGET TSSR 

iSET UP EXPECTED TSSR 
iPACKET ADDRESS SET UP 
I BUMP COUNT 
ERRHRD ERRN0.T26RWN.PKTSSR i REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


130$ 


MOV 


TSSR(R5).R1 


MOV 


0SSR.R2 


MOV 


R0.R4 


INC 


FATFLG 



130* : CKLOOP 



iLOOP IF SELECTED 



TRAP 


CIERHRD 


.WORD 


616 


.WORD 


T26RWN 


.WORD 


PKTSSR 



TRAP 



MOV 


T26BFR*6,R1 


MOV 


R1.R2 


BIS 


*flITl.R2 


CMP 


R1.R2 


BEQ 


140» 


INC 


FATFLG 



ERRHRD ERRNO , T26B0T , EXPREC 



{********«***********************4i«*******«*********««***4i4t*4i4 4i*^.4i4t 

(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

t 

{*******************•******«*************************************** 

iPICK UP XSTO 
J SET UP EXPECTED 
jSET BOT BIT IN EXPECTED 
I DOES EXP - REC'D 
;BR, IF EQUAL (OK) 
I BUMP COUNT 

J TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
140$: CKLOOP jLOOP IF SELECTED 

TRAP 
MOV «256.,T26R5Z (SET 'JP RECORD SIZE 

I****************************************************************** 

i ISSUE SPACE RECORDS COMMANO - VALUE IN R5 SETS NUMBER OF RECORDS 

iBIT 15 SETS DIRECTION - 0-fORWARO 1-REVERSE 

i 

;*******«**d*****************«i*** ********************************** 



145»: 



MOV 


«UR5 


JSR 


PC. SPACE 


BCS 


1501 


MOV 


TSSR(R5).R1 


MOV 


flS3R.R2 


INC 


FATFLG 



CJCLPl 



CIERHRD 
617 
T2CB0T 
EXPREC 

C$CLP1 



(SPACE ONE RECORD PARAMETER 

I CALL SPACE ROUTINE 

iBR. IF NO PROBLEM WITH SPACE COMMAND 

tGET TSSR 

I SET UP EXPECTED TSSR 

I BUMP COUNT 



-116 



TSV7 - HARDWARE 


TESTS 1 


-8 


TEST 6: REREADS 




5872 057042 






05/042 


104 •♦56 




057044 


001152 




057046 


072477' 




057050 


015574' 




5875 057052 






057052 


104406 




5874 057054 


013705 


0720^2' 


5875 057060 


013737 


005114' 


5876 






5877 






58/8 






5879 






5880 






5881 






5882 






5883 057066 


012737 


151001 


5884 057074 


012704 


072050' 


5885 057100 


010537 


072056' 


5886 057104 


010465 


000000 


5887 057110 


004757 


016150' 


5888 057114 


016501 


000002 


5889 057120 


012702 


000200 


5890 057124 


020102 




5891 057126 


001406 




5892 057150 


005237 


002212' 


5896 057154 






057154 


104456 




057156 


001155 




057140 


073720' 




057142 


011746' 




5897 057144 






057144 


104406 




5898 057146 


015702 


005114' 


5899 057152 


010504 




5900 057154 


162704 


000400 


5901 057160 


060204 




5902 057162 


021405 




5903 057164 


001410 




5904 057166 


011401 




5905 057170 


010502 




5906 057172 


005257 


002212' 


5910 L57176 






057176 


104456 




057200 


001154 




057202 


073142' 




057204 


015574' 




5911 0572O6 






057206 


104406 




5912 057210 


005724 




5915 057212 


160204 




5914 057214 


020403 




5915 057216 


001560 




5916 057220 


005723 




5917 05 7222 


010337 


7P062' 


5918 05 7226 


022 703 


000412 


5919 057^52 


001270 





MACRO M1113 Ol-FEB-84 17:54 



SEQ 202 



ERRHRD ERRNO , T26SC , EXPREC 



072032 



150$! CKLOOP 

MOV 
MOV 



iPOSITION C3PACE RECORDS) TAILED 

TRAP CIERHRD 
.WORD 618 
.WORD T26SC 
.WORD EXPREC 



T26RSZ.R5 
FREE,T26RB 



iRECORD SI2E 
iSTAHTING READ 



TRAP 
BUFFER ADDRESS 



CJCLPl 



i 

1 REREAD DATA.CVC-l.ACK.SWB COMMA?^ 



165$! 



MOV 


0151001, ;26PK3 


MOV 


#T26PK3.R4 


MOV 


R3.T26SZ 


MOV 


R4,TS00CR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


6EQ 


1701 


INC 


FATFLG 


ERRHRD 


ERRNO. T26W0C,PKTSSR 



170$! 



173$! 



180$: 



J REREAD DATA,CVC-1.ACK.S:« COMMAND 

iSET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

1 ISSUE COMMAND 

iWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

lAkt THEY EQUAL 

jBR. IF OK 

iBUMP COUNT 

;TSSR INCORRECT AFTER REREAD DATA 







TRAP 


C$ERHRD 






.WORD 


619 






.WORD 


T26W0C 






.WORD 


PKTSSR 


CKLOOP 




jLOOP IF SELECTED 








TRAP 


CJCLPl 


MOV 


FREE.R2 


jCm^RENT BUFFER ADDRESS TO R2 




MOV 


R5.R4 


(CURRENT RECORD SIZE 




sue 


«256. ,R4 


(FIRST LOCATION IN BUFFER 




ADD 


R2.R4 


(SET UP POINTER 




CMP 


(R4).R5 


(CHECK DATA READ (R5-DATA ALSO) 




BEQ 


180* 


(BR. IF ALL IS WELL 




MOV 


(R4).R1 


:RECO DATA 




MOV 


R5,R2 


(EXPECTED DATA 




INC 


FATFLG 


iBunp COUNT 




ERRI-IRD 


ERRNO, T26DTA. EXPREC 


(DATA READ NOT - WRITTEN 








TRAP 


C.tRHRO 






.WORD 


620 






.WORD 


T260TA 






.WORD 


EXPREC 


CKLOOP 




(LOOP IF SELECTED 








TRAP 


CSCLPl 


TST 


(R4). 


iBUriP TO NEXT LOCATION 




SUli 


Rc,R4 


(CORRECT RECORDS SIZE VALL* 




CMP 


R4.R5 


iFNO OF RECORD YET 




BNE 


175$ 


iBR. IF NOT AT ENO OF RECORD 




TST 


(R5)t 


iBUMP RECORD SIZE 




MOV 


R^.T:^6fl5Z 


(STORE RECORD SIZE 




CMP 


0266 . ,R3 


(END OF RECORD >ET 




BNE 


145$ 


I BR, IK MORE RECORDS TO READ 
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TSV7 ' HARDWARE TESTS 1-8 
TEST 6: REREADS 



MACRO Mllt3 Ol-FEB-84 17:54 



SEQ 203 



5920 
59? 1 



5922 
5925 
5924 
5925 
5926 
592/ 
5928 
5929 
5930 
5931 
59. V 
5933 
5934 
59 55 
5936 
5957 
5938 
5939 
5940 
5941 
5942 
5943 
5944 
5945 
594ft 
594 7 
5948 
5949 
5950 
5951 
591-2 
59t">5 
5954 
5955 
5956 
5957 
5958 
5959 
5960 



5961 
5962 
5963 
5964 
5965 
5966 
596/ 
5968 
5969 
5970 
59Vx 



057234 
057234 
057256 
057236 
05 7236 
057240 
057246 
057250 
057254 



104406 



104403 
023 727 
103402 
004737 



002212' 000017 
017104' 



057254 
057254 
057254 
057256 
05 7262 
057266 
057272 



104402 
0O4737 
005057 
004 737 
004737 



074620' 
072056' 
074712' 
074754* 



190 J: 



999$: 



CKLOOP 
ENOSUB 



CMP 
BLO 
JSR 



FATrLG.*15. 
999 » 
PCCKDROP 



(LOOP IF SELECTED 

TRAP CJCLPl 
!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10104: 

TRAP C*ESUB 
lis ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



TEST 6, SUBTEST 5 

VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP-1 
(READ REVERSE. SPACE FORWARD) AND SWB-0 OPERATES 
PROPERLY, THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
WITH A SERIES OF TEST RECORDS VARYING IN LEHGTH AND 
DATA CONTENT I THE FIRST FOUR BYTES OF EACH RECORD 
CONTAIN ITS RECORD NUMBER (INDICATING POSITION ON 
TAPE). TH? TAPE IS THEN REWOUND AGAIN. FOR EACH 
TEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED. 

1. THE REREAD PREVIOUS COMMAND WITH OPP-1 IS ISSUED 
AND THE RESULTS CHECKED 

2. A READ FORWARD COMMAND IS THEN ISSUED AND THE 
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
POSITIONED PROPERLY AFTER THE REREAD Prrv/TOt's 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START OF THE TEST RECORD). THE 
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 

THE BUTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET 
TO THE LENGTH OF THE EXPECTED RECORD. SO NO 
EXCEPTIONAL CONDITIONS SHOULD OCCUR. 



BGNSU6 



JSR 
CLR 
JSR 
JSR 



PC.T26REST 
T26rNT 
PC. I26RT2 
PC,T26RT5 



1 >)>)>>>>>>>^ BEGIN SUBTEST >>>>>>>>>>^> 

T6.3; 

TRAP C5BSUB 
,SET COMMAND PACKET 
I CLEAR TAPE RECORD COUNTER 
iSET UP OTHER COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 



(ISSUE CONTROLLER "SOFT" INITIALISE - CARRY BIT CLEAR IF ERROR 

i 
|4i4i*«4lA*4>**4i<*4>4>**A*«***********«********«***«****4i***************** 



J16 



TSV7 - HARDWARE THSTS 1 
TEST 6: REREADS 



5972 
5973 
59 74 
597fl 
5979 



5980 
5981 
5982 
5983 
5964 
5985 
S986 
5967 
5988 
5989 
5990 
5991 
599? 
5996 
5997 



5998 

5999 
6000 
600 1 
6002 
6003 
6004 
6005 
6006 
6007 
6008 
6009 
6010 
6011 
6015 



6016 

6017 
6016 
6019 
6020 
6021 
60^2 
6023 



057276 
057302 
057304 
057310 
057312 
057312 
057314 
057516 
057320 
057322 



057354 
057340 
057542 
057346 
057350 
057350 
057352 
057354 
057556 
057560 
057360 



057562 
057566 
057570 
057574 
05 7400 
057402 
057406 
057406 
057410 
057412 
057414 
057416 
057416 



004757 
105407 
005257 
010001 

104455 

001155 

005642' 

011754' 

015757 



057330 012704 



004757 
105407 
005257 
010001 

104456 
001156 
005046' 
011754' 

104406 



004757 
105415 
016501 
012702 
0100O4 
005257 

104456 
001157 
075564' 
0U746' 

104406 



6 

015674' 
002212' 



002172 
071700 



010562 
00221i^ 



010714- 

000002 
000200 

002212' 
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SEQ 204 



071720' 20$: 



JSR 


PC.SOFINIT 


lOO INITIALIZE ON CONTROLLER 




BCS 


20$ 


iBR IF INIT WAS OK 




INC 


FATFLG 


iBUMP COUNT 




MOV 


RO.Rl 


iCONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


I FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


621 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN,T26DSW 


(SET L»P UNIT NUMBER 





MOV 



0T26PACKET,R4 



I SUBROUTINE NEEDS PACKET ADDRESS 



I WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

I 

{**********«*********************«********************************* 



26$: 



JSR PC, WRTCHR 

BCS 26$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



; ISSUE WRITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
jBUMP COUNT 

tSAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTI5C FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
iLOOP IF SELECTED 

TRAP 



;*********************************«******************************** 

J ISSUE REWIND COMMAND TO SELFCTEJ TAPE DRIVE 

* 

{*«*******«•*****«****«>«*********«***«*. -Ik «***********************4** 

jCAlL tape REWIND COMMAND 

I BR. IF NO PROBLEM 

iGET TSSR 

tSET UP EXPECTED TSSR 

iPACKET ADDRESS SET UP 

jBl^lP COUNT 

I REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


TSSR(R5),R1 


MOV 


*SSR.R2 


MOV 


R0.R4 


INC 


FATFLG 



50$: 



ERRHRD ERRNO, T26RWN,PKTSSR 



CKLOOP 



iLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



j«***********«****«*4***************************ik**********«******* 

1 

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
I 

J *************************************************** ****«****4i4.**** 



Ci^ERHRD 
622 

WRTMSG 
SFIMSG 

C$CLP1 



C$ERHRD 
623 

T26RWN 
PKTSSR 

C$CLP1 



Klb 



TSV7 - HARDWARE 


TESTS 1 


-8 MACRO M 


TEST 6: 


REREADS 




6024 


057420 


013701 


071730' 


6025 


057424 


010102 




6026 


057426 


052702 


000002 


6027 


057432 


020102 




6028 


057434 


001406 




6029 


057436 


005237 


002212' 


6033 


057442 








057442 


104456 






057444 


001160 






057446 


073075- 






057450 


015374' 




6034 


057452 








057452 


104406 




6055 


057454 


012703 


000400 


6036 


057460 


013737 


003114' 072032' 


6037 








6038 








6039 








6O40 








6041 








6042 








6043 








6044 


057466 


012737 


140005 072030' 


6045 


057474 


012704 


072030' 


6046 


057500 






6047 


057500 


010300 




604B 


057502 


004737 


017324' 


6049 


057506 


010337 


072036' 


6050 


057512 


013777 


072056' 123374 


6051 


057520 


062737 


000001 072056' 


6052 


057526 


010465 


000000 


6053 


057532 


004737 


016150' 


6054 


OS 7536 


016501 


000002 


6055 


057542 


012702 


000200 


6056 


057546 


020102 




6057 


057550 


001406 




6058 


057552 


005237 


002212' 


6062 


057556 








057556 


104456 






05 7560 


001161 






057562 


005105' 






057564 


011746' 




6063 


057566 








057566 


104406 




6064 


057570 


005723 




6065 


057572 


022703 


000414 


6066 


057576 


001401 




6067 


057600 


000737 




6068 


057602 






6069 


057602 


005037 


072056' 


60/0 








6071 








6072 








bon 








60 74 








6075 








6076 
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SEQ 205 



MOV 


T26BrR*6.Rl 


MOV 


R1.R2 


BIS 


0BIT1,R2 


CMP 


R1,R2 


BEQ 


40* 


INC 


FATFLG 



ERRHRD ERRNO , T26B0T . EXPREC 



40$: 



CKLOOP 

MOV 
MOV 



*256. ,R3 
FREE.T26RB 



(PICK UP XSTO 

iSET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

I DOES EXP - REC'D 

I BR, IF EQUAL COK) 

I BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 

iRECORO SIZE 

i STARTING WRITE BUFFER ADDRESS 



C$ERI-*RD 
624 

T26B0T 
EXPREC 

C$CLP1 



J WRITE DATA.CVC-l.ACK COMMAND 
* 



65$: 



MOV 


#140005, T26PK3 


MOV 


*T26PK3,R4 


MOV 


R3,R0 


JSR 


PCFILLMEM 


MOV 


R3.T26SZ 


MOV 


T26CNT,aFReE 


ADD 


#1,T26CNT 


MOV 


R4.T50B(R5:) 


JSR 


PC.UAITF 


MOV 


TSSRCR5),R1 


MOV 


*SSR,R2 


CMP 


R1,R2 


BEQ 


75> 


INC 


FATFLG 



75$ 



ERRHRD ERRNO , WRTERR . PI< TSSR 



CKLOOP 



TST 


(R3)* 


CMP 


«268. ,R3 


BEQ 


120$ 


BR 


65$ 



120$ 



CLR 



T26CNT 



(WRITE DATA.CVC-l.ACK COMMAND 
I SET UP R4 WITH PACKET ADDRESS 

I SET PATTERN IN CORRECT REGISTER 

;FILL MEMORY WITH RECORD SIZE 

I SET UP RECORD SIZE IN PACKET 

I MOVE TAPE RECORD NUMBER TO BUFFER 

i NUMBER READY FOR NEXT RECORD 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

I BR, IF OK 

I BUMP COUfJT 

(TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
. WORD 625 
.WORD WRTERR 
.WORD PKTSSR 

jLOOP IF SELECTED 

TRAP CJCLPl 

iBUMP THE RECORD SIZE 

(MAXIMUM SIZE YET 

iBR, IF AT END OF WRITE SEQUENCE 

J WRITE MORE RECORDS 

(SET RECORD COUNTER BACK TO ZERO 



[**********************«*******************«*******4,*4,***4,*4*4*4,^4,4, 

I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
t 

J********«********«***4i4k**4i>|,*4^4i«**4k4i4i4i4i4i4i4t«4i%4t4t******************** 



L16 



TSV7 - HARDWARE TESTS I 
TEST 6: REREADS 



-8 



6077 057606 


004737 


010714' 


b076 057612 


103413 




60 79 057614 


016501 


000002 


6080 057620 


012702 


000200 


6081 057624 


010004 




6082 057626 


005237 


002212' 


6086 057632 






057652 


104456 




057634 


001162 




057636 


073364' 




057640 


011746' 




6087 057642 






057642 


104406 




6088 






608'^ 






6090 






6091 






6092 






6093 






6094 






6095 057644 


013701 


071730' 


6096 057650 


010102 




6097 057652 


052702 


000002 


6098 057656 


020102 




6099 057660 


001406 




6100 057S62 


005237 


002212' 


6104 057666 






057666 


104456 




057670 


001163 




057672 


073075' 




057674 


015374' 




6105 057676 






057676 


104406 




6106 






6107 






6108 






6109 






6110 






6111 






6112 






6113 






6114 057700 


012703 


00000 I 


6115 057704 


004737 


010366' 


6116 057710 


012703 


000400 


6117 057714 


013737 


003114' 


6118 






6119 






6120 






6121 






6122 






6123 






6124 






6125 057722 


012737 


161001 


6126 057730 


012704 


072030' 


6127 057734 


010337 


072036' 


6128 057/40 


010465 


000000 


6129 057744 


004737 


016150' 
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072030* 



JSR 


PC. REWIND 


BC5 


150$ 


MOV 


TSSR(R5).R1 


MOV 


#SSR.R2 


MOV 


R0.R4 


INC 


FATFLG 


EF;RHRD 


ERRN0.T26RWN.PKTSSR 



130$ 



CKLOOP 



I CALL TAPE REWIND COMMAND 

I BR. IF NO PROBLEM 

iGET TSSR 

;SET UP EXPECTED TSSR 

I PACKET ADDRESS S( T UP 

J BUMP COUNT 

I REWIND NOT ACCEPTED 



iLOOP IF SELECTED 



TRAP 

IrEAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
i 

tPICK UP XSTO 
I SET UP EXPECTED 
J SET SOT BIT IN EXPECTED 
I DOES EXP • REC'D 
J BR, IF EQUAL (OK) 
I BUMP COUNT 

;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
. WORD 
X40J: CKLOOP jLOOP IF SELECTED 

TRAP 



MOV 


T26BFR*6,R1 


MOV 


Rl,R2 


BIS 


*eiTl.R2 


CMP 


RI.R2 


BEQ 


140$ 


INC 


FATFLG 



ERRHRD ERRNO , T26B0T , EXPREC 



i 

tissue SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
jBIT 15 SETS DIRECTION - O-FORWARD 1-REVERSE 

i 



072032' 150$: 



MOV 


01, R3 


JSR 


PC. SPACE 


MOV 


0256. .R3 


MOV 


FREE.T26RB 



t SPACE 1 RECORD FORWARD 

t SPACE CALL 

tRECORD SIZE 

i STARTING READ BUFFER ADDRESS 



1 

;REREAD OATA.CVC-l.ACK, OPP COMMAND 



SEQ 206 



TRAP 


C$ERHRD 


.WORD 


626 


.WORD 


T26RWN 


.WORD 


PKTSSR 



C$CLP1 



C$ERHRD 
627 
T26B0T 
EXPREC 

CiCLPl 



165$: 



MOV 


0161001, T26PK3 


MOV 


0T26PK3.R4 


MOV 


R3,T265Z 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 



(REREAD DATM,CVC*1.ACK. OPP COMMAND 
(SET UP R4 WITH PACKET ADDRESS 
I SET UP RECORD SIZE IN PACKET 
I ISSUE COMMAND 
(WAIT FOR SSR TO SET 



M16 
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SEQ 207 



6130 
6131 
6132 
6133 
6134 
6138 



6139 

6140 
6141 
6142 
6143 
6144 
6145 
6146 
6147 
6148 
6149 
6150 
6151 
6152 
6153 
6154 
615*- 
6156 
6157 
6161 



6162 

6163 
6164 
6165 
6166 
6167 
6171 



6172 

6173 
6174 
6175 
6176 
6177 



6178 



057750 
0577S4 
057760 
057762 
057764 
057770 
057770 
057772 
057774 
057776 
C60000 
060000 
C60002 
060004 



060012 
060020 
060024 
060030 
060034 
060040 
060044 
.>t>0046 
060050 
060054 
060054 
060056 
060060 
06006? 
060064 
060064 
060066 
060072 
060076 
060100 
060102 
0601O6 
060106 
060110 
060112 
060114 
060116 
060116 
060120 
06CJ24 
060126 
060130 
060130 
060150 
060130 
060132 



016501 000002 

012702 000200 

020102 

001406 

005237 002212' 



104456 
001164 
072402 
011746 

104406 
005723 
062737 



MOV 


TSSR(R5).R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


170$ 


iNC 


TATFLG 



ERRHRD ERRNO . TH6RRG , PKTSSR 



(GET TSSR CONTENTS 

I SET UP EXPECTED 

(ARE THEY EQUAL 

I BR. IF OK 

(BUMP COUNT 

I TSSR INCORRECT AFTER REREAD DATA 



170$ 



000001 072056 



CKLOOP 

TST 
ADD 



(R3)t 
<>1,T26CNT 







TRAP 


C$ERHRD 






.WORD 


628 






.WORD 


T26RRG 






.WORD 


PKTSSR 


iLOOP 


IF SELELTCIij 










TRAP 


C$CLP1 


I BUMP 


FECORD SIZE 






;BUMP 


TAPE RECORD 


COUNTER 





READ DATA, CVC-1» ACK COMMAND 



012737 140001 072030' 

010337 072036' 

010465 000000 

004737 016150' 

016501 000002 

012 702 000200 

020102 

001406 

005237 002212' 

104456 
001165 
003176' 
011746' 

104406 

017701 123022 

013702 072056' 

020102 

001406 

005237 002212' 

104456 
001166 
072066' 
015374' 

104406 

022703 000412 

001401 

000672 



195* J 



197$ 



200$ 



MOV 


0140001. T26PK3 


(READ DATA, CVC-1* ACK COMMAND 




MOV 


R3.T26SZ 




(SET SIZE INTO PACKET 




MOV 


R4.TSDB(R5) 




(ISSUE READ DATA COMMAND 




JSR 


PC.WAITF 




(WAIT FOR SSR 




MOV 


TSSR(R5),R1 




(PICK UP THE TSSR 




MOV 


0SSR.R2 




;SET UP EXPECTED 




CMP 


R1,R2 




(IS THE TSSR OK 




BEQ 


195$ 




iBR. IK TSSR OK (GOOD) 




INC 


FATFLG 




(BUMP COUNT 




ERRHRD 


ERRNO. RDERR, 


PKTSSR 


READ OATA COMMAND FAILED 

TRA? 
.WORD 
.WORD 
.WORD 


C$ERHRO 
629 
RDERR 
PKT^.SR 


CKLOOP 






ILO^^ IF SELECTED 

TRAP 


C$CLP1 


MOV 


QFREE.Rl 




(FIRST WORD FROM READ BUFFER 




MOV 


T26CNT.R2 




(SET UP EXPECTED 




CMP 


R1.R2 




(IS TAPE POSITION CORRECT 




BEQ 


197$ 




(KEEP GOING POSITION OK 




INl 


FATFLG 




(BUMP COUNT 




ERRHRD 


ERRNO. T26WNG 


.EXPREC 


(TAPE POSITION INCORRECT 

TRAP 

.WORD 

,WORD 

.WORD 


C$ERHRD 
630 
T26WNG 
EXPREC 



CKLOOP 



104403 
023727 



002212' 000017 



CMP 
BFQ 
BR 


0266. ,R5 

200$ 

150$ 


ENOSUB 




CMP 


FATFLG. ^n5, 



TRAP 
(AT MAX SIZE YET 
(8R. IF AT END OF THE SUBTEST 
(KEEP GOING MORE RECORDS 



C$CLP1 



(>>>>>>>>>>>> END SUBTEST >> ^>>n> '»>>>> 

L10105: 

TRAP C$ESUB 
(IS ERROR COUNT AT 25 





. . .Bl 


FIFEXP 


PRINT FIFO. . 


. .B5 


TEST 


3: 


BASIC 


WRITE. . 


, ,B9 


TEST 


4: 


BASIC 


READ . 


. ..B13 




. . .CI 


MSGSTAT 


■ PRINT STAT. . 


..C5 


TEST 


3: 


BASIC 


WRITE. . 


..C9 


TEST 


4: 


BASIC 


READ . 


. ..C13 




. . .or 


MSGSUB - 


PRINT WRITE. . 


..U5 


TEST 


3: 


BASIC 


WRITE. . 


,.09 


TEST 


4: 


BASIC 


READ . 


. ,.D13 




. . .El 


PRAMPKT 


- PRINT RAM . . 


. .E5 


TEST 


3: 


BASIC 


WRITE. . 


. ,E9 


TEST 


4: 


'^ASIC 


READ . 


. ..E13 




. .Fl 


PRMESS 


■ PRINT CONT. . 


..F5 


TEST 


3: 


BASIC 


WRITE. . 


. .F9 


TEST 


4: 


BASIC 


READ . 


. ..F13 




. . .Gl 


PRMSGEXP 


- PRINT EXP. . 


. .G5 


TEST 


3j 


BASIC 


WRITE. . 


. .G9 


TEST 


4: 


BASIC 


READ . 


. . .G13 




. . .HI 


PRMSGEXP 


- PRINT EXP. . 


. .H5 


TEST 


3: 


BASIC 


WRITE. . 


..H9 


TEST 


4: 


BASIC 


READ . 


. ..H13 




...11 


PRBYTEXP 


- PRINT ERR. . 


..15 


TEST 


3: 


BASIC 


WRITE. . 


..19 


TEST 


5: 


SPACE 


RECOR. 


. . .113 




...Jl 


RAMERR 


■ PRINT RAM . , 


. .J5 


TEST 


3: 


BASIC 


WRITE. . 


. .J9 


TEST 


5: 


SPACE 


RECOR. 


. . .J13 




. ..Kl 


RAMTADD 


- PRINT TEST. . 


..K5 


TEST 


3: 


BASIC 


WRITE. . 


. .K9 


TEST 


5: 


SPACE 


RECOR. 


. . .K13 




. . .LI 


BADSSR - 


PRINT TSSR . . 


..L5 


TEST 


3: 


BASIC 


WRITE. . 


..L9 


TEST 


5: 


SPACE 


RECOR. 


. . .L13 




. . .Ml 


SOFINIT 


SOFT INITI. . 


. .M5 


TEST 


3: 


BASIC 


WRITE. . 


. .M9 


TEST 


5: 


SPACE 


RECOR. 


. . .M13 




...Nl 


CHKAMB 


CHECK TSSR.. 


..N5 


TEST 


3: 


BASIC 


WRITE. . 


..N9 


TEST 


5: 


SPACE 


RECOR. 


. ..N13 




. . .B2 


INTR 


- INTERRUPT . . 


..B6 


TEST 


3: 


BASIC 


WRITE. . 


. .BIO 


TEST 


5: 


SPACE 


RECOR. 


. ..B14 




. . .C2 


CHKTSSR 


- CHECK TSSR. . 


..C6 


TEST 


3: 


BASIC 


WRITE. , 


. .CIO 


TEST 


5: 


SPACE 


RECOR. 


. ..C14 




. . .02 


TSTLOOP 


■ CHECK ITER, 


..06 


TEST 


3: 


BASIC 


WRITE. 


..DIO 


TEST 


5: 


SPACE 


RECOR. 


. . .014 




. . .E2 


TSTSETUP 


- PRINT TES. . 


..E6 


TEST 


4: 


BASIC 


READ . 


. .EiO 


TEST 


5: 


SPACE 


RECOR. 


. ..E14 


PROGRAM HEADER 


. . .F2 


TSTENO 


- PRINT ERRO. . 


. .F6 


TEST 


4: 


BASIC 


READ . 


..FIO 


TEST 


5: 


SPACE 


RECOR. 


. . .F14 


DISPATCH TABLL 


. . .G2 


CKDROP 


- CHECK IF U. . 


..G6 


TEST 


4: 


BASIC 


READ . . 


..GIO 


TEST 


5: 


SPACE 


RECOR . 


. ..G14 


SOFTWARE P- TABLE 


. . .H2 


SETMAP 


- SETUP PAR6. . 


. .h6 


TEST 


4: 


BASIC 


READ . . 


..HIO 


TEST 


5: 


SPACE 


RECOR . 


. ..H14 


GLOBAL EQUATES SECTI 


...12 


FILLMEM 


- FILL MEMOR. . 


..16 


TEST 


4: 


BASIC 


READ . 


. .110 


TEST 


5: 


SPACE 


RECOR . 


. ..114 


MEMORY MANAGEMENT DE 


. . .J2 


CMPMEM 


- COMPARE ML. 


. .J6 


TEST 


4: 


BASIC 


READ . 


. .JIO 


TEST 


5: 


SPACE 


RECOR . 


. ..J14 


MEMORY MANAGEMENT DE 


. . .K2 


REGSAV 


' SAVE R1-R5. 


. .K6 


TEST 


4: 


BASIC 


READ . 


. .KIO 


TEST 


5: 


SPACE 


RECOR. 


. . .K14 


TSUG5 REGISTI-.R AND P 


. . .L2 


GETPAT 


~ GET 8 BIT . 


..L6 


TEST 


4: 


BASIC 


READ . 


. .Lie 


TEST 


5: 


SPACE 


RECOR. 


. .L14 


TSU05 REGISTER AND P 


. . . M2 


GETSEL 


- ISSUE MENU. 


. .M6 


TEST 


4: 


BASIC 


READ . 


..MIO 


TEST 


5: 


SPACE 


RECOR. 


. ..M14 


TSU05 RfcGISTER AND P 


N2 


CHKMAN 


• CHECK MANU, 


..N6 


TEST 


4: 


BASIC 


READ . 


..NIO 


TEST 


5: 


SPACE 


RECOR . 


. . .N14 


1SU05 REGISTER AND P 


. . .63 


KTINIT 


■ SETUP KTU. 


..B7 


TEST 


4: 


BASIC 


READ . 


. .811 


VEST 


5: 


SPACE 


RECOR . 


. .,815 


TSl)05 REGISTER AND P 


C3 


KTINIT 


- SETUP KTll, 


..C7 


TEST 


4: 


BASIC 


READ . 


..Cll 


TEST 


5: 


SPACE 


RECOR . 


...CIS 


TSU05 REGISTER AND P 


D3 


KTINIT 


- SETUP KTll. 


..D7 


TEST 


4: 


BASIC 


READ . 


. .Dll 


TEST 


5: 


SPACE 


RECOR. 


. ..D15 


SPECIAL MACROS AND 


E3 


KTINIT 


- SETUP KTll. 


. .E7 


TEST 


/! . 


BASIC 


READ . 


. .Ell 


TEST 


5: 


SPACE 


RECOR . 


. ..E15 


GLOBAL DATA SECTION 


F3 


INITIALIZE SECTION . 


..F7 


TEST 


4! 


BASIC 


READ . 


..Fll 


TEST 


5: 


SPACE 


RECOR . 


. ..F15 


TSTBLK - TEST DATA 


G3 


INITIALIZE SECTION . 


..G7 


TEST 


4: 


BASIC 


READ . 


. .Gil 


TEST 


5: 


SPACE 


RECOR . 


. ..G15 


GLOBAL ENVIRONMENT S 


H3 


irjITIALIZE SECTION . 


. .H7 


TEST 


4: 


BASIC 


READ . 


. .Hll 


TEST 


5: 


SPACE 


RECOR. 


...HIS 


Gl OBAL TEXT MESSAGES 


13 


ADD AND 


DROP UNITS S, 


..17 


TEST 


4: 


BASIC 


READ . 


. .Ill 


TEST 


5: 


SPACE 


RECOR , 


. . .115 


GLOBAL ERROR REPORT 


J3 


CLEAN-UP 


AND REPORT . 


. .J7 


TEST 


4: 


BASIC 


READ . 


..Jll 


TEST 


5: 


SPACE 


RECOR. 


. . .J15 


PRllv'.f* ■ PRINT TSSR 


K3 


CLEAN-UP 


AND REPORT . 


. .K7 


TEST 


4t 


BASIC 


READ . 


..Kll 


TEST 


5: 


SPACE 


RECOR . 


. ..K15 


PRITSSR LiiiN! TSSR 


L3 


CLEAN-UP 


AND REPORT . 


. .L7 


TEST 


4: 


BASIC 


READ . 


..Lll 


TEST 


5: 


SPmCL 


RECOR. 


. . .LIS 


PRIPKl - PUiNl IMl 


. . . .ri3 


TEST 1: 


INITIALIZE . 


. .M7 


TEST 


4: 


BASIC 


READ . 


. .Mil 


TEST 


6: 


REREADS 


. . .HIS 


PRIBXOR - PRINT EXPO 


n:^ 


TEST 1: 


INITIALIZE . 


..N7 


TEST 


4: 


BASIC 


READ . 


..Nil 


TEST 


6: 


REREADS 


. ..N15 


PRIXOR - PRINT EXPD 


B4 


TEST 1: 


INITIALIZE . 


..B8 


TEST 


4: 


BASIC 


READ , 


. .B12 


TEST 


6: 


REREADS 


. . .816 


PRIAOD - PRINT MEMO 


C4 


TEST 2: 


OFF-LINE AN. 


.C6 


TEST 


4: 


BASIC 


READ . 


. . .C12 


TEST 


6: 


REREADS 


. . .C16 


PRITAOD - PRINT MEMO 


D4 


TEST 2: 


OFF-LINE AN. 


. .08 


TEST 


4: 


BASIC 


READ . 


. . .D12 


TEST 


6: 


REREADS 


. . .016 


SPACE - SPACE RECO 


E4 


TEST 2: 


OFF-LINE AN. 


. .E3 


TEST 


4: 


BASIC 


READ . 


. . .E12 


TEST 


6: 


REREADS 


. . .E16 


WRTCHR - WRITE CHAR 


r-1 


TEST 2; 


OFF-LINE AN. 


. .F8 


TEST 


4: 


BASIC 


READ . 


. . .F12 


TEST 


6: 


REREADS 


. ..F16 


REWIND - POSITION T 


G4 


TEST 2: 


OFF-LINE AN. 


. . .G8 


TEST 


4: 


BASIC 


READ . 


. . .G12 


TEST 


6: 


REREADS 


. . .G16 


CKRAM ~ COMPARE RA 


H4 


TEST V: 


OFF-LINE AN. 


. . .H8 


TEST 


4: 


BASIC 


READ . 


. . .H12 


TEST 


6: 


REREADS 


. . .H16 


CKRAM2 - COMPARE RA 


14 


TEST 2: 


OFF LINE AN. 


. . .16 


TEST 


'- : 


BASIC 


READ . 


. . .112 


TEST 


6: 


REREADS 


. . .116 


CKMSG - COMPARE WR 


J4 


TEST 2: 


OFF-LINE AN. 


. . .J8 


TEST 


4: 


DASIC 


READ . 


. . .J12 


TEST 


6: 


REREADS 


. . .J16 


CKMSfi^ - COMPARE EX 


l<4 


TEST 2: 


OFF-LINE AN. 


. . .K8 


TEST 


4: 


BAbir 


READ . 


. . .K12 


TEST 


6: 


REREADS 


. . J<16 


CKMSG.? - COMPARE EX 


L4 


TEST 2: 


OFF-LINE AN. 


. . .L8 


TEST 


4: 


BASIC 


PFAD . 


. . .L12 


TEST 


6: 


REREADS 


. . .L16 


CKMSG2 ■ COMPARE EX 


. . . . M4 


TEST 3: 


BASIC WRITE. 


. . .M8 


TEST 


4: 


BASIC 


READ . 


. . .M12 


TEST 


6: 


REREADS 


» . .Mlb 


PKTMES - PRINT TSSR 


N4 


TEST 3: 


BASIC WRITE. 


. ..N8 


TEST 


4: 


BASIC 


READ . 


. . .N12 













TSV7 - HARDWARE TESTS 1-6 
TEST 6: REREADS 



MACRO MIX13 0l-rEB-a4 I7i54 



Bl 



SEQ 208 



6179 
6180 
6161 
6182 
6163 
6164 
6185 
6166 
6187 
6168 
6169 
Gl90 
6191 
6192 
6193 
6194 
6195 
6196 
6197 
6198 



6199 
6200 
6201 
6202 
6203 
6204 
6205 
6206 
6207 
6208 
6209 
6210 
6211 
6212 
6216 
6217 



6218 
6219 
6220 
6221 
6222 
6223 
6224 
6225 
6226 
6227 
6228 
6229 
6230 
6234 
6255 



060140 
060142 
060146 



060146 
060146 
060146 
060150 
060154 
060160 
060164 



060170 
060174 
060176 
060202 
060204 
060204 
060206 
060210 
060212 
060214 



060226 
060232 
060234 
060240 
060^42 



103402 
004757 



104402 
004737 
005037 
004737 
004737 



004737 
103407 
005237 
010001 

104455 
001167 
003642 
011754 
013737 



060222 012704 



004 737 
103407 
005237 
OlOQOl 



017104 



074620' 
072056' 
074712' 
074754' 



015674' 
002212' 



002172' 
071700' 



010562' 
002212^ 



BLO 
JSR 



9991 

PC.CKUROP 



999 »s 

I ♦ 

(TEST 6, SUBTEST 4 

: VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP-1 

(AND SWB-1 OPERATES PROPERLY. THE TEST SEQUENCE IS 

I THE SAME THAT IS USED IN SUBTEST 3. BUT IT IS 

I VERIFIED TKAT DATA STORED BY THE COMMAND CONTAINS 

I SWAPPED BYTES » 

I 

t 

» 

t 
I - 



iBR, IF LESS THAN 25 
(TRY TO DROP THE UNIT 



BGNSU6 



JSR 


PC.T26REST 


CLR 


T26CNT 


JSR 


PC.T26RT2 


JSR 


PC,T26RT5 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T6.4: 

TRAP C$BSUB 
I SET COMMAND PACKET 
I CLEAR TAPE RECORD COUNTER 
(SET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



(ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

J ************************** ******i)i***«*********4.*4i********«******«t* 



071720* 20»: 



JSR PC.SOFINIT 

BCS 4.0> 

INC f> fFi n 

MOV Rv>,Hl 

ERRDF ERRNO , SF lERR , SF XMSG 



MOV UNITN,T26DSW 
MOV 0T26PACKET,R4 



lOO INITIALIZE ON CONTROLLER 

I BR IF INIT WAS OK 

I BUMP COUNT 

(CONTENTS OF TSSR RtGISTER 

iFATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

I SET UP UNIT NUMBER 

I SUBROUTINE NEEDS PACKET ADDRESS 



CIERDF 

631 

SFIERR 

SFIMSG 



iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



,♦♦. 



JSR PC, WRTCHR 

BCS 261 

INC FATFLG 

MOV RO.Rl 

ERRHBO ERBNQi Wartt^Ut UF XM5Q 



I ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
iBUMfr- COUNi' 
I SAVE CONTENTS OF TSSP 

IWRIIE CHARACTFRISTISC FAXLED 



TSV7 - HARDWARt TESTS 1-8 
TEST ti REREADS 



CI 



MACRO MIUS Ol-FEB-a4 I7j54 



5EQ 209 





060242 


104456 






060244 


001170 






060246 


005046' 






060250 


011734' 




6256 


060252 








060252 


104406 




6237 








6238 








6259 








6240 








6241 








t>242 








6243 








6244 


060254 


004757 


010714' 


6245 


060260 


103413 




6246 


060262 


016501 


000002 


6247 


060266 


012702 


000200 


6248 


060272 


010004 




6249 


060274 


005257 


002212' 


6253 


060300 








060300 


104456 






060302 


001171 






060304 


075564' 






060306 


U11746' 




6254 


060310 








060310 


104406 




6255 








6256 








6257 








6258 








6259 








6260 








6261 








6262 


060312 


015701 


071750' 


6263 


060316 


010102 




6264 


060320 


052702 


000002 


6265 


060324 


020102 




6266 


060326 


001406 




626 V 


060330 


005257 


002212' 


6271 


0603S4 








060334 


104456 






060336 


001172 






060M0 


07307^' 






060542 


015374' 




6272 


060344 








060344 


104406 




6273 


060346 


012703 


0004(X) 


6274 


060352 


015737 


005114' 


6275 








6276 








6277 








6278 








6279 








6260 








6281 








6282 


060560 


012737 


140005 


6283 


060366 


012704 


072030' 



072052 



073030 



26$; 



CKLOOP 



jLOOP IF SELECTED 



TRAP 
.WORD 
.UORO 
.WORD 

TRAP 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
I 



501; 



JSf? PC, REWIND 

BCS 50t 

MOV TSSR(R5).R1 

MOV #SSR,R2 

MOV R0,R4 

INC FATFLG 

ERRMRO ERRNO , T 26RWN . PK T SSR 



CKLOOP 



I CALL TAPE REWIND COMMAND 

|8R, IF NO PROBLEM 

tC=T TS5R 

I SET UP EXPECTED TSSR 

.PACKET ADDRESS SET UP 

(GUMP COUNT 

jREWIND NOT ACCEPTED 



(LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
WORD 

TRAP 



iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZEFiH (XSTO) 
I 

t 4*44*4«4**«*«*4i**««*«*4i*4**««**4>4i««*«**«**«4i****«*4>«**«^*«***4*««4 



MOV T26BFR»6,R1 

MOV R1.R2 

BIS #eiTl,R2 

CMP Rl,R2 

BEQ 40» 

;nc fatflg 

errhrd errno, t26b0t ,exprec 



401 1 



CKLOOP 

MOV 
MOV 



0256. ,R5 
FREE , T26RB 



iPTCK UP XSTO 

iSET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

(DOES EXP • REC'O 

|8R. IF EQUAL (OK) 

I BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 

iRECORD SIZE 

iSTARTING WRITE BUFFER ADDRESS 



t«44*««*«*A**4****««**4****A4***4t**4>***4>*****4**«44>**4>**i4>4t4>4t44t«*** 
t 

(WRITE OATA.CVC-l.ACK COMMAND 
I 

I4«^4««^***«*f4i4^***4i***4»»v;^** 44^ 4^««««««*****«**««««4*« «********••• 



MOV #140005, T26PK3 

tlOV #T26PK5.R4 



iWRJTE DAIrt.CVC-l.ACK COMMAND 
ISET UP R4 WITH PACKET ADDRESS 



CvERHRD 
652 

WRTMSG 

SFIMSG 

C$CLP1 



CIERHRD 
633 
T26RWN 
PKTSSR 

CiCLPl 



CtERHRD 
654 
T26B0T 
EXPREC 

CSCLPl 






\m -^1' 



g^^TESTS 



i-e 



Dl 



MACRO M1115 01-FEB-e4 17J54 



SEQ 210 



6284 
6285 
6286 
6287 
6288 
6289 
6290 
6291 
6292 
6293 
6294 
6295 
6296 
6300 



6501 

6302 
6303 
6304 
6305 
6306 
6307 
6308 
6309 
6310 
6311 
6312 
6313 
6314 
6315 
6316 
6317 
6318 
6319 
6320 
6324 



6325 

6326 
6327 
6328 

63^>9 
6530 
«^331 
':o32 
6533 
6/54 

6336 



060372 
060372 
060374 
060400 
060404 
060412 
060420 
060424 
060430 
060434 
060440 
060442 
060444 
060450 
060450 
060452 
060454 
060456 
060460 
060460 
060462 
060464 
060470 
060472 
060474 
060474 



060500 
060504 
060506 
C60512 
060516 
060520 
060524 
060524 
060526 
060530 
060532 
060534 
060534 



0'.0536 
060542 
060544 
060550 



010300 
004737 
010337 
013777 
062737 
010465 
00473 7 
016501 
012702 
0c0102 
001406 
005237 

104456 
001173 
005103 
011746 

104406 
00572? 
022703 
001401 
000737 



65»: 



017324 
072036 
072056 
000001 
000000 
016150 
000002 
000200 



002212 



000412 



005037 072056 



004737 010714 

103413 

016501 000002 

012702 000200 

010004 

005237 002212 

104456 
001174 
073364' 
011746' 

104406 



013701 071730 

010102 

052 702 0000C2 

020102 



122502 
U72056' 



MOV R3,R0 

JSR PCFILLMEM 

MOV R3,T26SZ 

MOV T.->6CNT,QFREE 

ADD ♦1.T26CNT 

MOV R4,TSDB(R5) 

JSR PC.WAITF 

MOV TSSR('^5),R1 

MOV •SSR,R2 

CMP R1.R2 

BEQ 75$ 

INC FATFLG 

ERRHRO eRRNO,WRTERR»PKTSSR 



75$! 



120$; 



CKLOOP 

TST 
CMP 
BEQ 
BR 

CLR 



(R3)* 
0266. ,R3 
120$ 
65$ 

T26CNT 



I SET PATTERN IN CORRECT REGISTER 

IFILL MEMORY WITH RECORD SIZE 

I SET UP RECORD SIZE IN PACKET 

(MOVE TAPE RECORD NUMBER TO BUFFER 

I NUMBER READY FOR NEXT RECORD 

(ISSUE COMMAND 

iWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

I BR, IF OK 

I BUMP COUNT 

I TSSR INCORRECT AFTER REREAD DATA 

TRAP C$ERHRD 
.WORD 635 
.WORD WRTERR 
.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP C$CLP1 

iBUMP THE RECORD SIZE 

iMAXIMUM SIZE YET 

I BR. If AT END OF WRITE SEQUENCE 

I WRITE MORE RECORDS 

I SET RECORD COUNTER BACK TO ZERO 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
I 

|**4iA**4i*******«*********^**4,***4i4,«*4i«4t«**««****ft««*««4«A*&AAA*AA44 



JSR PC,REWI^D 

BCS 130$ 

MOV TSSR(R5),R1 

MOV #SSR.R2 

MOV R0,R4 

INC FATFLG 

ERRHRD ERRNO , T26RWN . PK T SSR 



I CALL TAPE REWIND COMMAND 

iBR, IF NO PROBLEM 

iGET TSSR 

(SET UP EXPECTED TSSR 

(PACKET ADDRESS SET UP 

(BUMP COUNT 

(REWIND NOT ACCtPTEO 



130$! CKLOOP 



(LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERt1RD 
636 
T26RWN 
PKTSSR 

C$CLP1 



I *******«***************«>«.* 4 «*A»***«* ***************************** 
t 

(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTC? 
1 

|«««4*«*«******«***«************«***********************4*******«*« 



MOV 1268FR*6,R1 

MOV R1.R2 

BIS *BIT1,R2 

CMP R1,R2 



(PICK UP XSTO 

(GET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

(DOES EXP " REC'D 



TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 



El 



6337 
6338 
6342 



6343 

6344 
634S 

6346 
6347 
6348 
6349 
6350 
6351 
6352 
6353 
6354 
6355 
6356 
6357 
6358 
6359 
6360 
6361 
6362 
6363 
6364 
6365 
6366 
6367 
6368 
6369 
6370 
6371 
6372 
6376 



6377 

6378 
6379 
6380 
6381 
6382 
6383 
6387 



6388 



060552 
060554 
060560 
060560 
060562 
060564 
060566 
060570 
060570 



060572 
060576 
060602 
060606 



060614 
060622 
060626 
060632 
060636 
060642 
060646 
060652 
060654 
060656 
060662 
060662 
060664 
060666 
060670 
060672 
060672 
060674 
060700 
060704 
060706 
060710 
060712 
060716 
060715 
060720 
060722 
060724 
060726 



001406 
005237 

104456 
001175 
073075' 
015374 

104406 



002212 



012703 000001 

004737 010366 

012703 000400 

013737 003114' 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
02010? 
001406 
005237 

104456 
001176 
072305* 
011746' 

104406 
017701 
013702 
000302 
020102 
001406 
005237 

104456 
001177 
072066' 
01537A' 



171001 

072030' 

072036 

000000 

016150 

000002 

000200 



002212 



122214 
072056 



002212' 



072030' 



^to-«4 


ifrj^ 






SEQ 211 


BEQ 


140$ 


iBR. IF EQUAL COK) 






INC 


FA'iFLG 


iBUMP COi.m 






ERRMRD 


ERRN0.T26B0T, EXPREC 


iTAPE NOT AT BOT AFTER 


REWIND 
TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
637 
r26B0T 
EXPREC 


CKLOOP 




iLOOP IF SELECTED 


TRAP 


C$CLP1 



072032' 150*: 



140 J: 



t 

J ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 

iBIT 15 SETS DIRECTION - O-FORWARD 1-REVERSE 

t 

I SET UP SPACE FORWARD 1 

I ISSUE SPACE COMMAND 

(RECORD SIZE 

J STARTING READ BUFFER ADDRESS 



MOV 


#1,R3 


JSR 


PC, SPACE 


MOV 


*256.,R3 


MOV 


FREE,T26RB 



I REREAD DATA.CVC-l.ACK, OPP COMMAND 
1 

j*«*4t******««4t44i4i*4i«*4t« k«*« 4** * «*4i4i4k4 A A*4«« ************ ******A*4i4* A 

165$: 



170$: 



190$: CKLOOP 



MOV 


#171001, T26PK3 


iREREAD DATA.CVC-l.ACK. OPP COMMAND 


MOV 


♦T26PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 




MOV 


R3,T26SZ 


(SET UP RECORD SIZE IN PACKET 




MOV 


R4.TSDB(R5^ 


jISS'JE COMMAND 




JSR 


PC.WAITF 


(WAIT FOR SSR TO SET 




MOV 


TSSRCR5),R1 


(GET TSSR CONTENTS 




MOV 


*SSR,R2 


(SET UP EXPECTED 




CMP 


R1,R2 


(ARE THEY EQUAL 




BEQ 


1701 


iBR. IF OK 




TNC 


FATFLG 


(BUMP COUNT 




tRRHRO 


ERRN0,T26RRF,PKrSbR 


(TSSR INCORRECT AFTER REREAD DATA 






1RAP 


C$ERHRD 






.WORD 


636 






.WORD 


T26RRF 






.WORD 


PKTSSR 


CKLOOP 




(LOOP IF SELECTED 








TRAP 


CJCLPl 


MOV 


SFREE.Rl 


(FIRST WORD FROM READ BUFFER 




MOV 


T26CNT.R2 


(SET UP EXPECTED 




SWAB 


R2 


(SWAP BYTES IN EXPECTtO 




CMP 


R1.R2 


(IS TAPE POSITION CORRECT 




BEQ 


190$ 


(KEEP GOING POSITION OK 




INC 


FATFLG 


(BUMP COUNT 




ERRHRD 


ERRN0,T26WNG, EXPREC 


(TAPE POSITION INCORRECT 








TRAP 


CJtRHRD 






.WORD 


639 






.WORD 


T26WNG 






.WORD 


EXPREC 



TSV7 - HARDWARE TESTS 1-8 
TEST 61 REREADS 



F2 
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7C59 
7060 
7061 
7062 
7065 
7067 



7068 

7069 
70 70 
7071 
7072 
7073 
7074 
7075 
7076 
7077 
7081 



7082 

7083 
7064 
7085 
7086 
7087 
7086 
7089 
7090 
7091 

7092 



7093 
7094 
7095 
7096 
.097 
7098 
7099 
7100 
7101 
7102 
7103 
7104 
7105 
7106 
7107 
7108 



063226 
063232 
063236 
063240 
065242 
063246 
063246 
063250 
063252 
063254 
063256 
063256 
063260 
063264 
063266 
063272 
063274 
063276 
063300 
063302 
063304 
063310 
063310 
063312 
063314 
063316 
063320 
063320 
063322 
063324 
063326 
063330 
063332 
063334 
063340 
063344 
063346 
063346 
063350 
063350 
063350 
063352 
063360 
063362 
063366 



016501 
012702 
020102 
001406 
005237 

104456 
001235 
073720' 
011746' 

104406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 
010502 
005237 

104456 
001236 
073142- 
015374' 

104406 
005724 
160104 
020403 
001360 
005723 
010337 
022703 
001267 

104406 



104403 
023727 
103402 
004737 



000002 
000200 



002212 



MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



170$: CKLOOP 



003114 
000400 



173$! 



002212 



180$: CKLOOP 



072062 
000410 



190$! 



ENDSUe 



002212' 000017 
017104' 



TSSR(R5).R1 

#SSR,R2 

R1,R2 

170$ 

FATFLG 

ERRN0.T26WDC,PI<TSSR 



MOV 


FREE.R2 I CURRENT 


MOV 


R3,R4 


SUB 


#256. ,R4 


ADD 


H2.R4 


CMP 


CR4),R3 


BEQ 


160$ 


MOV 


(R4).R1 


MOV 


R3,R2 


INC 


FATFLG 


ERRHRD 


ERRN0,T26DTA,EXPREC 



TST 


(R4)* 


SUB 


R2,R4 


CMP 


R4,R3 


BNE 


175$ 


TST 


(R3)» 


MOV 


R3,T2AR5Z 


CMP 


*264..R3 


BNE 


145 J 


CKLOOP 





CMP 


FATFLG, 015 


BLO 


999$ 


JSR 


PC.CKDRGP 



SECl 225 



(GET rSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

I BR, IF OK 

I BUMP COUNT 

iTSSR INCORRECT AFTER REREAD DATA 

TOAD r 



iLOOP IF SELECTED 



TRAP 
.WORD 
,WCRD 
.WORD 



C$ERHRD 
669 
T26WDC 
PKTSSR 



999$! 
J * 

jTEST 6. SUBTEST C 

t 

(VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-O 

(AND SWB-1 OPERATES PROPERLY. THE TEST StQ'JENCE IS 

(THE SAME AS THAT USED IN SUBTEST 1. BUT IT IS 

J VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 

I SWAPPED BYTES, 

\ 

\ 



BUFFER ADDRESS TO R2 

I CURRENT RECORD SIZE 

iFIRST LOCATION IN BUFFi=R 

iSET UP POINTER 

(CHECK DATA READ (R3-DATA ALSO) 

iBR, IF ALL IS WELL 

jRECO DATA 

(EXPECTED DATA 

(BUMP COUNT 

(DATA READ NOT - WRITTEN 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 

(BUMP TO NEXT LOCATION 

(CORRECT RECORDS SIZE VALUE 

(END OF RPCORD YET 

(BR. IF NOT AT END OF RECORD 

I BUMP RECORD SIZE 

(STORE PRESENT RECORD SIZE 

(END OF RECORD YET 

(BR, IF MORE RECORDS TO READ 

(LOOP aF SELECTED 

TRAP 

(>>>>>)>>>>>> END SUBTEST 

LlOlll! 

TRAP 
(IS ERROR COUNT AT 25 
(BR, IF LESS THAN 25 
(TRY TO DROP THE UNIT 



TRAP CJCLPl 



C$ERHRD 
67C 
T26DTA 
EXPREC 

C$CLP1 



C$CLP1 

c$Esue 



TSV7 - HARDWARt TESTS 3. 
TEST 6: REREADS 



G2 



-8 
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SEQ 226 



7109 
7110 
7111 



711^ 
7113 
7114 
7115 
7116 
7117 
7118 
7119 
7120 
7121 
7122 
7125 
7124 
7128 
7129 



7130 
"131 
7132 
7133 
7134 
7135 
7136 
7137 
7138 
7139 
7140 
7141 
7142 

7147 



7148 

7149 
7150 
7151 
7152 
7155 
7154 
7155 
7156 
7157 
7158 
7159 
7160 



063366 
063366 
063366 
063370 
063374 
063400 



t 

! - 



104402 
004737 
00473/ 
004737 



074620' 
074712' 
074754' 



BGN5UB 



JSR 
JSR 
JSR 



PC,T26REST 

PC,T26RT2 

PC»T26RT3 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T6.8: 

TRAP C$BSUB 
(SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 



t 

i ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
i 



063404 
063410 
063412 
063416 
063420 
063420 
063422 
063424 
063426 
063430 



004737 
103407 
005237 
010001 

104455 
001237 
003642' 

011734' 
013737 



015674 
002212 



063436 012704 



002172' 
071700' 



071720' 20 J: 



JSR 


PC.SOFINIT 


J DO INITIALIZE ON CONTROLLER 




BCS 


20$ 


iBR IF INIT WAS OK 




INC 


FATFLG 


J BUMP COUNT 




MOV 


RO.Rl 


) CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


J FATAL ERROR TSSR UAS NOT OK 








TRAP 


C$ERDF 






.UORD 


671 






.UORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T260SU 


(SET UP UNIT NUMBER 





MOV 



«T26PACKET,R4 



J SUBROUTINE NEEDS PACKET ADDRESS 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
1 



063442 
065446 
063450 

r\r ^ ■ ^ • 

063456 
063456 
063460 
063462 
065^64 
06>466 
063466 



004737 
103407 
005237 
UlOOOl 

104456 
001240 
005046' 

011734' 

104406 



010562' 
002212 • 



26$: 



JSR Pr. WRTCHR 

GCS 26$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG . SFIMSG 



CKLOOP 



(ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 

(BUMP courn 

(SAVE COtslTENTS OF TSSR 
I WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 

TRAP 



C$ERHRD 
672 
WRTMSG 
SFIMSG 

CiCLPl 



063470 
0634 74 
065476 
063502 
063506 



004737 
103415 
016501 
012 702 
010004 



010714' 

000002 
000200 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

(CALL TAPE REWIND COMMAND 

(BR, IF NO PROBLEM 

(GET TSSR 

(SET UP EXPECTED TSSR 

J PACKET ADDRESS SET UP 



JSR 


PC. RE WIND 


BCS 


30$ 


MOV 


TSSR(R5)»ni 


MOV 


0SSR.R2 


MOV 


R0.R4 



rl2 



TSV7 - HARDWARE 


TESTS 1 


-S 


TEST 6: 


REREADS 




7161 


065510 


005237 


002212' 


7165 


065514 








065514 


104456 






063516 


0'>1241 






065520 


075364' 






063522 


011746' 




7166 


063524 








063524 


104406 




7167 








7168 








7169 








7170 








7171 








7172 








7173 








7174 


063526 


015701 


071730' 


7175 


063552 


010102 




7176 


065534 


052702 


000002 


7177 


063540 


020102 




7178 


063542 


001406 




7179 


065544 


005257 


002212' 


7163 


063550 








063550 


104456 






063552 


001242 






063554 


073075' 






063556 


015374' 




7ien 


063560 








063560 


104406 




7185 


065562 


012703 


000400 


7186 


063566 


013737 


003114' 


7187 








7188 








7189 








7190 








7191 








7192 








7193 








7194 


063574 


012737 


150005 


7195 


063602 


012704 


072030' 


7196 


065606 






7197 


06360o 


010300 




7198 


065610 


004757 


017324' 


7199 


063614 


010357 


072036' 


7.?00 


063620 


010465 


000000 


7201 


063624 


004757 


016150' 


7202 


063630 


016501 


000002 


7203 


063634 


or? 702 


000200 


7204 


065640 


020102 




7205 


063642 


001406 




7206 


065644 


005237 


002212' 


7210 


065650 








063650 


104456 






063652 


001243 






063654 


005105' 






063656 


011746' 




7211 


063660 
063660 


104406 





MACRO M1115 01 -FES -84 17:54 



072032 



072030 



;o$: 



INC FATFLG 

eRRHRD ERRN0.T26RWN»PI<TSSR 



CKLOOP 



(BUMP COUNT 






1 REWIND NOV ACCEPTED 








TRAP 


C$EHHMD 




.WORD 


673 




.WORD 


T26RWN 




.WORD 


PKTSSR 



iLOOP IF SELECTED 



TRAP 



I ************* A'.* ****** **4i****«**^ A** A**«***«4i**«**«4i***4*4>*44>*4i4i*« 

(READ MESSAGE BLIFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

i 

I ********************************************** 4. A A* ****** ::********* 

jPICK UP XSTO 
tSET UP EXPECTED 
I SET SOT BIT IN EXPECTED 
(DOES EXP - REC'D 
J BR. IF EQUAL C0K5 
(BUMP COUNT 

jTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40$: CKLOOP jLOOP IF SELECTED 

TRAP 
(RECORD SIZE 
I STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR*6,R1 


MOV 


R1.R2 


BIS 


#BIT1,R2 


CMP 


R1,R2 


BEG 


40$ 


INC 


FATFLG 



EFSHRD ERRNO , T26B0T , EXPREC 



CKLOOP 

MOV 
MOV 



«256. .R3 
FREE,T26RB 



{**************«44i4i«««««4t*********«*******« ************************ 
I 

(WRITE DATA,CVC"1,ACK,SWB COMMAND 
I 

}**^************************ ****************** *****************4i4>** 



CJCLPl 



C$ERHRD 
674 
I26B0T 
EXPREC 

C$CLP1 



65$ 



MOV 


#150005. T26PK3 


MOV 


0T26PK3.R4 


MOV 


R5.R0 


JSR 


PC.FILLMEM 


MOV 


R5.T26SZ 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


0SSR,R2 


CMP 


R1.R2 


BEQ 


75$ 


INC 


FATFLG 



75$ 



ERRHRD ERRNO , WRTERR . PKTSSR 



CKLOOP 



iVi*RITE OATA.CVC-l.ACK.SWB COMMAND 
(SET UP R4 WITH PACKET ADDRESS 

jSi.r PATTERN IN CORRECT REGISTER 

(FILL MEMORY WITH RECORD SIZE 

(SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

iBR. IF OK 

(BUMP COUNT 

(TSSR INCORRECT AFTER WRITE 0A7A 

TRAP C$FRHRO 
.WORD 675 
.WORD WRTERR 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 



SEQ 227 



12 



TSV7 - HARDWARE TESTS 1-3 
TEST 6: REREADS 



721? 
7213 
7214 
7215 

7216 
7217 
7218 
7219 
7220 
7221 
7222 
7223 
7224 
7225 
7226 
7227 
722© 
7229 
7233 



7234 

7235 
7236 
7237 
7258 
7239 
7240 
7241 
7242 
7243 
7244 
7245 
7246 
7247 
7251 



7252 

7253 
7254 
7255 
7256 
725 7 
7258 
7259 
7260 
7261 
7262 
7263 



062662 
063664 
063670 
063672 
063672 
063674 



063674 
063700 
063702 
063706 
063712 
063714 
063720 
063720 
063722 
063724 
063726 
063730 
063730 



063732 
063736 
063740 
063744 
063746 
063750 
063754 
063754 
063756 
063760 
063762 
063764 
065 764 
063766 
063774 



005723 

022703 000414 

001346 

104406 



004737 010714- 

103413 

016501 000002 

012702 000200 

010004 

005237 002212' 

104456 
001244 
073364' 
011746' 

104406 



013701 071730' 

010102 

052702 000002 

020102 

001406 

005237 002212 

104456 
001245 
073075' 
015374' 
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104406 
012737 
000420 



000400 072062 



80$: 
120*: 



TST 
CMP 
BNE 
CKLOOP 



(R3)* 
0268. ,R3 
65$ 



I BUMP RECORD SIZE 

I END OF RECORD YET 

jBR, IF MORE RECORDS TO WRITE 

(LOOP IF SELECTED 

TRAP 



. 4i4>4'*4>'* 4(4* ♦A^^t^i^^^^i^^iA^iA^iti****** A********* ************ A4i*4i4i*4i4L44L4i4>*4i 
I 

I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

i 

I CALL TAPE REWIND COMMAND 

J BR, IF NO PROBLEM 

iGET TSSR 

(SET UP EXPECTED TSSR 

I PACKET ADDRESS SET UP 

I BUMP COUNT 

i REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


130$ 


MOV 


TSSR(R5),R1 


MOV 


<^SSR.R2 


MOV 


R0.R4 


INC 


FATFLG 



ERRHRD ERRN0.T26RWN,^^KTSSR 



130$: CKLOOP 



(LOOP IF SELECTED 



TRAP 

IrEAD message buffer EXTENDED STATUS REGISTER ZERO (XSTO) 
> 

1 ******** **************** 4* ***4^4>4t4>4>4>4^^4^4>4i**«**4*********4t4t*4**4i«« + 4i 

.^FICK UP XSTO 
iSET UP EXPECTED 
(SET BOr BIT IN EXPECTED 
;DOES EXP • REC'O 
iBR. IF EQUAl (OK) 
iBUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
140$: CKLOOP (LOOP IF SELECTED 

TRAP 
t START RECORD SIZE 
I SKIP SAPCE THIS TIME 



MOV 


T26BFR*6.R1 


MOV 


RI.R2 


BIS 


*6IT1,R2 


CMT 


R1.R2 


BEQ 


140$ 


IMC 


FATFLG 



ERRHRD ERRNO , T26B0T , EXPREC 



CKLOOP 

MOV 
BR 



«256. ,T26RSZ 
150$ 



063776 012703 000001 



|*«************************4i««*«*********«**«v.*******'i**********«** 
) 

I ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 

iBIT 15 SETS DIRECTION - O-FORWARO l-REVEFSE 

I 

;*****i***«*****4i**«***4 4«4,4^4i«4444,4^4i«***«*«i|>*************«**«***«** 

1^0$: MOV 01, R3 jSPACE ONE RECORD PARAMETER 



SEQ 228 



C$CLP1 



TRAP 


C$ERHRO 


.WORD 


676 


• WORD 


T26RWN 


.'^ORD 


PKTSSR 



CJCLPl 



C$ERHRO 
677 
T26B0T 
EXPREC 

C$CLP1 



TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 
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J2 



SEQ 229 



7264 
7265 
7266 
7267 
7266 
7269 
7273 



7274 

727S 
7276 
7277 
7278 
7279 
7280 
7281 
728? 
7283 
7284 
7285 
7286 
7287 
7288 
7289 
7290 
7291 
7292 
7295 
7297 



7298 

7299 
7300 
7301 
7302 
7303 
7304 
7305 
7306 
7307 
7311 



7312 

7313 
7314 



064002 
064006 
064010 
064014 
064020 
064022 
064026 
064026 
064030 
064032 
064034 
064036 
064036 
064040 
064044 



064052 
064060 
064064 
064070 
064074 
064100 
064104 
064110 
064112 
064114 
064120 
064120 
064122 
064124 
064126 
064130 
064130 
064132 
064136 
064140 
064144 
064146 
064150 
064152 
064154 
064156 
064162 
064162 
064164 
064166 
064170 
064172 
064172 
064174 
064176 



004737 010366' 

103413 

016501 000002 

012702 000200 

010004 

005237 002212' 

104456 
001246 
072477' 
015374' 



104406 
013703 
013737 



JSR 
BCS 
MOV 
MOV 
MOV 
INC 
ERRHRD 



150$: CKLOOP 



PC. SPACE 

150$ 

TSSR(R5).R1 

♦SSR.R2 

R0.R4 

FATFLG 

ERRN0.T26SC,I=XPREC 



I CALL SPACE ROUTINE 

iSR, IF NO PROBLEM WITH SPACE COMMAND 

I GET TSSR 

I SET UP EXPECTED TSSR 

(PACKET ADDRESS SET UP 

I BUMP COUNT 

iPOSITION (SPACE RECORDS) FAILED 

TRAP CIERURD 
.WORD 678 
.WORD T26SC 
.WORD EXPREC 



072062 
003114 



072032 



MOV 
MOV 



T26RSZ.R3 
FREE . T26RB 



TRAP 
iRECOPO SIZE 
I STARTING READ BUFFER ADDRESS 



OCLPl 



1 

I REREAD 0ATA,ACK.CVC"1.SWB COMMAND 



012737 151401 

012704 072030' 

010337 072036' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 
001247 
073720' 
011746' 

10^^06 

013702 003114' 

010304 

162704 000400 

060204 

021403 

001410 

011401 

010302 

005237 002212' 

104456 
001250 
073142- 
015374' 

104406 
005 724 
160204 



072030' 



165$: 



MOV 


«151401,T26PK5 


MOV 


•T26PK3.R4 


MOV 


R3.T26SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


#SSR,R2 


CMP 


R1.R2 


BEQ 


170$ 


INC 


FATFLG 


ERRMRD 


EnRN0,T26W0C,PKTSSR 



jREREAD DATA. ACK.CVC-l, SUB COMMAND 

J SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

iWAIT FOR SSR TO SET 

iGET TSSR CONTFNTS 

(SET UP EXPECTED 

I ARE THEY EQUAL 

jBR, IF OK 

I BUMP COUNT 

I TSSR INCORRECT AFTER REREAD DATA 



170$; CKLOOP 



173$: 



MOV 


FREE,R2 iCU 


MOV 


R3.R4 


SUB 


«256. ,R4 


ADD 


R2.R4 


CMP 


(R4).R3 


BEQ 


180$ 


MOV 


(R4),R1 


MOV 


R3,R2 


INC 


FATFL5 


ERRHRO 


ERRNO , T26DTA , EXPREC 



180$: CKLOOP 

TST (R4)f 
SUB R2»R4 



TRAP 


C$ERHRD 


.WORD 


679 


.WORD 


T26W0C 


.WORD 


PKTSSR 


J I OOP IF SELECTED 




TRAP 


C$CLP1 


(CURRENT BUFFER ADDRESS TO R2 




(CURRENT RECORD SIZE 




(FIRST LOCATION IN BUFFER 




(SET UP POINTER 




(CHECK DATA READ (R3-DATA ALSO) 




(BR. IF ALL IS WELL 




(RECD DATA 




(EXPECTED DATA 




(BUMP COUNT 




REC (DATA READ NOT - WRITTEN 




TRAP 


C$ERHRD 


.WORD 


680 


.WORD 


T260TA 


.WORD 


EXPREC 


(LOOP IF SELECTED 




TRAP 


C$CLPl 


(BUMP TO NEXT LOCATION 




(CORRECT RECORDS SIZE VALUE 





I<2 
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SEQ 230 



7315 
7316 
7317 
7318 
7319 
7320 
7321 

7322 



7323 
7324 
7325 
7326 
7327 
7328 
7329 
7330 
7331 
7332 
7335 
7334 
7335 
7336 
7337 
7338 
7339 
7340 
7341 
7342 
7343 
7344 
7345 
7346 
7347 
7348 
7349 
7350 
7351 
7352 
7353 
7354 
7355 
7356 
7357 
7358 
7359 
7360 
7361 



7562 
7363 
7364 
7365 
7366 



064200 
064202 
064204 
064206 
064212 
064216 
0642^0 
064220 
064222 
064222 
064222 
064224 
064232 
064234 
064240 



064240 
064240 
064240 
064242 
064246 
064252 
064256 



020403 

001360 

005723 

010337 072062' 

022703 000410 

001267 

104406 



104403 

023727 002212' 000017 

103402 

004737 017104- 



190$: 



CMP 


R4.R3 


BNE 


173$ 


TST 


(R3)* 


MOV 


R3.T26RSZ 


CMP 


0264., R3 


BNE 


145$ 


CKLOOP 





ENDSUB 



104402 

004737 074620 

005037 072056 

004737 07471? 

004737 074754 



999$; 



CMP 


FATFLG.OIS. 


BLO 


999$ 


JSR 


PCCKDROP 



(END OF RECORD YET 

iBR, IF NOT AT END OF RECORD 

I BUMP RECORD SIZE 

I STORE f^ECORO SIZE 

(END OF RECORD YET 

I BR, IF MORE RECORDS TO WRITE 

I LOOP IF SELECTED 

TRAP C$CLP1 
J >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10112: 

TRAP 
lis ERROR COUNT AT 25 
(BR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



C$ESUB 



TEST 6, SUBTEST 9 

VERIFIES THAT THE REREAD NEXT OMMANO WITH OPP-1 
CREAD FORWARD, SPACE REVERSE) AND SWB-0 OPERATES 
PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND 
DATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD 
CONTAIN ITS RECORD NUMBER (TNOICATING POSITION ON 
TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
TEST RECORD. THE FOLLOWING SEQUENCE IS EXECUTED. 

1. THE REREAD NEXT COMMAND WITH OPP-1 IS ISSUED 
AND THE RESULTS CHECKED 

2. A READ FORWARD COMMAND IS THEN ISSUED AND THE 
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
POSITIONED PROPERLY AFTER THE REREAD NEXT 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START OF THE TEST RECORD). THE 
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 

THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET 
TO THE LENGTH OF THE EXPECTED RECORD. SO NO 
EXCEPTIONAL CONDITIONS SHOULD OCLUR. 



t - 



BGNSUB 



JSR 


PC.T26REST 


CLR 


T26CNT 


JSR 


PC.T26RT2 


JSR 


PC,T26RT3 



.ii.>>>i>.. >>>^ BEGIN SUBTEST >>>>>>>>>>>> 

T6.9: 

TRAP C$BSUB 
J SET COMMAND PACKET 
I CLEAR TAPE RECORD COUNTER 
1 SET UP OTHER COMMAND PACKET 
J SET UP OTHER COMMAND PACKET 



L2 
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SEQ 231 



7367 
7368 
7369 
7370 
7371 
7372 
7373 
7374 
7375 
7379 
7380 



7381 
7382 
7363 
7384 
7385 
7386 
7387 
7388 
7389 
73V0 
7391 
7392 
7395 
7397 
7398 



7399 

7400 
7401 
7402 
7403 
7404 
7405 
7406 
7407 
7408 
7409 
7410 
7411 
7412 
7416 



7417 
7418 



! ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

J +*i»i + * + *** + * + + *** + ***** ♦**♦***♦♦*♦♦♦♦♦*♦*♦♦♦♦♦*♦*♦*♦*♦***********♦ A 



064262 
064266 
064270 
064274 
064276 
064276 
064300 
064302 
064304 
064306 



004737 
103407 
005237 
010001 

104455 

001251 

003642- 

011734' 

013737 



015674 
002212 



064314 012704 



002172 
071700' 



071720' 20$: 



JSR 


PC.SOFINIT 


1 00 INITIALIZE ON CONTROLLER 




BCS 


20$ 


jBR IF INIT WAS OK 




INC 


FATFLG 


iBUMP COUNT 




MOV 


RO.Ri 


1 CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


681 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T26DSW 


J SET UP UNIT NUMBER 





064320 
064324 
064326 
064332 
064:! 34 
064334 
064336 
064340 
064342 
064344 
064344 



004737 
103407 
005237 
010001 

104456 
001232 
005046' 
011734' 

104406 



010562 
002212 



064546 
064352 
064354 
064360 
064364 
064366 
064 3 72 
0643^2 
064574 
064376 
064400 
064402 
064402 



004737 
103413 
016501 
012702 
010004 
005237 

104456 
001255 
075364 
011746 

104406 



010714' 

000002 
000200 

002212' 



MOV 



*T26PACKET,R4 



(SUBROUTINE NEEDS PACKET ADDRESS 



I WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
i 



26$: 



JSR PC, WRTCHR 

BCS 26$ 

INC FATFLG 

MOV RO.RI 

ERRHRD ERRNO , WRTMSG » SFIHSG 



CKLOOP 



I ISSUE WRITE CHARACTERISTICS 
J BR, IF COMMAND ISSUED OK 
I BUMP COUNT 

;SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTI5C FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 

TRAP 



i ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 

(CALL TAPE REWIND COMMAND 
J BR, IF NO PROLLEM 
iGET TSSR 

jCET UP EXPECT*:d TSSR 
(PACKET ADDRESS SET UP 
(BUMP COUNT 
ERRHRD ERRNO, T26RWN,PKTSSR (REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


TSSR(R5),R1 


MOV 


0SSR,R2 


MOV 


R0.R4 


INC 


FATFLG 



30$: 



CKLOOP 



(LOOP IF SELECTED 



CSERHRD 
682 

WRTMSG 
SFIMSG 

C$CLP1 



TRAP 


CiERHRO 


.W AO 


683 


.WORD 


T26RWN 


.WORD 


PKTSSR 



TRAP 



CiCLPl 



M2 



TSV7 - HARDWARE TESTS 1 
TEST Sx REREADS 



7419 
7420 
7421 
7422 
7431 
7424 
7425 
7426 
7427 
7428 
7429 
7430 
7434 



-8 
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SEQ 232 



7435 

7436 

743V 

7438 

7439 

7440 

7441 

7442 

7443 

7444 

7445 

7446 

7447 

7448 

7449 

7450 

7451 

7452 

7453 

7454 

7455 

7456 

7457 

7461 



7462 

7463 
7464 
7465 
7466 
7467 
7468 
7469 
7^70 
7471 



064404 
064410 
064412 
064416 
064420 
064422 
064426 
064426 
064430 
064432 
064434 
064436 
064436 
064440 
064444 



064452 
064460 
064464 
064464 
064470 
064476 
064504 
064510 
064514 
064520 
064524 
064526 
064530 
064534 
064534 
064536 
064540 
064542 
064544 
064544 
064546 
064550 
064554 
064556 
064560 
064560 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
001254 
073075' 
015374' 

104406 
012703 
013737 



012737 
012704 

010337 
0137:7 
062737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001255 
005103' 
011746 

101406 
005723 
022703 
001401 
000742 



071730' 
000002 

002212' 



000400 

003114' 072032' 



140005 072030' 
072030' 



072036' 

072056' 

000001 

000000 

016150' 

000002 

000200 



002212' 



116416 
072056 



000414 



005037 072056 



READ MESSAGE SUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
t 

(PICK UP XSTO 

J SET UP EXPECTED 
I SET BOT BIT IN EXPECTED 
;DOES EXP - REC'D 
I BR. IF EQUAL COK) 
iBUMP COUNT 

J TAPE NOT AT BOT AFTER REWIND 

TRAP 

. wor^o 

.WORD 
.WORD 
40$: CKLOOP iLOOP IF SELECTED 

TRAP 

i RECORD SIZE 

; STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR*6.R1 


MOV 


Rl.P? 


BIS 


*BIT1,R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO . T26B0T , EXPREC 



CKLOOP 

MOV 
MOV 



0256. ,R3 
FREE,T26RB 



CJERHRO 
684 

T26B0T 
EXPREC 

C$CLP1 



WRITE DATA.CVC-l.ACK COMMAND 



65$ 



MOV 


0140005, T26PK3 


MOV 


OT26PK3,R4 


MOV 


R3.T26SZ 


MOV 


T26CNT,8FREE 


ADD 


01.T26CNT 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


0SSR,R2 


CMP 


R1.R2 


BEQ 


75$ 


INC 


FATFLG 



75$ 



ERRHRD ERRNO . WRTERR , PKTSSR 



CKLOOP 



TST 


(R3)* 


CMP 


0268. ,R3 


BEQ 


120$ 


BR 


65$ 



120$ 



CLR 



T26CNT 



iWRITE 0ATA,CVC '1 .ACK COMMAND 
I SET UP R4 WIT , (-ACKET ADDRESS 

;ScT UP RECORD SIZE IN PACKET 

J MOVE TAPE RECORD NUMBER TO BUFFER 

; NUMBER READY FOR NEXT RECORD 

; ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

{SET UP EXPECTED 

(ARE THEY EQUAL 

iBR. IF OK 

iBUMP COUNT 

;TSSR INCORRECT AFTER REREAD DATA 

TRAP C$ERHRD 
.WORD 685 
.WORD WRTERR 
.WORD PKTSSR 

J LOOP IF SELECTED 

TRAP CSCLPl 

iBUMP THE RECORD SIZE 

{MAXIMUM SIZE YET 

iBR. IF AT END OF WRITE SEQUENCE 

J WRITE MORE RECORDS 

{SET RECORD COUNTER BACK TO ZERO 



• 4i4i'(i4i4t4i4ijf*.*4i*4i4i4t**4jK4i4>.>ti4i'ti*.4t4i4t<)i*4L4k*4i4i*4k****4L44>44i+.4i4'4L4k4t4>4>4i4k4i4'44L4L4i4>^4k4i4^ 



N2 



TSV7 • HARDWARE 


TESTS 1 


-8 


TEST 6: 


RBREAOS 




7472 








7473 








7474 








7475 








7476 


064564 


004737 


010714' 


7477 


064570 


103411 




7478 


064572 


016501 


000002 


7479 


064576 


010004 




7480 


064600 


005237 


002212' 


7484 


064604 








064604 


104456 






064606 


001256 






064610 


073364' 






064612 


011746' 




7485 


064614 








064614 


104406 




7486 








7487 








74 38 








7489 








7490 








7491 








7492 








7493 


064616 


013701 


071730' 


7494 


064622 


010102 




7495 


064624 


052702 


000002 


7496 


064630 


020102 




7497 


064632 


001406 




7498 


064634 


005237 


002212' 


7502 


064640 








064640 


104456 






064642 


001257 






064644 


073075' 






064646 


015374' 




7503 


064650 








064650 


104406 




7504 


064652 


012737 


000400 


75^;5 


064660 


000420 




7506 








7507 








7508 








7509 








7510 








7511 








7512 








7513 








7514 


064b62 


012703 


000001 


7515 


064666 


004737 


010366' 


7516 


06" 6 72 


103413 




7517 


064674 


016501 


000002 


7518 


064 70'.' 


012702 


000200 


7519 


064 7 (.4 


0100C4 




7520 


064706 


005237 


002212' 


7524 


0647 li 








064712 


104450 






064714 


001260 






064716 


072477' 
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072062 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

I CALL TAPE REWIND COMMAND 

;BR. IF NO PROBLEM 

jGET TSSR 

; PACKET ADDRESS SET UP 

J BUMP COUNT 

(REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


130$ 


MOV 


TSSRCR5).R1 


MOV 


R0.R4 


INC 


FATFLG 



ERRHRD ERRNO , T26RWN . PKTSSR 



130$ 



CKLOOP 



;LOOP IF SELECTED 



TRAP 
■READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

;44*4**4>* fr**4>4*4i44i4t4i4>4i«4i4i4i4i4i4i4i4[4i4i4(4i4i4i4t4i4t4t4i4t4i>>4.4i4i**4i*4**44*4*4*4i4*4 

PICK UP XSTO 

SET UP EXPECTED 
SET BOT BIT IN EXPECTED 
iDOES EXP - REC'D 
I BR. IF EQUAL (OK) 
IBU^»P COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
135$: CKLOOP jLOOP IF SELECTED 

TRAP 
; STARTING RECORD SIZE 
I SKIP OVER THE SA'^CE THIS TIME 



MOV 


T26BFR*6,P1 


MOV 


R1,R2 


BIS 


#eiTl.R2 


CMP 


R1,R2 


BEQ 


135$ 


INC 


FATFLG 



ERRHRD ERRNO , T26B0T , EXPREC 



CKLOOP 

MOV 
BR 



0256,.T26RSZ 
140$ 



• 4-***4L**4>44>******4i*4*4>A*4***4i**********44444'4**4>4i4t4>4t4t**4i4i4i4i4i***4i*** 
I 

(ISSUE SPACE RECORDS COMMAND - VALUc IN R3 SETS NUMBER OF RECORDS 

iBIl 15 SETS DIRECTION - O-FORWARD 1-REVERSE 

i 

• «*4i****4t«*«*********4>*4i***4i*4*4i**4L4i4i*4i*4i*4i4i..4i4>4L***4****4.-**444*«4* 



SEQ 233 



TRAP 


C$ERHRD 


.WORD 


686 


.WORD 


T26Rl.'N 


.WORD 


PKTSSR 



C$CLP1 



C$ERHRD 
687 

T26B0T 
EXPREC 

C$CLP1 



132$: 



MOV 


*000001.R3 


JSR 


PC . SPACE 


BCS 


140$ 


MOV 


TSSRCR5),R1 


MOV 


<>SSR.R2 


MOV 


R0.R4 


INC 


FA' =^LG 



ERRHRD ERRNO. T26bC . PKTSSR 



i SET UP SPACE COMMAND (1 FORWARD) 

iCALL SPACE ROUTINE 

I BR. IF NO TROUBLE 

iGET TSSR 

(SET UP EXPECTED i SSR 

i PACKET ADDRESS SET UP 

iBUMP COUNT 

I SPACE (FORWARD) FAILED 

TRAP C$ERHRD 
.WORD 688 
.WORD T26SC 



B2 



TSV7 - HARDWARE TESTS 1-6 
TEST 6j rereads 



6854 
6855 



6856 
6857 
6858 
6859 
6860 
6861 
6862 
6663 
6864 
6865 
6666 
6867 
6660 
6869 
6870 
6871 
6872 
6873 
6674 
6875 
6676 
6877 
6678 
6879 
6660 
6681 



6882 
6683 
6684 
6885 
6666 
6687 
6688 
6669 
6690 
6691 
6892 
6893 
6894 
6698 
6899 



6900 
6901 
6902 



062470 
062472 
062474 
062474 
062476 
062476 
062476 
062500 
062506 
062510 
062514 



062514 
062514 
062514 
062516 
062522 
062526 



062532 
062536 
062540 
062544 
062546 
062546 
062550 
062552 
062554 
06P556 



074354' 
015374- 

104406 



104403 
023727 
103402 
004737 



004737 
103407 
005237 
010001 

104455 
001225 
003642 

011734 
013737 
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290$: 



002212 
017104 



000017 



Ol-FEO-84 


17:54 


CKLOOP 




ENOSUB 




CMP 
BLO 
JSR 


FATFLG,*15. 

9991 

PC.CKOROP 



SEQ 221 



999$: 



TEST 6. SUBTEST 7 



VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-O 
ANO SWB-»0 OPERATES PROPERLY. THE TAPE IS FIRST 
REWOUND AND THEN WRITTEN WITH A SERIES OF TEST 
RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE 
IS THEN REWOUND AGAIN. FOR EACH TEST RECORD. THE 
TAPE IS SPACED FORWARD ONE RECORD AND A REREAD 
NEXT COMMAND ISSUtD. RESULTS CSTATUL, OATA» 
ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD 
NEXT COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 



.WORD T26PBP 
.WORD EXPREC 

iLOOP IF SELECTED 

TRAP C$CLP; 

!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

LlOllO: 

TRAP CIESUB 
(IS ERROR COUNT AT 25 
I BR, IF LESS THAN 25 
(TRY TO DROP THE UNIT 



104402 

004737 074620 

004737 074712 

004737 074754 



BGNSUe 



JSR 

j;r 
Ji^ 



PC,T26REST 

PC,T26RT2 
PC.T26RT3 



{>)>>>%>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T6.7t 

TRAP C$BSUB 
I SET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



0156/4 
002212 



062564 012704 



002172" 071720* gOli 
073.700* 



JSR PC.SOFINIT 

BC5 20$ 

INC FATFLG 

MOV RO.Rl 

ERROF ERRNO, SFIERR , SFIMSG 



MOV UNITN.T26DSW 
MQV «T26PACKET,R4 



(CONTENTS OF 
(FATAL ERROR 



iDO INITIALIZE ON CONTROLLER 

(BR IF INIT WAS OK 

(BUMP COUNT 

TSSR REGISTER 
TS5R WAS NOT OK 
TRAP 
.WORD 
.WORD 
.WORD 

(SET UP UNIT NUMBER 

iSUBBOUTINE NEEDS PACKET ADDRESS 



C»EROF 
661 

SFIERR 
SFIMSG 



C2 



TSV? - HARDWARE 
TEST 6t REREaD 


TESTS 1 


-8 


6905 






6<)04 






6905 






6906 






6907 






6906 






6909 






6910 062570 


004757 


010562 


6911 062574 


103407 




6912 062576 


005237 


002212 


6916 062602 


010001 




6917 062604 






06C604 


104456 




062606 


001226 




062610 


005046' 




062t)12 


011734- 




6918 062614 






062614 


104406 




6919 






6920 






6921 






6922 






6923 






6924 






6925 






6926 062616 


0O47J7 


010714 


6927 062622 


105413 




6926 062624 


016501 


000002 


0929 062630 


012702 


000200 


6950 062634 


010004 




6931 062636 


005237 


002212 


6935 062642 






062642 


104456 




062644 


001227 




062646 


C 73364' 




062650 


011746' 




6936 062652 






062652 


104406 




6937 






6936 






6939 






6940 






6941 






6942 






6943 






6944 062654 


013701 


071730 


6945 062660 


010102 




6946 062662 


052702 


000002 


6947 062666 


020102 




6948 062670 


001406 




6949 0626/2 


005237 


002212 


6953 062676 






062676 


104456 




062700 


001230 




062702 


073075' 




062704 


0X5374' 




6954 062706 
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IwRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
1 



26? J 



JSR PC, WRTCHR 

BCS 26$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSG . SFIMSG 



CKLOOP 



(ISSUE WRITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
iLOOP IF SELECTED 

TRAP 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
I 



30$: 



JSR PC, REWIND 

BCS 30* 

MOV TSSR(R5),R1 

MOV aSSR,R2 

MOV R0.R4 

INC FAT5LG 

ERRHRD ERRNO, T26RWN.PKTSSR 



CKLOOP 



(CALL TAPE REWIND COMMAND 

iBR, IF NO PROBLEM 

jGET TSSR 

iSET UP EXPECTED TSSR 

I PACKET ADDRESS SET UP 

(BUMP COUNT 

(REWIND NOT ACCEPTED 



iLOOP IF SELECTED 



TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



'«**«* 



iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER 2ER0 CXSTO) 



(PICK UP XSTO 
iSE^ UP EXPECTED 
iSET BOT BIT tn EXPECTED 
iDOES EXP - RfcC'O 
iBR, IF EQUAL (OK) 
iBOMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40* i CKLOOP I LOOP IF SELECTED 



MOV 


T26BFR»6,R1 


MOV 


R1.R2 


BIS 


*eiri,R2 


CMP 


Rl,rt2 


6EQ 


40t 


INC 


FATFLG 



ERRHRD ERRNO . T26B0T , £XPREC 



SEQ 222 



C»ERHRD 
662 

WRTMSG 
SFIMSG 

CICLPl 



CiERHRO 
663 

T26RUN 
PKTSSR 

CtCLPl 



CJERHRO 
664 

T26B0T 
EXPREC 



D2 



}m eTmm 


TESTS 1 


-8 




062706 


104406 




6955 


062710 


012703 


000400 


6956 


062714 


013737 


003114 


6957 








6956 








6959 








696r. 








696 _ 








6%2 








6963 








6964 


0627J2 


012737 


140005 


6965 


062730 


012704 


072030 


6966 


062734 






6967 


062734 


010300 




6968 


062736 


004737 


017324 


6969 


062742 


010337 


072036 


6970 


062746 


010465 


OCOOOO 


6971 


062752 


004737 


016150 


6972 


062756 


016501 


000002 


6973 


062762 


012702 


000200 


6974 


062766 


020102 




6975 


062770 


001406 




6976 


062772 


005237 


002212 


6980 


062776 








062776 


104456 






063000 


001231 






063002 


005103- 






063004 


011746' 




6981 


063006 








063006 


104406 




698^ 


063010 


005723 




6983 


063012 


022703 


000414 


6984 


063016 


001346 




6985 


063020 








063020 


104406 




6986 


063022 






6987 








6968 








6989 








6990 








6991 








6992 








6993 








69<W 


063022 


004737 


010714 


6995 


063026 


103413 




6996 


063030 


016501 


000002 


6997 


063034 


012702 


000200 


6998 


063040 


010004 




6999 


063042 


005237 


002212 


7003 


063046 








063046 


104456 






063050 


001232 






063052 


073364' 






063054 


011746' 




7004 


063056 








063056 


104406 




7005 
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072032' 



072030' 



MOV 0256. ,H3 
MOV FREE.T26RB 



TRAP 
I RECORD SIZE 
I STARTING WRITE BUFFER ADDRESS 



CICLPI 



! WRITE DATA.CVC-l.ACK COMMAND 
t 

I 4i44i****4>*4*«A4i4i* ******************* *4t<i*****4******«*****4i4iiti4i4i4i*4i4()i 



65$ 



MOV 


0140005, T26PK3 


MOV 


0T26PI<3,R4 


MOV 


R3.R0 


JSR 


PC.FILLMEM 


MOV 


R3,T26SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


«SSR.R2 


CMP 


R1,R2 


BEQ 


75$ 


INC 


FATFLG 



ERRHRO ERRNO.WRTERR.PKTSSR 



iWRITE OATA.CVC-l.ACK COMMAND 
I SET UP R4 WITH PACKET ADDRESS 

I SET PATTERN IN CORRECT REGISTER 

jFILL MEMORY WITH RECORD SIZE 

I SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

iWAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

I SET UP EXPECTED 

J ARE THEY EQUAL 

iBR, IF OK 

(BUMP COUNT 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 



75$ 



CKLOOP 

TST 
CMP 
6NE 
CKLOOP 



iLOOP IF SELECTED 



(R3)» 
0268.. R3 
65$ 



.WORD 
.WORD 
.WORD 

TRAP 



I BUMP RECORD SIZE 

(END OF RECORD YET 

iBR. IF MORE RECORDS TO WRITE 

(LOOP IF SELECTED 

TRAP 



80$: 

120$: 

{**********************«**«4i****4>**************************«4i4i***** 

I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
I 

I ****************4i******** *********** **********«***«*********A*4.**4 

(CALL TAPE REWIND COMMAND 

J BR. IF NO PROBLEM 

I GET TSSR 

iSET UP EXPECTED TSSR 

I PACKET ADDRESS SET UP 

I BUMP COUNT 

I REWIND NOT ACCEPTED 



665 

l^TERR 

PKTSSR 

C$CLP1 



C$CLP1 



JSR 


PC, REWIND 


BCS 


130$ 


MOV 


TSSR(R5),R1 


MOV 


0SSR,R2 


MOV 


R0,R4 


INC 


FATFLG 



ERRHRO ERRNO , T26RWN , PKTSSR 



130$: CKLOOP 



iLOOP IF SELECTED 



TRAP 


CJERHPD 


.WORD 


666 


.WORD 


T26RWN 


.WORD 


PKTSSR 



SEQ 223 



TRAP 



C$CLP1 



E2 



TSV7 - HARDWARE TESTS 1-6 
TEST 6: REREADS 



7006 
7007 
7008 
7009 
7010 
7011 
701^ 
7015 
7014 
7015 
7016 
7017 

7021 
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SEQ 224 



7022 

7023 
7024 
7025 
7026 
7027 
7028 
7029 
7030 
7031 
7032 
7033 
7034 
7035 
7036 
7037 
7038 
7039 
7045 



7044 

7045 
7046 
704 7 
704ft 
7049 
7050 
7051 
7C52 
7053 
7054 
7055 
7056 
7057 
7058 



063060 
063064 
063066 
063072 
063074 
063076 
063102 
063102 
063104 
063106 
063110 
063112 
063112 
063114 
063122 



013701 071730' 

010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001235 
073075' 
015374' 

104406 

012737 000400 

000420 



072062' 



063124 
063130 
063134 
063136 
063142 
063146 
063150 
063154 
063154 
063156 
063160 
063162 
063164 
063164 
063166 
063172 



012703 000001 

004737 010366' 

103413 

016501 000002 

012702 000200 

010004 

005237 002212' 

104456 
0012^4 

072477' 
015374* 

104406 

013703 07206Z' 

013737 003114' 



072032 



063200 
063206 
063212 
063216 
063222 



012737 141401 

012704 072030 

010337 072036 

010465 000000 

004737 016150 



072030' 



(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 
i 

(PICK UP XSTO 

iSCT UP EXPECTED 
(SET BOT BIT IN EXPECTED 
(DOES EXP - REC'D 
I BR, ir EQUAL COK) 
I BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
140 J: CKLOOP I LOOP IF SELECTED 

TRAP 
I STORE START RECORD SIZE 
I SKIP THE SAPCE THIS TIME 



MOV 


T26BFRf6,Rl 


MOV 


R1.R2 


BIS 


*BIT1,R2 


CMP 


R1.R2 


BEQ 


140$ 


INC 


FATFLG 



ERRHRD ERRNO , T26B0T , EXPREC 



CKLOOP 

MOV 
BR 



*256..T26RSZ 
150$ 



C$ERHRD 
667 
T26B0T 
EXPPEC 

CiCLPl 



I 

I ISSUE SPACE RtCORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 

»BIT 15 SETS DIRECTION - O-FQRWARD 1-REVERSE 

( 



145$ ! 



MOV 


01, R3 


JSR 


PC. SPACE 


8CS 


150$ 


MOV 


TSSR(R5),ni 


MOV 


*SSR,R2 


MOV 


R0.R4 


INC 


FATFLG 



ERRHRD ERRNO . T26SC , EXPREC 



150$: CKLOOP 

MOV 
MOV 



(SPACE ONE RECORD PARAMETER 

(CALL SPACE ROUTINE 

(BR. IF NO PROBLEM WITH SPACE COMMAND 

(GET TSSR 

(SET UP EXPECTED TSSR 

(PACKET ADDRESS SET UP 

(BUMP COUNT 

(POSITION (SPACE RECORDS) BAILED 

TRAP CIEHHRO 
. WORD 668 
.WORD T26SC 
.WORD EXPREC 



T.?6RSZ.R3 
FREE , T26RB 



TRAP 
(RECORD SIZE 
(STARTING READ BUFFER ADDRESS 



C$CLPl 



( 

(REREREAD DATA.CVC-1 . ACK COMMAND 
( 

(REREREAD DATA, CVC-1 .ACK COMMAND 
165$: MOV 0T26PK3.R4 (SET UP R4 WITH PACKET ADDRESS 

(SET UP RECORD SIZE IN PACKET 
(ISSUE COMMAND 
(WAIT FOR SSR TO SET 



MOV 


«1414C1,T26PK3 


MOV 


0T26PK3.R4 


MOV 


R3,T26SZ 


MOV 


R4,TSDBCR5) 


JSR 


PC»WAITF 



TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 



F2 
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SEQ 225 



7059 063226 


016501 


000002 


7060 063232 


012702 


000200 


7061 063236 


020102 




7062 063240 


001406 




7063 063242 


005237 


002212' 


7067 063246 






063246 


104456 




063250 


001235 




063252 


073720* 




063254 


011746' 




7066 063256 






063256 


104406 




7069 063260 


013702 


003114- 


7070 063264 


010304 




7071 063266 


162704 


000400 


7072 063272 


060204 




7073 063274 


021403 




7074 063276 


001410 




7075 063300 


011401 




7076 063302 


010302 




7077 063304 


005237 


002212' 


7081 063310 






063310 


104456 




063312 


001236 




063314 


073142- 




063316 


015374' 




7082 063320 






063320 


104406 




7083 063322 


005724 




7084 063324 


160204 




7085 063326 


020403 




7086 063330 


001360 




7087 063332 


005723 




7088 063334 


010337 


072062' 


7069 063340 


022703 


000410 


7090 063344 


001267 




7091 063346 






063346 


104406 




7092 063350 






063350 






063350 


104403 




7093 063352 


023727 


002212- 000017 


7094 063360 


103402 




7095 063362 


004757 


017104' 


7096 063366 






.097 






7098 






7099 






7100 






7101 






7102 






7102 






7104 






7105 






7106 






7107 






7108 







MOV 


TSSRCR5).R1 


(GET TSSR CONTENTS 


MOV 


*SSR,R2 


(SET UP EXPECTED 


CMP 


R1,R2 


lARE THEY EQUAL 


BEQ 


170t 


iBR, IF OK 


INC 


FATFLG 


iBUMP COUNT 


ERRHRD 


ERRN0.T26WDC,PKTSSR 


iTSSR INCORRECT AFTER 



170$: CKLOOP 

MOV 
MOV 
SUB 
173$: ADD 
CMP 
BEQ 
MOV 
MOV 
INC 
ERRHRD 



180J; CKLOOP 



190$: 



999$: 



» ♦ 



ENDSU6 



CMP 
BLO 
JSR 



I LOOP IF SELECTED 



REREAD 
TRAP 
.WORD 
.WORD 
.WORD 



DATA 

C$ERHRD 
669 
T26WDC 
PKTSSR 



FREE,R2 

R3.R4 

«256. .R4 

R2.R4 

CR4),R3 

180$ 

(R4).R1 

R3.R2 

FATFLG 

ERRN0.T26DTA.EXPREC 



TRAP 



TO R2 

SIZE 

IN BUFFtiR 



TST 


(R4)* 


SUB 


R2.R4 


CMP 


R4,R3 


BNE 


173$ 


TST 


<R3)* 


MOV 


R3.T2AR5Z 


CMP 


0264.. R3 


BNE 


145* 


CKLOOP 





(CURRENT BUFFER ADDRESS 

(CURRENT RECORD 

(FIRST LOCATION 

(SET UP POINTER 

(CHECK DATA READ (R3-DATA ALSO) 

(BR, IF ALL IS WELL 

(RECO DATA 

(EXPECTED DATA 

(BUMP COUNT 

(DATA READ NOT - WRITTEN 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 

(BUMP TO NEXT LOCATION 

(CORRECT RECORDS SIZE VALUE 

(END OF RECORD YET 

(BR. IF NOT AT END OF RECORD 

(BUMP RECORD SIZE 

(STORE PRESENT RECORD SIZE 

(ENP OF RECORD YET 

(BR, IF MORE RECORDS TO READ 

(LOOP if SELECTED 

TRAP 



C*CLP1 



C$ERHRO 
67C 
T26DTA 
EXPREC 

C$CLP1 



C$CIP1 



I >>>>>>>>>>>> 



FATFLG, 015. 

999$ 

PC.CKDROP 



END SUBTEST 
LlOlll: 

TRAP 
(IS ERROR COUNT AT 25 
(BR, IF LESS THAN 25 
(TRY TO DROP THE UNIT 



>>^>*>>>i>^> 



C$ESU6 



iTEST 6. SUBTEST C 

(VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-0 

(AND SWB-1 OPERATES PROPERLY. THE TEST SEQUENCE IS 

(THE SAME AS THAT USED IN SUBTEST 1, BUT IT IS 

(VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 

(SWAPPED BYTES. 

i 

I 



TSV7 - HARDWARE: TESTS X 
TEST 6: REREADS 



G2 



-8 
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SEQ 226 



7109 
7110 
7111 



7112: 
7113 
7114 
7115 
7116 
7117 
711S 
7119 
7120 
7121 
7122 
7123 
7124 
7128 
7129 



7130 
■-131 
7132 
7133 
7134 
7135 
7136 
7137 
7138 
7139 
7140 
7141 
7142 
71'!£ 
7147 



7148 

7149 
7150 
7151 
7152 
7153 
7154 
7155 
7156 
7157 
7158 
7159 
7160 



063366 
063566 
063366 
063370 
063374 
063400 



I 

J - 



104402 
004737 
00473/ 
004737 



074620' 
074712' 
074754' 



BGNSUB 



JSR 
JSR 
JSR 



PC,T26REST 

PC»T26HT2 

PC,T26ftT3 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T6.8t 

TRAP CJBSUB 
(SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
J SET UP OTHER COMMAND PACKET 



1 

i ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ER«OR 
t 

j4i*****4i****4i^4>4>4>**4>4>4>**4>4>*j»t**V44(***4>************4i4>**«*4>*****«4>*4t4* 



063404 
063410 
063412 
063416 
065420 
063420 
063422 
063424 
063426 
063430 



004737 
103407 
005237 
010001 

104455 
001237 
003642' 

011734' 
013737 



015674 
002212 



063436 012704 



002172' 
071700' 



071720' 20 J J 



JSR 


PC.SOriNIT 


jDO INITIALIZE ON CONTROLLER 




BCS 


20$ 


(BR IF INIT WAS OK 




INC 


FATFLG 


iBUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TS5R REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


CJERDF 






.WORD 


671 






.WOHD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T26DSW 


(SET UP UNIT NUMBER 





MOV 



«T26PACKET,R4 



(SUBROUTINE NEEDS PACKET ADDRESS 



063442 
063446 
063450 

A ^ ■■ » ^ • 

063456 
063456 
063460 
063462 
065464 
06>466 
063466 



004737 
103407 
005237 
OlOOOl 

104456 
001240 
005046 
011754 

104406 



010562' 
002212' 



t **************** ********4**««*4>***4>*4>** ****** 4>*4i4t*4>*****«4i4i4i**4i4>** 

(WRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 
{ 

1****************************4 J ******** :iij,*******A**A4i*A444,444i44,^^44 

JSR 



26$: 



pr.uoiCHR 
CCS 26$ 
INC FATFLG 
MOV RO.Rl 
ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



(ISSUE WRITE CHARACTtRISTICS 
(BR, IF COMMAND ISSUED OK 
(BUMP cour^T 

(SAVE COtvlTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WOPD 
.WORD 
.WORD 
(LOOP IF SELECTED 

TRAP 



CiERHRD 
672 

WRTMSG 
SFIMSG 

C$CLP1 



063470 
063474 
0654 76 
063502 
063506 



004 73 7 
105415 
016501 
012 702 
010004 



010714' 

000002 
000200 



****************************************************************** 
TSSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

******** A ****************************************** **************4, 

(CALL TAPE REWIND COMMAND 

(BR. IF NO PROBLEM 

(GET TSSR 

(SET UP EXPECTED TSSR 

(PACKET ADDRESS SET UP 



JSR 


PC. RE WIND 


BCS 


30$ 


MOV 


TS5R(R5),R1 


MOV 


0SSR.R2 


MOV 


R0.R4 



-12 



TSV7 - HAPDWARE 


TESTS 1 


-3 


TEST 6: REREADS 




7161 063510 


005237 


002212' 


7165 063514 






063514 


104456 




063516 


0'M241 




063520 


07 3364' 




063522 


011746" 




7166 063524 






063524 


104406 




7167 






7168 






716'^ 






7170 






7171 






7172 






7173 






7174 063526 


013701 


071730' 


7175 063532 


010102 




7176 063534 


052702 


000002 


7177 063540 


020102 




7176 063542 


001406 




7179 063544 


005237 


002212' 


7183 063550 






063550 


104456 




063552 


001242 




063554 


073075' 




063556 


015374' 




7184 063560 






063560 


104406 




7185 063562 


012703 


000400 


7166 063566 

7187 

7186 


013737 


003114' 






7189 






7190 






7191 






7192 






7193 






7194 063574 


012737 


150005 


7195 065602 


012704 


072030' 


7196 063606 






7197 06360o 


010300 




7198 063610 


004737 


017324' 


7199 063614 


010337 


072036' 


7200 063620 


010465 


000000 


7201 063624 


004737 


016150' 


7202 063630 


0l6i01 


000002 


7203 063634 


017702 


000200 


7204 063640 


020102 




7205 063642 


001406 




7206 063644 


005237 


002212' 


7210 063650 






063650 


104456 




063652 


001243 




063654 


005105' 




063656 


011746' 




7211 063660 






063660 


104406 
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072032 



072030 



;o$: 



INC FATFLG 

ERRHRD ERRN0,T26RWN.PI<TSSR 



CKLOOP 



iBUMP COUNT 






(REWIND NOV ACCEPTED 








TRAP 


C$ERHRD 




.WORD 


673 




.WORD 


T26RWN 




.WORD 


PKTSSR 



I LOOP IF SELECTED 



TRAP 



t ************ *1,.*A**4* A* ********* J. A4L********4>«4>*«4i*jf*4i* 4.4*41 4>«4>*«*4i4i 
t 

jREAO MESSAGE Bl>FFER EXTENDED STATUS REGISTER ZERO CXSTO) 
I 

;PICK UP XSTO 
I SET UP EXPECTED 
I SET BOT BIT IN EXPECTED 
I DOES EXP - REC'D 
I BR. IF EQUAL COK) 
;BUMP COUNT 

J TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40$ i CKLOOP (LOOP IF SELECTED 

TRAP 
(RECORD SIZE 
I STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR*6,R1 


MOV 


R1,R2 


BIS 


*6IT1,R2 


CMP 


R1,R2 


BEQ 


40S 


INC 


FATFLG 



E»-'^SHnD ERRNO , T26B0T , EXPREC 



CKLOOP 

MOV 
MOV 



«256. ,R3 
FREE,T26RB 



(WRITE DATA.CVC-l.ACK.SWe COMMAND 
I 



CJCLPl 



C$ERHRD 
674 
I26B0T 
EXPREC 

C*CLP1 



65$ 



MOV 


*1500C5,T26PK3 


MOV 


*T26PK3,R4 


MOV 


R3.R0 


JSR 


PC.FILLMEM 


MOV 


R3.T26SZ 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


75* 


INC 


FATFLG 



75$ 



ERRHRD ERRNO , WRTERR , PKTSSR 



CKLOOP 



(WRITE 0ATA,CVC»1.ACK,SWB COMMAND 
(SET UP R4 WITH PACKET ADDRESS 

(Si.f PATTERN IN CORRF.CT REGISTER 

(FILL MEMORY WITH RECORD SIZE 

(SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR. IF OK 

(BUMP COUNT 

(TSSR INCORRECT AFTER WRITE DATA 

TRAP CJERHRO 
.WORD 675 
.WORD WRTERR 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 



SEQ 227 



12 



TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 



721? 
7a 13 
7214 
7215 

7216 
7217 
7218 
7219 
7220 
7221 
7222 
7223 
7224 
7225 
7226 
7227 
722G 
7229 
7233 



7234 

7255 
7256 
7237 
7238 
7239 
7240 
7241 
7242 
7243 
7244 
7245 
7246 
7247 
7251 



7252 

7253 
7254 
7255 
7256 
725 7 
7256 
7259 
7260 
7261 
7262 
7263 



063662 
063664 
063670 
063672 
063672 
063674 



005723 

022703 000414 

001346 

104406 



063674 
063700 
063702 
063706 
063712 
063714 
063720 
063720 
063722 
063724 
063726 
063730 
063730 



004737 
103413 
01650) 
012702 
010004 
005237 

104456 
O01244 
073364' 
011746' 

104406 



063732 
063736 
065740 
063744 
063746 
063750 
063754 
063754 
063756 
063760 
0637S2 
063764 
063 764 
063766 
063774 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
001245 
073075' 
015374 

104406 
012737 
000420 



010714' 

000002 
000200 

002212 



071730 
000002 



002212 
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000400 072062 



80$: 
120* : 



TST 
CMP 
BNE 
CKLOOP 



(R3)* 
«268. ,R3 
65$ 



I BUMP RECORD SIZE 

I END OF RECORD YET 

tBR, IF MORE RECORDS TO WRITE 

I LOOP IF SELECTED 

TRAP 



I 

(ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 

(CALL TAPE REWIND COMMAND 
(BR, IF NO PROBLEM 
iGET TSSR 

(SET UP EXPECTED TSSR 
I PACKET ADDRESS SET UP 
I BUMP COUNT 
ERRHRD ERRN0.T26RWN.PKTSSR (REWIND NOT ACCEPTED 



JSR 


PC. RE WIND 


BCS 


130$ 


MOV 


TSSRCR5),R1 


MOV 


*SSR,R2 


MOV 


R0.R4 


INC 


FATFLG 



130$: CKLOf-P 



(LOOP IF SELECTED 



TRAP 



J «***« ««**«***«*«> «««>4i* «***«• *««««*««* 4* «*«***«44« ********* A* *4i AAA *4i 
J 

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 
* 

1*************************************4^*41******************^******* 

.^FICK UP XSTO 
;SKT UP EXPECTED 
I SET BOT BIT IN EXPECTED 
(DOES EXP • REC'O 
iBR. IF EQUAl (OK) 
J BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
140$! CKLOOP tLOOP IF SELECTED 

TRAP 
(START RECORD SIZE 
(SKIP SAPCE THIS TIME 



MOV 


T26BFR*6»R1 


MOV 


RI.R2 


BIS 


oeiTl,R2 


CMT 


R1.R2 


BEQ 


140i 


IMC 


FATFLG 



ERRHRD ERRNO , T26B0T , EXPREC 



CKLOOP 

MOV 
BR 



0256. ,T26RSZ 
150$ 



063776 012703 000001 



|******«****4i*****«*4^«***««*«4t4i*****«**«**«^.««A**4A«44t*«4«4«A**** 
1 

J ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 

(BIT 15 SETS DIRECTION - O-FORWARO l-REVEFSE 

1 

j**««4i4i**44i4««44i*«*«4 44 444«4^4«44«4««44««4,44,4««*«44444«««444444444 

1^0$: MOV 01. R3 (SPACE ONE RECORD PARAMETER 



SEQ 228 



C$CLP1 



TRAP 


C$ERHRO 


.WORD 


676 


.WORD 


T26RWN 


.yORD 


PKTSSR 



CJCLPl 



C$ERHRO 
677 
T26B0T 
EXPREC 

C$CLP1 



J2 
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SEQ 229 



7264 
7265 
7266 
7267 
7260 
7269 
7273 



7274 

7275 
7276 
7277 
7278 
7279 
7280 
7281 
728? 
7283 
7284 
7285 
7286 
7287 
7288 
7289 
7290 
7291 
7292 
7293 
7297 



7298 

7299 
7300 
7501 
7302 
7303 
7304 
7305 
7306 
7307 
7311 



7312 

7313 
7314 



064002 
064006 
064010 
064014 
064020 
064022 
064026 
064026 
064030 
064032 
064034 
064036 
064036 
064040 
064044 



064052 
064060 
064064 
064070 
064074 
064100 
064104 
064110 
064112 
064114 
064120 
064120 
064122 
064124 
064126 
064130 
064130 
064132 
064136 
064140 
064144 
064146 
064150 
064152 
064154 
064156 
064162 
064162 
064164 
064166 
064170 
064172 
064172 
064174 
064176 



004737 010366 

103413 

016501 000002 

012702 000200 

010004 

005237 002212' 

104456 
001246 
072477' 
015374' 



104406 
013703 
013737 



JSR 


PC . SPACE 


BCS 


150$ 


MOV 


TSSR(R5),R1 


MOV 


*SSR.R2 


MOV 


R0.R4 


INC 


FATFLG 


ERRHRO 


ERRN0.T26SC,f=.XPREC 



072062 
003114 



072032 



150$: CKLOOP 

MOV 
MOV 



I CALL SPACE FOUTINE 

iSR. IF NO PROBLEM WITH SPACE COMMAND 

iGET TSSR 

iSET UP EXPECTED TSSR 

iPACKET ADDRESS SET UP 

I BUMP COUNT 

IPOSITION (SPACE RECORDS) FAILED 

TRAP CIERHRO 
.WORD 678 
. WORD T26SC 
.WORD EXPREC 



T26RSZ.R3 
FREE , T26RB 



TRAP 
iRECOPD SIZE 
I STARTING READ BUFFER ADDRESS 



CJCLPl 



(REREAD DATA.ACK.CVC-l.SWB COMMAND 

> 

{*********«***********«*****«****«************««*A*«*4***a**A**ti*** 



012737 151401 

012704 072030' 

010337 072036' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 
001247 

073720' 
011746' 

10^^06 

013702 003114- 

010304 

162704 000400 

060204 

021403 

001410 

011401 

010302 

005237 002212 

104456 
001250 
073142' 
015374' 

104406 
005724 
160204 



072030' 



1655: 



MOV 


0151401. T26PK3 


MOV 


♦T26PK3.R4 


MOV 


R3.T26SZ 


MOV 


R4,TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEG 


170t 


INC 


FATFLG 


ERRHRO 


EnRN0,T26WDC,PKTSSR 



170$: CKLOOP 



175$: 



iREREAO DATA.ACK.CVC-l.SWB COMMAND 

I SET UP R4 WITH PACKET ADDRESS 

J SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

I WAIT FOR SSR TO SET 

(GET TSSR CONTF.NTS 

I SET UP EXPECTED 

I ARE THEY EQUAL 

jBR, IF OK 

iBUMP COUNT 

J TSSR INCORRECT AFTER REREAD DATA 



ilOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


679 


.WORD 


T26WDC 


.WORD 


PKTSSR 



TRAP 



MOV 


FREE.R2 iCU 


MOV 


R3.R4 


SUB 


*256, .R4 


ADD 


R2.R4 


CMP 


(R4).R3 


BEQ 


180$ 


MOV 


(R4),R1 


MOV 


R3.R2 


INC 


FATFLG 


ERRHRO 


ERRNO , T26DT A , tXPREC 



180$ 



CKLOOP 

TST 
SUB 



(R4)» 
R2.R4 



I CURRENT BUFFER ADDRESS TO R2 

(CURRENT RECORD SIZE 

jFIRST LOCATION IN BUFFER 

iSET UP POINTER 

(CHECK DATA READ (R3-0ATA ALSO) 

I BR. IF ALL IS WELL 

(RECD DATA 

(EXPECTED DATA 

iBUMP COUNT 

(DATA READ NOT « WRITTEN 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 

(BUMP TO NEXT LOCATION 

(CORRECT RECORDS SIZE VALUE 



C$CLP1 



C$ERHRO 
680 
T26DTA 
EXPREC 

CiCLPl 



I<2 
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SEQ 230 



7315 
7316 
7317 
7318 
7319 
7380 
7321 

7322 



7323 
7324 
7325 
7326 
7327 
7328 
7329 
7330 
7331 
7332 
7333 
7334 
7335 
7336 
7337 
7338 
7339 
7340 
7341 
7342 
7343 
7344 
7345 
7346 
7347 
7348 
7349 
7350 
7351 
7352 
7353 
7354 
7355 
7356 
7357 
7358 
7359 
7360 
7361 



7362 
7363 
7364 
7365 
7366 



064200 
064202 
064204 
064206 
064212 
064216 
064220 
064220 
064222 
064222 
064222 
064224 
064232 
064234 
064240 



064240 
064240 
064240 
064242 
064246 
064252 
064256 



020403 

001360 

005723 

010337 072062' 

022703 000410 

001267 

104406 



104403 

023727 002212' 000017 

103402 

004737 017104' 



190$: 



CMP 


R4,R3 


BNE 


173$ 


TST 


CR3)* 


MOV 


R3.T26RSZ 


CMP 


#264.. R3 


BNE 


145$ 


CKLOOP 





ENDSUB 



»ENO OF RECORD YET 

I BR, IF NOT AT END OF RECORD 

I BUMP RECORD SIZE 

I STORE rtECORO SIZE 

lEND OF RECORD YET 

I BR. IF MORE RECORDS TO WRITE 

I LOOP IF SELECTED 

TRAP C$CLP1 
.>>>>>>>>>>>> END SUBTEST 



999$: 



CMP 


FATFLG.015. 


BLO 


999$ 


JSR 


PC.CKDROP 



c$esuB 



Ll6il2: 

TRAP 
lis ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



TEST 6. SUBTEST 9 

VERIFIES THAT THE REREAD NEXT OMMANO WITH OPP-1 
(READ FORWARD, SPACE REVERSE) AND SW6-0 OPERATES 
PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND 
DATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD 
CONTAIN ITS RECORD NUMBER (INDICATING POSITION ON 
TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
TEST RECORD, THE FOLLOWING SEQUENCt IS EXECUTED. 

1. THE REREAD NEXT COMMAND WITH OPP-1 IS ISSUED 
AND THE RESULTS CHECKED 

2. A READ FORWARD COMMAND IS THEN ISSUED AND THE 
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
POSITIONED PROPERLY AFTER THE REREAD NEXT 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START OF THE TEST RECORD). THE 
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 

THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET 
TO THE LENGTH OF THE EXPECTED RECORD, SO NO 
i EXCEPTIONAL CONDITIONS SHOULD OCLUR, 



i - 



BGNSUB 



104402 

004737 074620' 

005037 072056' 

00473? 07471?' 

004737 074754- 



JSR 


PC,T26REST 


CLR 


T26CNT 


JSR 


PC.T26RT2 


JSR 


PC,T26RT3 



I >'>>>^>>..>>>s BEGIN SUBTEST >>>>>>>>>>>> 

T6.9: 

TRAP C$BSUB 
;SET COMMAND PACKET 
(CLEAR TAPE RECORD COUNTER 
iSET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



L2 
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SEQ 231 



7367 
7368 
7369 
7370 
7371 
7372 
7373 
7374 
7375 
7379 
7380 



7381 
7382 
7383 
7384 
7385 
7386 
7387 
7388 
7389 
73yO 
7391 
7392 
7393 
7397 
7398 



7399 

7400 
7401 
7402 
7403 
7404 
7405 
7406 
7407 
7408 
7409 
7410 
7411 
7412 
7416 



7417 
7418 



! ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



064262 

064266 
064270 
064274 
064276 
064276 
064300 
064302 
064304 
064306 



004737 
103407 
005237 
010001 

104455 

001251 

003642- 

011734' 

013737 



015674' 
002212' 



064314 012704 



002172 
071700 



071720' 20$: 



JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 




BCS 


20 i 


tBR IF INIT WAS OK 




INC 


FATFLG 


I BUMP COUNT 




MOV 


RO.Ri 


iCONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


I FATAL ERROR TSSR WAS NOT OK 








TRAP 


CJEROF 






.WORD 


681 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T26DSW 


iSET UP UNIT NUMBER 





064320 
064324 
064326 
064332 
064334 
064334 
064336 
064340 
064342 
064344 
064344 



004737 
103407 
005237 
010001 

104456 
001232 
005046' 

011734' 

104406 



010562 
002212 



064346 
064352 
064354 
064360 
064364 
064366 
064 3 V2 
0643^2 
064374 
064376 
064400 
064402 
064402 



004737 
103413 
016501 
012702 
010004 
005237 

104456 
001255 
073364 
011746' 

104406 



010714' 

000002 
000200 

002212 



MOV 



*T26PACKET,R4 



J SUBROUTINE NEEDS PACKET ADDRESS 



IwRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
t 



26$: 



JSR PC, WRTCHR 

BCS 26$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSG , SFIMSG 



CKLOOP 



J ISSUE WRITE CHARACTERISTICS 
I BR, IF COMMAND ISSUED OK 
;BUMP COUNT 

iSAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTI5C FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 

TRAP 



i ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
i 

I CALL TAPE REWIND COMMAND 
»BR. IF NO PROULEM 
(GET TSSR 

iCET UP EXPECT^:D TSSR 
(PACKET ADDRESS SET UP 
(BUMP COUNT 
ERRHRD ERRNO. T26RWN,PKTSSR (REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


30* 


MOV 


TSSR(R5),R1 


MOV 


#SSR,R2 


MOV 


R0.R4 


INC 


FATFLG 



305: 



CKLOOP 



(LOOP IF SELECTED 



C$ERHRO 
682 

WRTMSG 
SFIMSG 

C$CLP1 



TRAP 


CiERHRD 


.W AO 


683 


.WORD 


T26RUN 


.WORD 


PKTSSR 



TRAP 



CSCLPl 



M2 
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7419 
7420 
7421 
7422 
742J 
7424 
7425 
7426 
7427 
7428 
7429 
7450 
7434 



7455 

7436 

745"/ 

7458 

7459 

7440 

744] 

7442 

7443 

7444 

7445 

7446 

7447 

7448 

7449 

7450 

7451 

7452 

7453 

7454 

7455 

7456 

7457 

7461 



7462 

7463 
7464 
7465 
7466 
7467 
7468 
7469 
7^70 
7471 



064404 
064410 
064412 
064416 
064420 
064422 
064426 
064426 
064430 
064432 
064454 
064436 
064436 
064440 
064444 



013701 071730' 

010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001254 
073075' 
015374- 

104406 

012703 000400 

013737 003114' 



064452 
064460 
064464 
064464 
064470 
064476 
064504 
064510 
064514 
064520 
064524 
064526 
064530 
064534 
064534 
064536 
064540 
064542 
064544 
064544 
064546 
064550 
064554 
064556 
064560 
064560 



012737 140005 
012704 072030' 



010337 
0137 .'7 
062737 
010465 
004737 
016501 
012702 
020102 
001406 
005257 

104456 
001255 
005103' 
011746 

101406 
005723 
022703 
001401 
000742 



072036' 

072056' 

000001 

000000 

016150' 

000002 

000200 



002212' 



000414 



005037 072056' 
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SEQ 232 



072032 



072030' 



116416 
072056 



READ MESSAGE BUF>"ER EXTENDED STATUS REGISTER ZERO CXSTO) 
I 

I PICK UP XSTO 

;SET UP EXPECTED 
(SET BOT BIT IN EXPECTED 
(DOES EXP - REC'O 
I BR. IF EQUAL COKJ 
;BUMP COUNT 

;TAPE NOT AT BOT AFTER REWIND 

TRAP 

.wor^D 

.WORD 
.WORD 
40$: CKLOOP jLOOP IF SELECTED 

TRAP 

» RECORD SIZE 

[STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR*.6.R1 


MOV 


Rl.P? 


BIS 


*eiTl,R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRN0.T26B0T,EXPREC 



CKLOOP 

MOV 
MOV 



<^256..R3 
FREE,T26RB 



CJERHRD 
684 

T26B0T 
EXPREC 

C$CLP1 



WRITE OATA.CVC-l.ACK COMMAND 

4i4(*4>*4i*******4>4t***<*'.***4*4i4i4i4>*«4^jfc4t4i4t4>')i4******4'^4*4i4L«4i4L4>A4L4i4i4i4i*4i**4i* 



65$ 



MOV 


*140005,T26PK3 


MOV 


aT26PK3,R4 


MOV 


R3,T26SZ 


MOV 


T26CNT.SFREE 


ADD 


*l,T26CNr 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


0SSR.R2 


CMP 


R1,R2 


BEQ 


75$ 


INC 


FATFLG 



75$ 



ERRHRD ERRNO.WRTERR.PKTSSR 



CKLOOP 



TST 


(R3)» 


CMP 


#268. .R3 


BEQ 


120$ 


BR 


65$ 



120$ 



CLR 



T26CNT 



iWRITE OATA.CVC'i .ACK COMMAND 
I SET UP R4 WIT . JACKET ADDRESS 

;ScT UP RECORD SIZE IN PACKET 

(MOVE TAPE RECORD NUMBER TO BUFFER 

(NUMBER READY FOR NEXT RECORD 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR. IF OK 

(BUMP COUNT 

;TSSR INCORRECT AFTER REREAD DATA 

TRAP C$ERHRD 
.WORD 685 
.WORD WRTERR 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 

(BUMP THE RECORD SIZE 

(MAXIMUM SIZE YET 

(BR. IF AT END OF WRITE SEQUENCE 

(WRITE MORE RECORDS 

(SET RECORD COUNTER BACK TO ZERO 



• 4i4Ljf4i****«4(4*4i4'A*4i4i4L4t*'ti4i*4i*A****4i4L4t4*4i4L*4i4i*«4t4^*4i*4i4'*<|i4>*4>4L4L4L4>4^4>4i4t4k4i4i 
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TESTS 1 


-8 
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7472 






7473 






7474 






74 75 






7476 064564 


004737 


010714' 


7477 064570 


103411 




7478 064572 


016501 


000002 


7479 064576 


010004 




7480 064600 


005237 


002212' 


7484 064604 






064604 


104456 




064606 


001256 




064610 


073364' 




064612 


011746' 




7485 064614 






064614 


104406 




7486 






7487 






74 98 






7489 






7490 






7491 






7492 






7493 064616 


013701 


071730' 


7494 064622 


010102 




7495 064624 


052702 


000002 


7496 064630 


020102 




7497 064632 


001406 




7496 064634 


005237 


002212' 


7502 064640 






064640 


104456 




064642 


001257 




064644 


073075' 




064646 


015374' 




7503 064650 






064650 


104406 




7504 064652 


012737 


000400 


75J5 064660 


000420 




7506 






7507 






7508 






7509 






7510 






7511 






7512 






7513 






7514 064662 


012703 


000001 


7515 064666 


004737 


010366' 


7516 06*'672 


103413 




7517 064674 


016501 


0.'^0002 


7518 064 rC'.' 


012702 


000200 


751.9 064 7;. /» 


0100C4 




7520 064706 


005237 


002212' 


7524 06471c- 






064712 


104450 




064714 


001260 




064716 


072477' 
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N2 



072062 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

J CALL TAPE REWIND COMMAND 

;BR. IF NO PROBLEM 

;GET TSSR 

; PACKET ADDRESS SET UP 

;BUMP COUNT 

I REWIND NOT ACCEPTED 



JSR 


PC .REWIND 


BCS 


130$ 


MO^ 


TSSR(R5),R1 


MOV 


R0,R4 


INC 


FATFLG 



ERRHRD ERRNO , T26RWN . PKTSSR 



130$ 



CKLOOP 



;L00P IF SELECTED 



TRAP 

■READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

;PICK UP XSTO 
;SET UP EXPECTED 
J SET BOT BIT IN EXPECTED 
I DOES EXP - REC'D 
I BR, IF EQUAL (OK) 
iBU*P COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
135$: CKLOOP ;LOOP IF SELECTED 

TRAP 
; STARTING RECORD SIZE 
;SKIP OVER THE SA'^CE THIS TIME 



MOV 


T26BFR*6.P1 


MOV 


R1,R2 


BIS 


#6IT1.R2 


CMP 


R1.R2 


BEQ 


135$ 


INC 


FATFLG 



ERRHRD ERRNO , T26B0T , EXPREC 



CKLOOP 

MOV 
BR 



*256..T26RSZ 
140$ 



I 

i ISSUE SPACE RECORDS COMMAND - VALUc IN R3 SETS NUMBER OF RECORDS 

iBIT 15 SETS DIRECTION - 0-FORWARD 1-REVERSE 

i 

; *«**«*4i«4i4i*****4i* ******* *4i4i*4i*4>4i4i*4i*4i4t*4i**4i ..*******«****.'********* 



SEQ 233 



TRAP 


C$ERHRD 


.WORD 


686 


.WORD 


T26RWN 


.WORD 


PKTSSR 



C$CLP1 



C$ERHRD 
687 
T26B0T 
EXPREC 

C$CLP1 



132$: 



MOV 


*000001,R3 


JSR 


PC . SPACE 


BCS 


140$ 


MOV 


TSSR(R5),R1 


MOV 


#SSR.R2 


MOV 


RO . R4 


INC 


rA';^LG 



ERRHRD ERRNO, T26bC , PKTSSR 



I SET UP SPACE COMMAND (1 FORWARD) 

;CALL SPACE ROUTINE 

iBR. IF NO TROUBLE 

iGET TSSR 

J SET UP EXPECTED ISSR 

;PACKET ADDRESS SET UP 

I BUMP COUNT 

i SPACE (FORWARD) FAILED 

TRAP CJERHRO 
. WORD 688 
.WORD T26SC 



B3 



TSV7 . HARDWARE TESTS 1-8 
TEST 6; REREADS 
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SEQ 234 



7525 

7526 
7527 
7528 
7529 
7530 
7531 
7532 
7533 
7514 
7535 
7536 
7537 
7538 
7539 
7540 
7541 
7542 
7543 
7544 
7548 



7549 

7550 
7551 
755? 
7553 
7554 
7558 



7559 

7560 
7561 
7562 
7563 
7564 
7565 
7566 
7567 



7568 
7569 
7570 
7571 
7572 
7575 



064720 
064722 
064722 
064724 

064730 



064736 
064744 
064750 
064754 
064760 
064764 
064770 
064774 
064776 
065000 
065004 
065004 
065006 
065010 
065012 
065014 
065014 
065016 
065022 
065026 
065030 
065032 
065036 
065036 
065040 
065042 
065044 
065046 
065046 
06^050 
065056 
065060 
065064 
065070 
065072 
065076 
065076 
065076 
065076 
065100 
065106 
065110 
065114 



011746 



104406 

013703 072062' 

013737 003114' 072032 



104403 
023727 
103402 
004737 



140»; CKLOCP 



I LOOP ir SELECTED 



1501: 



MOV 
MOV 



T26RSZ,R3 
FREE,T26RB 



.WORD 

TRAP 
I RECORD 5I7E 
I STARTING READ BUFFER ADDRESS 



PKTSSR 
CICLPl 



I********* «««4i«********««*4i««*«««4>4>4t4>***4>«4>4>* ************ ********** 
» 

I REREAD DATA, CVC" LACK, OPP COMMAND 
1 

1 **************************** «*««««««««44,««4,*«««**«««4i««*4,4,4,««4,«4,«4, 



012737 161401 072030 

012704 072030' 

010337 072036' 

010465 000000 

004737 016150* 

016501 000002 

012702 000200 

020102 

001406 

005237 002212' 

104456 
00 1261 
072305* 
011746' 



1651 1 



MOV 


#lt)i401,T26PK3 


MOV 


*T26PK3,R4 


MOV 


R3,T26SZ 


MOV 


R4.TS0BCR5) 


JSR 


PC.kAITF 


MOV 


TSSR(R5),Rl 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEQ 


170* 


INC 


FATFLG 


ERRHRO 


ERRN0,T26RRF,PKTSSR 



116072 
072056 



002212 



104406 
017701 
013702 
020102 
001406 
005237 

104456 
001262 
072066 
015374 



104406 

062737 000001 072056 

005723 

010337 072062' 

022703 000412 

001402 

000137 064662' 



170$: 



190 >: CKLOOP 



2005 1 



002212' 000017 
017104* 



9<>9$j 



l» 



EN0SU3 



CMP 

BLO 
JSR 



I REREAD OATA.CVC-l.ACK, OPP COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

(SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

iWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

(ARE THEY EQUAL 

iBR. IF OK 

I BUMP COUNT 

I TSSR INCORRECT AFTER REREAD DATA 







TRAP 


CIERHRD 






.WORD 


689 






.WORD 


T26RRF 






.WORD 


PKTSSR 


CKLOOP 




ILOOP IF SELECTED 








TRAP 


CICLPl 


MOV 


SFREE.Rl 


iFIRST WORD FROM READ 


BUFFER 


MOV 


T26CNT,R2 


»SET UP EXPECTED 




CMP 


R1.R2 


lis TAPE POSITION CORRECT 




BEQ 


1901 


iKEEP GOING POSITION OK 




INC 


FATFLG 


iBUMP COUNT 




ERRHRD 


ERRNO , T26WNG , EXPREC 


iTAPE POSITION INCORRECT 








TRAP 


C$ERh«0 






.WORD 


690 






.WORD 


T26WNG 






.WORD 


EXPREC 



ADO 


♦1,T26CNT 


TST 


(R3)^ 


MOV 


R5,T26MSZ 


CMP 


•?6ft. .^^3 


BEQ 


:}0 f 


JMP 


IS^i 



FATFLG, 015, 
9991 

PC.CKORQP 



TRAP CICLPl 
I BUMP TAPE RECORD COUNTER 
iNEXT RECORD SIZE 
I STORE RECORD SIZE 
|AT MAX SIZE YET 
iBR. IF AT END OF THE SUBTEST 
I KEEP GOING MORE RECORDS 

t^>>>>'»> j> >> >> END SUBTEST >>>»>>^%>>>* 

L10113J 

TRAP CIESUB 
lis ERROR COUNT AT 25 
iBR, It-' LESS THAN 25 
iTRt TQ DROP THE UNIT 



TSV7 
TEST 



.Tm%'. 



TESTS 1-6 



C3 
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SEQ 235 



7574 
7575 
7576 
7577 
7578 
7579 
7580 
7581 
7582 
7583 
7584 
7585 
7586 
7587 
7588 



7589 
7590 
7591 
7592 
7593 
7594 
7595 
75% 
7597 
7598 
7599 
7600 
7601 
7602 
7606 
7607 



7608 
7609 
7610 
7611 
7612 
7613 
7614 
7615 
7616 
^617 
7618 
7619 
7620 
7624 
7625 



7626 



065114 
065114 
065114 
065116 
065122 
^^65126 
065 13? 



065136 
065142 
065144 
065150 
065152 
065152 
065154 
065156 
065160 
065162 



104402 

004737 074620 

005037 072056 

004737 074712 

004737 074754 



004737 015674 

103407 

005237 002212 

OlOOOl 

104455 

001263 

003642' 

011734' 

013737 002172 



065170 012704 071700* 



065174 
065200 
065202 
065206 
065210 
065210 
065212 
065214 
065216 
065220 



004737 010562' 

105407 

005237 002212' 

OlOOOl 

104456 
001264 
005046' 

011734' 



(TEST 6. SUBTEST 10 

(VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-1 

lANO SMB-1 OPERATES PROPERLY. THE TEST SEQUENCE XS 

(THE SAME THAT IS USED IN SUBTEST 3, BUT IT IS 

I VERIFIED THAT DATA STORED BY THE COMMAND CONT/'.INS 

I SWAPPED BYTES, 

t 

I 

I 

I 

I - 



BGNSliB 



JSR 


PC,T26R£ST 


CLR 


T26CNT 


JSR 


PC,T26RT2 


JSR 


PC.T26RT3 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>*>>>>>> 

T6.10; 

TRAP CIB5U6 
I SET COMMAND PACKET 
I CLEAR TAPE RECORD COUNTER 
I SET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND ^>ACKET 



J ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
t 



071720' 20$: 



JSR 


PC.SOFINIT 


lOO INITIALIZE ON CONTROLLER 




BCS 


20 » 


iBR IF INIT WAS OK 




INC 


FATFLG 


(BUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TS5R REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


CiERDF 






.WORD 


691 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN,T260SW 


(SET UP IWIT NUMBER 





MOV 



0T26PACKET,R4 



(SUBROUTINE NEEDS PACKET ADDRESS 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
( 

I 4*««4«*«*****««*****4>********«4«******** ****************** •«•*•*•« 



26$ I 



JSR PC.WRTlHR 

BCS 261 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO. WRTMSG , SFIMSG 



CKLQOP 



(ISSUE WRITE CHARACTERISTICS 
(BR, IF COMMAND ISSUED OK 
I BUMP COUNT 

(SAVE CONTENTS Of" TSSR 
(WRITE CHARACTERI5TISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 



CIERHRD 
69c^ 

WRTMSG 
SFXMSU 



D3 



]m \i'mm 


TESTS I 


-8 MACRO 




065220 


104406 




7627 








7628 








7629 








7630 








7631 








7632 








7635 








7634 


065222 


004737 


010714' 


7635 


065226 


016501 


000002 


7636 


065232 


012702 


000200 


7637 


065256 


103407 




7638 


065240 


010004 




7639 


065242 


005237 


002212' 


7643 


065246 








065246 


104456 






065250 


001265 






065252 


075564- 






065254 


011746' 




7644 


065256 








065256 


104406 




7645 








7646 








7647 








7648 








7645 








7650 








7651 








7652 


065260 


013701 


071730' 


7653 


065264 


010102 




7654 


005266 


052702 


000002 


7655 


065272 


020102 




7656 


065274 


001406 




7657 


065276 


005237 


002212' 


7661 


065302 








065302 


104456 






065504 


00126G 






065306 


073075' 






065310 


015^74' 




7662 


065312 








065312 


104406 




7663 


065314 


012705 


000400 


7664 
7665 

7666 


065320 


013737 


003114' 072032 








7667 








7668 








7669 








7670 








7671 








7672 


065326 


012737 


140005 072030 


7673 


065334 


012704 


072050' 


7674 


065540 






7675 


065340 


010337 


072056' 


7676 


0C5344 


013777 


072056' 115542 


7677 


065352 


062737 


000001 072056 


7678 


065360 


010465 


000000 



MACRO M1115 Ol-FEB-84 17i54 



I 



TRAP 



J ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
J 

I CALL TAPE REWIND COMMAND 
iGET TSSR 

1 SET UP EXPECTED TSSR 
I BR, ir NO PROBLEM 
jPACKET ADDRESS SET UP 
|BI»MP COUNT 
ERRHRD ERRN0,T26RWN,PKTSSR iREWINO NOT ACCEPTED 



JSfl 


PC. REWIND 


MOV 


TSSR(R5),R1 


MOV 


#SSR,R2 


6CS 


50$ 


MOV 


R0.R4 


INC 


FATFLG 



30$: 



CKLOOP 



iLOOP IF SELECTED 



TRAP 



t 

iREAD MESSAGE BUFFER EXTENOfcD STATUS REGISTER ZERO (XSTO) 
1 

J ««*4**«* •«****«****** *«***4>4i4>«4«4k*4t«4i4>4>4t4>**4>*4>*4>*****««****4i^4i4i«*4i4> 

iPiCH UP XSTO 
iSET UP EXPECTED 
iSET BOX BIT IN EXPECTED 
iDOES EXP ■ REC'D 
jBR. IF EQUAL COK) 
tBL*1P COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORC 
.WORD 
40$: CKLOOP iLOOP I-' SELECTED 

TRAP 
iRECORD SIZE 
I STARTING WRITE BLiFFER ADDRESS 



MOV 


T26BFR»6,R1 


MOV 


R1,R2 


BIS 


*eiTl,R2 


CMP 


R1,R2 


BEQ 


40$ 


INC 


FATFLG 



ERRlrf^D ERRNO. T26B0T .EXPREC 



CKLOOP 

MOV 
MOV 



0256. .R3 

FREE.T26RB 



I 

iWRITE DATA.CVC-l.ACK COMMAND 
I 

I 4> ****««******«**«* 4 * 4 4 4 4 ****♦**« ♦♦^ 4i «« 4> *♦***«* 4i ****** 6 ******* 4i «*« * 



65V; 



MOV 0140005. T26PK5 

MOV 0T26PK3,R4 

MOV R5,T26SZ 

MOV T26CNT,aFREE 

ADD 01.T26CNT 

MOV R4,TS0BCR5) 



SEQ 236 



C»CLP3. 



TRAP 


C$ERHRD 


.WORD 


693 


.WORD 


T26RWN 


.WORD 


PKTSSR 



C$CLP1 



C$ERHPO 
694 

T26B0T 
EXPREC 

CSCLPl 



iWRITE DATA.CVC-l.ACK COMMAND 
I SET UP R4 WITH PACKET ADDRESS 

iSET KP RECORD SIZE IN PACKET 
(MOVE TAPE RECORD NUMBER TO BU^■FER 
i NUMBER READY FOR NEXT RECORD 
» ISSUE COMMAND 



E3 



TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 



7679 


065364 


004737 


016150 


7680 


065370 


016501 


000002 


7681 


065374 


012702 


000200 


7682 


065400 


020102 




7683 


065402 


001406 




7684 


065404 


005237 


002212 


7688 


065410 








065410 


104456 






065412 


001267 






065414 


005103- 






065416 


011746' 




7689 


065420 








065420 


104406 




7690 


065422 


0057c3 




7691 


065424 


022703 


000414 


7692 


065430 


001401 




7693 


065432 


000742 




7694 


065434 






7695 


065434 


005037 


072056 


7696 








7697 








7698 








7699 








7700 








7701 








7702 








7703 


065440 


004737 


010714 


7704 


065444 


103411 




7705 


065446 


016501 


000002 


7706 


065452 


010004 




7707 


065454 


005237 


002212 


7711 


065460 








065460 


104456 






065462 


001270 






065464 


073364' 






065466 


011746' 




7712 


065470 








065470 


104406 




771S 








7714 








7715 








7716 








7717 








7718 








7719 








7720 


065472 


013701 


071730 


7721 


065476 


010102 




7722 


065500 


052702 


000002 


7723 


065504 


020 \ 02 




7724 


065506 


001406 




7725 


065510 


005237 


002212 


7729 


065514 








065514 


104456 






065516 


001271 






065520 


07307t' 






065522 


015374' 




7730 


065524 
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SEQ 237 



JSR 


PC.WAITF 


nov 


TSSR(R5).R1 


MOV 


#SSR,R2 


CMP 


R1,R2 


BEQ 


75$ 


INC 


FATFLG 



75* 



ERRHRD ERRNO , WRTERR . PKTSSR 



CKLOOP 



120$: 



TST 


(R5)» 


CMP 


*26e,,R3 


BEQ 


120* 


BR 


65$ 



CLR 



T26CNT 



tMV FOR SSR TO SET 

iGET TSSR CONTENTS 

:SET UP EXPECTED 

I ARE THEY EQUAL 

iBR, IF OK 

I BUMP COUNT 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP c$::nHRD 
.WORD 695 
.WORD WRTERR 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 

iBUMP THE RECORD SIZE 

iMAXIMUM SIZE YET 

(BR, IF AT END OF WRITE SEQUENCE 

(WRITE MORE RECORDS 

(SET RECORD COUNTER BACK TO ZERO 



(ISSUE REWIND COMMA^)D TO SELECTED TAPE DRIVE 
( 

(CALL TAPE REWIND COMMAND 

I BR. IF NO PROBLEM 

(GET TSSR 

(PACKET ADDRESS SET UP 

(BUMP CO'JNT 

(REWIND NOT ACCEPTED 



JSR 


PC, RE WIND 


BCS 


130$ 


MOV 


TSSR(R5),R1 


MOV 


R0.R4 


INC 


FATFLG 



ERRHRD ERRNO . T26RWN , PKTbSR 



130$: CKLOOP 



(LOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


696 


.WORD 


T26RWN 


.WORD 


PKTSSR 



TRAP C$CLP1 
READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

(PICK UP XSTO 

(SET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

(DOES EXP • REC'D 

(BR, IF EQUAL COK) 

(BUMP COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 697 
.WORD T26B0T 
.WORD EXPREC 
(LOOP IF SELECTED 



MOV 


T26BFR»6,R1 


MOV 


R1,R2 


BIS 


^>BIT1,R^ 


CMP 


R1,R2 


BEQ 


135$ 


INC 


FATFLG 



ERRHRD ERRNO , T26B0 f , F.XPREC 



135$: CKLOOP 



TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 



F3 
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SEQ 238 





065524 


104406 




7731 


065526 


012737 


000400 


7732 


065534 


000420 




7733 








7734 








7735 








7736 








7737 








7738 








7739 








7740 








7741 


065536 


012703 


000001 


7742 


06554? 


004737 


010366' 


7743 


06554c 


103413 




7744 


065550 


016501 


000002 


7745 


065554 


012702 


000200 


7746 


065560 


010004 




7747 


C 65562 


005237 


002212' 


7751 


065566 








065566 


104456 






065570 


001272 






065572 


072477' 






065574 


011746' 




7752 


065576 








065576 


104406 




7753 


065600 


013703 


072062' 


7754 


065604 


013737 


003114' 


7755 








7756 








7757 








7758 








7759 








7760 








7761 








7762 


065612 


012737 


.61401 


7763 


065620 


012704 


072030' 


7764 


065624 


010337 


072036' 


7765 


065630 


010465 


000000 


7766 


065634 


004737 


016150' 


7767 


065640 


016501 


000002 


7768 


065644 


012702 


000200 


7769 


065650 


020102 




7770 


065652 


001406 




7771 


065654 


005237 


002212' 


7775 


065660 








065660 


104456 






065662 


001273 






065664 


072305' 






065666 


011746' 




7776 


065670 








065670 


104406 




7/77 


065672 


017701 


115216 


7776 


065676 


013702 


072056' 


7779 


065702 


020102 




7780 


065704 


001406 




7781 


065706 


005237 


002212' 


7785 


065712 







072062 



072030 



MOV «256, ,T26RSZ 
BR 140J 



I START RECORD SIZE 
I SKIP OVER SPACE 



TRAP 



CJCLPl 



{«4i****«««4i*«jf4i****4>4t*4i4i4ij|i«4>****4>*****4> ******* ******** ******4> *«***« 

I ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SEIS NUMBER OF RECORDS 

(SIT 15 SETS DIRECTION - 0-FORUARO 1-REVERSE 

; 

I ************************** «4i;fjf 4. 4i4 4ijK*** A* «* ************** ********** 



136$: 



MOV 


#000001 »R3 


JSR 


PC. SPACE 


BCS 


140$ 


MOV 


TSS^^':5),R1 


MOV 


*SSR,R2 


MOV 


R0,R4 


INC 


FATFLG 


ERRHRD 


ERRN0,T26SC.PI<TSSR 



I SET UP SPACE COMMAND Cl FORWARD) 

(CALL SPACE ROUTINE 

I BR, IF NO TROUBLE 

jGET TSSR 

I SET UP EXPECTED TSSR 

(PACKET ADDRESS SET UP 

I PUMP COUNT 

; SPACE (FORWARD) FAILED 



140$: CKLOOP 



072032' 150$: 



MOV 
MOV 



T26RSZ,R3 
FREE , T26RQ 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
(RECORD SIZE 
(STARTING READ BUFFER ADDRESS 



LOOP IF SELECTED 



C$ERHRD 
698 
T26SC 
PKTSSR 

C$CLP1 



;****************** A 4(«******«*«*4«*«*4,4^4,4t*********<-.***********«i***4. 
( 

(REREAD DATA.CVC-l.ACK, OPP COMMAND 

;*****«***********«1i*4>A4i«4i4«A««4>«4i4i4i4k****«**«***4i *************** A** 



165$ 



MOV 


*161401,T26PI<3 


MOV 


OT26PK3,R4 


MOV 


R3,T26SZ 


MOV 


R4,TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


*SSR,R2 


CMP 


RX.R2 


6EQ 


170$ 


INC 


FATFLG 



170$ 



ERRHRD ERRN0.T26RRF. PKTSSR 



CKLOOP 



MOV 


8FREE.R1 


f^OV 


T26CNT.R2 


CMP 


Rl,fl2 


BEU 


190$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T26WNG.EXPRtC 



(REREAD DATA.CVC-l.ACK, OPP COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

(SET L*> RECORD SIZE IN PACKET 

(ISSUt COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(PR, IF OK 

(01 IMP COUNT 

(TSSR INCORRECT AFTER REREAD DATA 

TRAP C$ERHRD 
.WORD 699 
.WORD T26RRF 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 
(FIRST WORD FROM READ BUFFER 

(SET UP EXPECTED 

(IS TAPE POSITION CORRECT 

(KEEP GOING POSITION OK 

(BUMP COUNT 

(TAPE POSITION INCORRECT 



TSV7 - HARDWARE TESTS 1-6 
TEST 6: REREADS 



G3 



MACRO M1113 01 -FEB "84 17:54 



SEQ 239 



065712 


104456 




065714 


001274 




065716 


072066' 




065720 


015374' 




7786 065722 






065722 


104406 




7787 065724 


062737 


000001 


7788 065752 


005723 




7789 065734 


010337 


072062' 


7790 065740 


022703 


000412 


7 791 065744 


001402 




7792 065746 


000137 


065536' 


7793 065752 






7794 065752 






065752 






065752 


104403 




7795 065754 


023727 


002212' 


7796 065762 


103402 




7797 065764 


004737 


017104' 


7798 065770 






7799 






7800 






7601 






7802 






7803 






7804 






7805 






7806 






7807 






7808 






7809 






7810 






7811 






7812 






7813 






7814 






7815 065770 






065770 






065770 


104402 




7816 065772 


004737 


074620' 


7817 065776 


0047T.7 


074712' 


7818 06600i^ 


00^.737 


074754' 


7819 






7820 






7821 






7822 






7823 






7821 






782. 






7fl26 066006 


004 737 


015674' 


7027 066012 


105407 




7828 066014 


005237 


002212' 


7832 066020 


010001 




7833 066022 






066022 


104455 




066024 


001275 




066026 


003642' 





072056 



000017 



190$ I CKLOOP 



ADD 


01.T26CNT 


TST 


(R3)* 


MOV 


R3,T26RSZ 


CMP 


0266. ,R3 


BEQ 


220$ 


JMP 


136$ 



220$: 



ENDSUB 



CMP 
BLO 
JSR 



FATFLG.015. 

999$ 

PC.CKDROP 



999$: 

iTEST 6, SUBTEST 11 

I VERIFIES THAT A REREAD NEXT COMMAND READING A 

tRECCRD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 

(TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 

(LONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH 

jSTATES OF OPP (0 AND 1). 

I 

I 

I 

I - 



TRAP C$tRHRD 

. WORD 700 

. WORD T26WNG 

.WORD EXPREC 

TRAP C$CLP1 
I BUMP TAPE RECORD COUNTER 
I NEXT RECORD SIZE 
(STORE RECORD SIZE 
jAT MAX SIZE YET 
I BR. IF AT END OF THE SUBTEST 
J KEEP GOING MORE RECORDS 

!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10114: 

TRAP C$ESUB 
(IS ERROR COUNT AT 25 
jBR, IF LESS THAN 25 
(TRY TO DROP THE UNIT 



BGNSU6 



JSR 
JSR 
JSR 



PC.T26REST 

PC.T26RT2 

PC.T26HT3 



; >b>ii>>>>>>> BEGIN SieTEST i>>>>>>>>>>> 

T6.ll: 

TRAP C$BSUB 
I SET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 
:SET UP OTHER COMMAND PACKET 



(ISSUE CONTROLLER "SO^T" INITIALISE - CARRY BIT CLEAR IF ERROR 
I 



JSR 


PC.SOFINIT 


(DO INITIALIZE ON CONTROLLER 




BCS 


20$ 


iBR IF INIT WAS OK 




INC 


FATFLG 


iBUMP COUNT 




MOV 


RO.Rl 


iCONlENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


CiERDF 






.WORD 


701 






.WORD 


SFIERR 



1-13 



TSV7 - HARDWARE TESTS 1-6 
TEST 6: REREADS 



MACRO M1113 01-FEB-a4 17:54 



SEQ 2^0 



7834 
7835 
7836 
7837 
7838 
7639 
7840 
7641 
784? 
7843 
7844 
7845 
7846 
7850 
7851 



785a 

7853 
7854 
7855 
7856 
7657 
7858 
7859 
7860 
7861 
■'862 
7663 
7864 
7865 
7869 



7870 

7871 
7872 
7873 
7874 
7875 
7876 
7877 
7676 
7879 
7860 
7881 
7882 
7883 
7887 



066030 
066032 



011734 
013737 



066040 012704 



002172 
071700' 



071720' 20$; 



066044 
066050 
066052 
066056 
066060 
066060 
066062 
066064 
066066 
066070 
06S070 



004737 010562 

103407 

005237 002212 

010001 

104456 
001276 
005046- 
011734' 

104406 



066072 
066076 
066102 
066106 
066110 
066112 
066116 
066116 
066120 
066122 
066124 
066126 
066126 



004737 010714' 

016501 000002 

012702 000200 

103407 

010004 

005237 002212 

104456 
001277 
073364' 
011746- 

104406 



066130 
066134 
066136 
066142 
066144 
066146 
066152 
066152 



013701 071730' 

010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 



MOV UNITN,T26DSW 

MOV <>T26PACKET,R4 



.WORD SriMSG 



(SET UP UNIT NUMBER 

I SUBROUTINE NEEDS PACKET ADORtSS 



!WRITE CHARACTEFcTSTICS COMMAND (CALL TO WRTCHR) 

! 



26$. 



JSR PC.WRTCHR 

BCS 26J 

INC FATFL.G 

MOV RO.Rl 

ERRHRD ERRNO , URTMSG , SFIMSG 



CKLOOP 



J ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
;LOOP IF SELECTED 

TRAP 



(ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
1 

iCALL TAPE REWIND COMMAND 

iGET TSSR 

(SET UP EXPtC^EO TSSR 

»BR. IF NO PROBLEM 

(PACKET ADDRESS SET UP 

iUIMP COUNT 

(REWIND NOT ACCEPTED 



JSR 


PC. RE WIND 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


BCS 


SOI 


MOV 


R0.R4 


INC 


FATFLG 



30*: 



ERRHRD ERRNO , T26RWN , PK TSSR 



CKLOOP 



(LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ^ERO (XSTO) 

(PICK UP XSTO 
(SET UP EXPECTED 
(SET BOT BIT IN EXPECTED 
(DOES EXP • RECD 
I BR, IF EQUAL COK) 
;BUMP COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 



MOV 


T26BFR»6.R1 


MOV 


R1.R2 


BIS 


0BIT1.R2 


CMl* 


R1.R2 


6EQ 


40i 


INC 


FATFLG 



CIERHRD 
702 

WRTMSG 
SFIMSG 

C$CLP1 



CIERHRD 
703 

T26RWN 
PKTSSR 

CJCLPl 



ERRHRD ERRNO , T26B0T . EXPREC 



CJERHRD 



TSV7 - HARDWARE TESTS 1-8 
TEST 6 1 REREADS 



13 



MACRO rH113 01 -FEB -an I7j5fl 



SEQ 241 



066154 


001300 




066156 


073075' 




066160 


015374' 




7888 066162 






066162 


104406 




7889 066164 


012703 


001000 


7890 066170 


013737 


003114' 072032' 


7891 






7892 






7893 






7894 






7895 






7896 






7897 






7890 066176 


012737 


140005 072030' 


7899 066204 


012704 


072030' 


7900 066210 






7901 066210 


010337 


072036' 


7902 066214 


010465 


000000 


7903 066220 


004737 


016150' 


7904 066224 


016501 


000002 


7905 066230 


012702 


000200 


7906 066234 


020102 




7907 066236 


001406 




7908 066240 


005237 


002212' 


7912 066244 






066244 


104456 




066246 


001301 




066250 


005103' 




066252 


011746' 




7913 066254 






066254 


104406 




7914 






7915 






7916 






7917 






7918 






7919 






7920 






7921 066256 


004737 


010714' 


7922 066262 


016501 


000002 


7923 066266 


012702 


000200 


7924 066272 


103407 




7925 066274 


010004 




7926 066276 


005237 


002212' 


7930 066302 






066302 


104456 




066304 


001302 




066306 


073364' 




066310 


011746' 




7931 066312 






066312 


104406 




7952 






7933 






7934 






7935 






7936 







40$: 



CKLOOP 

MOV 
MOV 



#512.. R3 
FREt.T26RB 



.WORD 
.WORD 
.WORD 

iLOOP ir SELECTED 

TRAP 

iRECORD SIZE 

(STARTING WRITE BUFFER ADDRESS 



704 

T26B0T 

EXPREC 

C*CLP1 



(WRITE OATA.CVC-l.ACK COMMAND 
I 



65 J; 



MOV 


#140005, T26PK3 


MOV 


#T26PK3,R4 


MOV 


R3,T26SZ 


MOV 


R4,TSDBCR5) 


JSR 


PCWAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR.R2 


CMP 


R1»R2 


BEQ 


75$ 


INC 


FATFLG 



75«: 



ERRHRD ERRNO.WRTERR.PKTSSR 



CKLOOP 



lURITE OATA.CVC-l.ACK COMMAND 
I SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GFT T5SR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

;BR, IF OK 

(BUMP COUNT 

jTSSR INCORRECT AFTER 14RITE DATA 

TRAP CtERHRD 

.WORD 

.WORD 

.WORD 
(LOOP IF SELECTED 

TRAP 



705 

WRTERR 

PKTSSR 



C$CLP1 



} 

(ISSUE REWIND COMMAND TO SELECTEC TAPE DRIVE 
( 

• 4l*4i*4i*4i******4>4**********44>*4A44>4>4*44«4>4>4*4**4*4*4i**4>4i ************ 

(CALL TAPE REWIND COMMAND 
(GET T5SR 

(SET VP EXPECTED TSSR 
(BR. IF NO PROBLEM 
(PACKET ADDRESS SET UP 
(PUMP COUNT 
ERRHRD ERRN0,T26RWN, PKTSSR (REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


MOV 


TSSR(R5).R1 


MOV 


0SSR.R2 


BCS 


I30t 


MOV 


R0.R4 


INC 


FATFLG 



130$: CKLOOP 



(LOOP IF SELECTED 



TRAP 


CiERHRD 


.WORD 


706 


.WORD 


T26RWN 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



}*******«********«*****4*****************************t************* 

(READ MESSAGE BUFFER EXTENDED ST/3TUS REGISTER ZERO (XSTO) 



TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 



J3 



MACRO M1113 Ol-KEB-84 17J54 



SEQ 2A2 



7937 
7938 
7939 
7940 
7941 
7942 
7943 
7944 
7946 



7949 

7950 
7951 
7952 
7953 
7954 
7955 
7956 
7957 
7958 
7959 
7960 
7961 
7962 
7963 
7964 
7965 
7966 
7967 
7968 
7972 



7973 

7974 
7975 
7976 
7977 
7978 
797'^ 
7980 
7981 
7982 
7983 
7984 
7985 
7986 
7990 



066314 
066320 
066322 
066326 
066330 
066332 
066336 
066336 
066340 
066342 
066344 
066346 
066346 
066350 
066352 



013701 071730' 

010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001303 
073075' 
015374' 

104406 
005303 
013737 003114- 



066360 
066366 
066372 
066376 
066402 
066406 
066412 
066416 
066420 
066422 
066426 
066426 
066430 
066432 
066434 
066436 
066436 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001304 
074442' 
011746' 

104406 



066440 
066444 
06;i446 
066152 
066454 
066456 
066462 
066462 
066464 



161401 

072030' 

072036' 

000000 

016150' 

000002 

100204 



002212' 



013701 071730' 

010102 

052702 010000 

020102 

001406 

005237 002212' 

104456 
001305 



MOV 


126BFR*6,R1 


MOV 


R1.R2 


BIS 


#BIT1.R2 


CMP 


R1.R2 


BEQ 


1401 


INC 


FATFLG 



072032 



072030 



I PICK UP XSTO 

»SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

lOOES EXP - REC'D 

I BR. IF EQUAL COK) 

J BUMP COUNT 

(TAPE NOT AT BOT AFTER RFUIND 

TRAP 
.UORD 
.UORD 
.UORD 

iLOOP IF SELECTED 

TRAP 

(SET RECORD SIZE TO 511. 

(STARTING R^:MU BUFFER ADDRESS 



ERRHRD ERRNO . T26B0T , EXPREC 



140$ I CKLOOP 

DEC 
MOV 



R3 

FREE , T2bRB 



CJERHRD 
707 
T26B0T 
EXPREC 

C$CLP1 



{***4i«*4k***************************************************«4i«4t4)4i4i4, 

1 REREAD DATA,CVC-1,ACK,0PP-1 COMMAND 
* 

J *************4i**«4ti^4i4ij(t4t*****************4i***«*«*«*4>«*«««**** ****** 



165 S 



MOV 


#161401, T26PK5 


MOV 


*T26PK3.R4 


MOV 


R3,T26SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR!SC!BIT2.R2 


CMP 


RI.R2 


OEQ 


170$ 


INC 


FATFLG 



170$ 



ERRHRD ERRNO . T26TRL . PKTSSR 



CKLOOP 



(REREAD DATA.CVC-l.ACK.OPP-l COMMAND 

I SET UP R4 WITH PACKCT ADDRESS 

I SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

iWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

I ARE THEY EQUAL 

»BR. IF OK 

iBUMP COUNT 

I TSSR INCORRECT AFTER REREAD DATA 

TRAP C$F.RHRD 
.WORD 708 
.WORD T26TRL 
.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP C$CLP1 



t********4i****4*************************<i************************** 

(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 
i 

1*******4*** ********************* ********************************** 

(GET MESSAGE BUFFER 

I SET UP EXPECTED 

iSET THE RLL BIT IN EXPFCitD 

(ARE THEY EQUAL 

jBH, IF EQUAL CALL IS WFLL) 

I BUMP COUNT 

(THE RLL BIT WAS NOT SET IN XSTO 

TRAP CSERHRD 
.WORD 709 



MOV 


T26BFR»6,R1 


MOV 


R1,R2 


BIS 


#6ITi2.R2 


CMP 


R1.R2 


BEQ 


180i 


INC 


FATFLG 


ERRHRD 


ERRNO. T26L0N. EXPREC 



I<3 



TSV7 - HARDWARE TtSTS 1 
TEST 6: REREADS 



-6 



MACRO M1113 Ol-FEB-84 17i54 



SEQ 243 



066466 


074210' 




066470 


015374' 




7991 06647? 






066472 


104406 




7992 066474 


012703 


000777 


799? 066500 


015737 


003114' 072032* 


7994 






7995 






7996 






7997 






7996 






7T99 






8000 






bOOl 066506 


012737 


141401 072030' 


8002 066514 


012704 


072030' 


8003 066520 


010337 


072036' 


8004 066524 


010465 


000000 


8005 066530 


004737 


016150' 


6006 066534 


016501 


000002 


b007 066540 


012702 


100204 


8008 066544 


020102 




8009 066546 


001406 




8010 066550 


005237 


002212' 


8014 066554 






066554 


104456 




066556 


001306 




066560 


074442' 




066562 


011746' 




8015 066564 






066564 


104406 




8016 






8017 






8016 






9019 






8020 






8021 






8022 






8023 066566 


013701 


071730' 


8024 066572 


010102 




8025 066574 


052702 


010000 


8026 066600 


020102 




8027 066602 


001406 




8028 066604 


005237 


002212' 


8032 066610 






066610 


104456 




066612 


00130? 




066614 


074210' 




066616 


015374' 




8033 066620 






066620 


104406 




8034 066622 






066622 






066622 


104403 




8035 066624 


023727 


002212' 000017 


8036 066632 


103402 




8037 066634 


004 737 


017104' 


8036 066640 







180$: CKLOOP 

MOV 
MOV 



0511.. R3 
FREE.T26RB 



.UORD 
.WORD 

TRAP 
iSET UP SIZE OF RECORD 
(STARTING READ BUFFER ADDRESS 



T26L0N 
EXPRFC 

C$CLP1 



; REREAD DATA,CVC-1 . ACK COMMAND 
« 



365$: 



MOV 


«141401,T26PK3 


MOV 


*T26PI<3,R4 


MOV 


R3.T26SZ 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


*SSR!SC!BIT2,R2 


CMP 


R1,R2 


BEQ 


3701 


INC 


FATFLG 



ERRHRD ERRN0.T26TRL,PKTSSR 



370$: CKLOOP 



iRF.READ DATA.CVC-l.ACK COMMAND 

I SET UP R4 WITH PACKET AOORtSS 

,SET UP RECORD SIZE IN PACKET 

J ISSUE COMMAND 

;WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

:SET UP EXPEC'rED 

I ARE THEY EQUAL 

jBP. IF OK 

I BUMP COUNT 

J TSSR INCORRECT AFTER REREAD DATA 



I LOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


710 


.WORD 


T26TRL 


.WORD 


PKTSSR 



TRAP 



C$CL5>1 



.«**4*4i*4t4i4i4i'*i**<f4i*«4i#4i*^4i*4^*4>*4>4t«*+*4i««**«*<i«*«*4i**4i**'f4>***4k4iA4«**A* 



t 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

;GET MESSAGE BUFFER 

J SET UP EXPECTED 

I SET THE RLL BIT IN EXPECTED 

(ARE THEY EQUAL 

I BR, IF EQ'JAL CALL IS WELL") 

;BUMP COUNT 

iTHE RLL BIT WAS NOT SET IN XSTO 

TRAP CiERHRD 
.WORD 711 
.WORD T26L0N 
.WORD EXPREC 



MOV 


T26BFR^6,R1 


MOV 


Rl .R2 


BIS 


.>fiITl2.R2 


CMP 


R1.R2 


BEQ 


380$ 


INC 


FATFLG 



380$ 



ERRHRD ERRNO . T26L0N , EXPREC 

CKLOOP 
END'"UB 



999$ 



CMP FATFLG. *15. 

BLO 999$ 

JSR PC.CKDROP 



TRAP C$CLP1 
J ^>> >>> >*>■*>> Eh^o StBTEST > >^>> >>> ■» ^ >> 

L10115: 

TRAP C$ESLtB 
J IS ERROR COUNT AT 25 
jBR. IF LESS THAN 25 
tTRY TO DROP THE UNIT 



L3 



TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 



8039 
8040 
8041 
8042 
8043 
6044 
8045 
8046 
6047 
8048 
8049 
8050 
8051 
3052 
8053 
8054 
8055 
8056 
8057 



MACRO M1113 Ol-FEB-84 17:54 



SEQ 244 



6058 

8059 
6060 
6061 
8062 
8063 
6034 
6065 
6066 
8067 
8068 
8069 
6070 
6074 
6075 



8076 
8077 
8078 
8079 
6080 
8081 
6082 
6083 
8084 
8085 
8086 
8087 
8088 
8)92 
8D93 



066640 
066640 
066640 
066642 
066646 
066652 



104402 

004737 074620 

004737 074712 

004737 074754 



066656 
066662 
066664 
066670 
066672 
066672 
066674 
066675 
066700 
066702 



004737 015674' 

103407 

005237 002212' 

010001 

104455 

001310 

003642' 

011734" 

013737 002172' 



066710 012704 071700' 



066714 
066720 
066722 
066726 
066750 
066730 
066732 



004 737 010562' 

103407 

005237 002212' 

010001 

104456 
001311 



iTEST 6, SUBTEST 12 

; VERIFIES THAT A REREAD NEXT COMMAHO READING A 
i RECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES 
jTAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
(SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE 
(RESIDUAL BYTE COUNTER CRBPCR) IN THE MESSAGE BUFFER 
(CONTAINS THE PROPER NONZERO VALUE (E.G.. THE 
(DIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE 
(ACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH 
(STATES OF GPP (0 AND 1). 



BGNSUB 



JSR 
wJSR 
J3R 



PC,T26REST 

PC,T26RT2 

PC.T26^r5 



;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>i>>>>> 

T6.12: 

TRAP C$BSUB 
(SET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 



llSSUE CONTROLLER "1>0FT" INITIALIZE - CARRY BIT CLEAR IF ^RROR 
I 



071720' 20$: 



JSP 


PC.SOFINIT 


(DO INITIALIZE ON CONTROLLER 




BCS 


20 J 


(BR IF INIT WAS OK 




iNC 


FATFLG 


(BUMP COUNT 




MOV 


RO.Rl 


(CONTENTS 0." TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


CiERDF 






.WORD 


712 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T260SW 


(SET UP UNIT NUMBER 





MOV 



(SUBROUTINE NEEDS PACKET ADDRESS 



*T26PACKET.R4 

*^**********4**44***4i4**4*****4****444i*«4*4****4*'k444i4*44i4*«41^44>4>« 

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHH) 

444444 4*444% \4**44*4**4«*4i4*44444**444*4*4i*4i*44''*v*4*4>4>444i444'«>*444 



JSR PC.WRTCHR 

BCS 26$ 

INC FATFLG 

MOV RO.Rl 

E9RHRD ERRNC , WR TMSG , SFIMSG 



(ISSUE WRITE CHARACTERISTICS 

(6R. IF COMMAND ISSUED OK 

(BUMP COUNT 

(SAVE CONTENTS OF TSSR 

(WRITE CHARACTERISTISC FAlLtfD 

TRA*^ 
.WORD 



CiERHRD 
715 



M3 



TSV7 - HARDWARt TESTS X 
TEST 6: REREADS 



-8 
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8094 

8095 
8096 
8097 
8098 
8099 
8100 
8101 
8102 
8103 
8104 
8105 
8106 
8107 
8111 



8112 

8113 
8114 
8115 
8116 
8117 
8118 
8119 
8120 
8121 
8122 
8123 
8124 
8125 
8129 



8130 

8131 
8132 
8133 
6134 
8135 
8136 
3137 
8138 
8139 
8140 
8141 
8142 
8143 



066734 
066736 
066740 
066740 



066742 
066746 
066752 
066756 
066760 
066762 
066766 
060 766 
066770 
066772 
066774 
066776 
066776 



067000 
067004 
067006 
067012 
067014 
067016 
067022 
067022 
067024 
067026 
067030 
067032 
067032 
067034 
067040 



067046 
0^7054 
067060 
067060 



005046 
011734 

1044C6 



004737 
016501 
012702 
103407 
010004 
005237 

104456 
001312 
073364 
011746 

104406 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
001313 
073075' 
015374' 

104406 
012703 
013737 



012737 
012704 



010714' 

000002 

000200 



002212 



071730' 
000002 

002212' 



000400 
003114 



072032 



140005 
072030 



072030' 



26$: 



CKu-JOP 



I LOOP IF SELECTED 



.UORD 
.UORD 

TRAP 



; ** AAAAik *« ********** A* A **«* III*** 4i * j^. ** 4iJ«L4i4L4i**4i*«4Lik4' 4^41 A* A4^*A4i4>4i4i4i* 4^**41 



I 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

4i4i4i4i**it'4t*******i*i*********4i*****4***4i4i4i4i**4i*4i********4i****4t44i4i***4i* 

;CALL TAPE REWIND COMMAND 

J GET TSSR 

J SET UP EXPECTED TSSR 

I BR, IF NO PROBLEM 

(PACKET ADDRESS SET UP 

;BUMP COLWT 

; REWIND NOT ACCEPTED 



JSR 


PC, RE WIND 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


BCS 


30$ 


MOV 


R0.R4 


INC 


FATFLG 



ERRHRD ERRNO . T26RWN . PKTSSR 



30$ t 



CKLOOP 



J LOOP IF SELECTED 



TRAP 

***<.4i** ******************** ************4>4>*4i*** ******* 441 4i4i*^**«j|i^j|t* 

READ MFISSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

********************************* :\*4,***44.*4t«*A 44,4,* ********* ******* 

;PICI< UP XSTO 

jSET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

iDR IF EQUAL (OK) 

;BUMP COUNT 

(■^APE NOT AT BOT AFTER REWIND 



MOV 


T26BFR*6,R1 


MOV 


R1.R2 


BIS 


#6ITi,R2 


CMP 


R1,R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO , 126 30T , EXI- P ' „ 



40$: 



CKLOOP 

MOV 
MOV 



;v 



<>256. ,R3 
FREE.T26RB 



J ****************************4>*****v 

jWRITE DATA.CVC-l.ACK COMMAND 

! 

• ****** **4>* ******* *4i** ******************************* ****** 



K :h * * ^. 



010337 072036 



65$: 



MOV ^>140005,T26PI<3 

MOV OT26PK3,R4 

MOV R3,T2SSZ 



(WRITE DATA.CVC-l.ACK COMMANu 
tSET UP R4 WITH PACKET ADDRESS 

iSET UP RECORD SIZE IN PACKET 



WRTMbG 
SFIMSG 

C$CLP1 



TRAP 


C$ERHRD 


.WORD 


714 


.WORD 


T26RWN 


.WORD 


PKTSSR 



C$CLP1 



SEQ 245 







TRAP 


C$ERHRD 






.WORD 


715 






. k'ORO 


T26B0T 






.wur:: 


EXPREC 


T . l.ECTED 












TRAP 


C$CLP1 


Si-^h 








i^^MT^yj, .1 t_. 


t. 


'\DORESS 




-.*<h****j^«4iit*«v 




^**?^ ^ 





N3 



TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 



8144 


067064 


010465 


000000 


8145 


067070 


004737 


016150' 


8146 


067074 


016501 


000002 


8147 


067100 


012702 


000200 


8146 


067104 


020102 




8149 


067106 


001406 




8150 


067110 


005237 


002212' 


8154 


067114 








067114 


104456 






067116 


001314 






067120 


005103' 






06712? 


011746' 




8155 


067124 








067124 


10^406 




8156 


067126 






8157 








8158 








8159 








8160 








8161 








8162 








8163 








8164 


067126 


00473 7 


010714- 


8165 


067132 


016501 


000002 


8166 


067136 


012702 


000200 


8167 


067142 


103407 




8168 


0671A' 


010004 




8169 


067146 


on5237 


002212' 


8173 


067152 








067152 


104456 






067154 


001315 






067156 


073364' 






067160 


011746' 




8174 


067162 








067162 


104406 




8r75 








8176 








8177 








8178 








8179 








8180 








8181 








8182 


067164 


013701 


071730' 


8183 


0671V0 


010102 




8184 


067172 


052702 


000002 


8185 


067176 


020102 




8186 


067200 


001406 




8187 


067202 


005237 


002212' 


8191 


067206 








067206 


104456 






067210 


001316 






0672J2 


073075' 






067214 


015374' 




8192 


067216 








067216 


104406 




8193 


067220 


012703 


001000 


8194 


067224 


013737 


003114' 
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SEQ 246 



MOV 


R4.TSDBCR5) 


JSR 


p:.waitf 


MOV 


TSSRCR5).R1 


MOV 


*SSR.R2 


CMP 


R1,R2 


BEQ 


75$ 


INC 


fatflg 



ERRHRD ERRNO , WRTERR , PKTSSR 



CKLOOP 



I ISSUE COMfiANO 

(WAIT FOR SSR TO SET 

tGET TSSR CONTENTS 

iSET UP EXPECTED 

J ARE THEY EQUAL 

(BR. IF OK 

I BUMP COUNT 

;TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 

.WORD 

.WORD 

.WORD 
;LOOP IF St-> ^CVED 

TRAP 



75$: 
120$: 

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

iCALL TAPE REWIND COMMAND 

(GET TSSR 

;SET UP EXPECTED TSSR 

iBR. IF NO PROBLEM 

; PACKET ADDRESS SET UP 

;BUMP COUNT 

I REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


riov 


TSSRCR5),R1 


MOV 


*SSR.R2 


BCS 


130$ 


MOV 


R0,R4 


:nc 


FATFLG 



ERRHRD ERRNO , T26RWN , PKTSSR 



130$ 



CKLOOP 



iLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



072032 



; 4i*4i***4>*****4>4i4i**4L****************4i4>****>**«4i****4>*********4L*4t4*** 

;READ MESSAGE BUFFER EXVENDED STATUS REGISTER ZERO (XSTO) 

;********************««* u****«******v4i*****************«*4t ********* 

[PICK UP XSTO 
(SET UP EXPECTED 
J SET BOT 81 1 IN EXPECTED 
jOOES EXP - REC'D 
tBR. IF EQUAL (OK) 
iBUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
135$: CKLOOP jLOOP IF SELECTED 

TRAP 
iRtCORD SIZE 
tSTARTING READ BUFFER ADDRESS 



MOV 


T26BFrt»6,Rl 


MOV 


R1.R2 


BIS 


«BITi,R2 


CMP 


R1.R2 


BEQ 


135$ 


INC 


FATFLG 


ERRHRD 


ERRNO, T26B0T,EXPREC 



CKLOOP 

MOV 
MOV 



716 

WRTERR 

PKTSSR 



C$CLP1 



C$ERHRD 
717 

T26RWN 
PKTSSR 

CSCLPl 



<*512. .R3 
FREE.T26He 



C$ERHRD 
713 

T2oB0T 
rXFRPC 

C$CLP1 



B4 



TSV7 ■ HARD»iARE TESTS 1-8 
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6195 
8196 
8197 
8198 
8199 
8200 
8201 
8202 
8203 
8204 
8205 
8206 
8207 
8208 
8209 
8210 
8211 
8215 
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SEQ 247 



iREREAD NEXT,ACK.CVC*1,0PP-1 
t 



,4i*««^*«4>i»4>«4>4>4i«4iA4>4i4i4i4>*4^4>4>4> 



8216 

8217 
8218 
8219 
8220 
8221 
6222 
6223 
8224 
8225 
8226 
8227 
6228 
8229 
6233 



6234 

8235 
8236 
82,57 
8238 
8242 



6243 

8244 

6245 



067232 
067240 
067244 
067250 
067254 
067260 
067264 
067270 
067272 
067274 
067300 
067300 
067302 
067304 
067306 
067310 
067310 



012737 161401 072030 

012704 072030' 

010337 072036' 

010465 000000 

004737 016150- 

016501 000002 

012702 100204 

020102 

001406 

005237 002212* 

104456 
001317 
074442' 
011746 

104406 



16511 



MOV 


#161401, T26PK3 


MOV 


♦T26PK3,R4 


MOV 


R3.T26SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),Rl 


MOV 


#SSR!SC!BIT2.R2 


CMP 


R1.R2 


BEO 


170$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T26TRL|PKTSSR 



170$ t CKLOOP 



(REREAD NEXT,ACK,CVC-l,OPP-l 

I SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

iWAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

I SET UP EXPECTED 

I ARE THEY EQUAL 

iBR. IF OK 

I BUMP COUNT 

(TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 



C$ERHRD 
719 
T26TRL 
PKTSSR 

C$CLP1 



(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



067312 
067316 
067320 
067324 
067326 
067330 
067334 
067554 
067336 
067340 
067542 
067544 
067544 
067346 
067352 
067556 
067360 
067364 
067564 
067366 
067370 
067372 
067574 
067574 
067576 
0t^740^ 



015701 
010102 
052702 
020102 
0014 V 
005i:.i; 

*.'^-4't 

cs)i;?o 

074272- 
015374' 

104406 
013701 
012702 
020102 
001405 

104456 
001320 
07.%554' 

C15374' 

104406 
012705 
015737 



071730 
040000 



002212 



MOV 


T26BFR»6.R1 


MOV 


R1.R2 


BIS 


#eiT14,R2 


CMP 


R1.R2 


BEQ 


180$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T26L0P,EXPREC 



071726 
000400 



001000 
003114 



07^032 



180$ t CKLOOP 

MOV 
MOV 

CMP 
BEQ 
ERRHRD 



190$; CKLOOP 

MOV 
HQV 



T26BFR«4,R1 
#256. .R2 

R1,R2 

190$ 

ERRN0.T26PDP,EXPREC 



iGET MESSAGE BUFFER 

iSET UP EXPECTED 

iSET THE RLS BIT IN EXPECTED 

I ARE THEY EQUAL 

iBR. IF EQUAL (ALL IS WELL) 

I BUMP COUNT 

(THE RLL BIT WAS NOT SET IN XSTO 

TRAP C$ERMRD 

.WORD 720 
.WORD T26L0P 
,WORO EXPREC 

TRAP C$CLP1 

iPICK UP RISIOUAL BYTE COUNTER 
jTMiS SHOULD BE THE DIFFERENCE 
lis ''HE DIFFERENCE CORRECT 
iBR. IF CORRECT 
iRBPCR NOT CORRECT 



TRAP 


C$ERHRO 


.WORD 


720 


.WORD 


T26PBP 


.WORD 


EXPREC 



#51?., R5 
FREe,T26RB 



I LOOP IF SELECTED 

TRAP C»CLPl 

(RECORO SUE 
iSTARTING READ BUFFER AQOR&US 



C4 



TSy? - HARLJfRF 
TEST t: REREAD 


TESTS 1 


-8 


8246 






8247 






8248 






8249 






8250 






8251 






8252 






8255 067410 


012757 


141401 


8254 067416 


012704 


072030' 


8255 067422 


010337 


072036* 


8256 067426 


010465 


000000 


8257 067432 


004737 


016150' 


8258 067456 


016501 


000002 


8259 067442 


012702 


100204 


8260 0674A6 


020102 




8261 067450 


001406 




8262 067452 


005257 


002212* 


8266 067456 






067456 


104456 




067460 


001521 




067462 


074442' 




067464 


011746' 




8267 067466 






067466 


104406 




8268 






8269 






8270 






8271 






8272 






8273 






8274 






6275 067470 


013701 


071730' 


8276 067474 


010102 




8277 067476 


052702 


040000 


8278 067502 


020102 




8279 067504 


001406 




8280 067506 


005237 


002212' 


6284 067512 






067512 


104456 




067514 


001322 




067516 


074272* 




067520 


015374' 




8285 067522 






067522 


104406 




8266 067524 


013701 


071726' 


8287 067530 


012702 


000400 


8288 067554 


020102 




6269 067536 


001405 




8293 067542 






067542 


104456 




067544 


001322 




067546 


074554' 




067550 


015374' 




8294 067552 






067552 


104406 




6295 067554 






067554 
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iREREAD NEXT.ACK,CVC«i,OPP-0 
I 

072030' MOV *141401.T26PK3 (REREAD NEXT ,ACK .CVC-l,0PP-0 

I SET UP R4 WITH PACKET ADDRESS 
I SET UP RECORD SIZE IN PACKET 
I issue COMMAND 
iWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
I SET UP EXPECTED 
(ARE THFY EQUAL 
(BR. If OK 
jBUMP COUNT 
ERRHRD ERftN0,T26TRL,PKTSSR iTSSR INCORRECT AFTER READ DATA 



MOV 


#141401. T26PK3 


MOV 


♦T26PK3.R4 


MOV 


R3.T26SZ 


MOV 


n4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR'.).:;! 


MOV 


♦SSR!SC!BIT2.R2 


CMP 


R1.R2 


BEQ 


2701 


INC 


FATFLG 



270>: CKLOOP 



I LOOP IF SELECTED 



TRAP 


CIERHRD 


.WORD 


721 


.WORD 


T26TRL 


.WORD 


PKTSSR 



TRAP 



CICLPl 



iREAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
1 

I GET MESSAGE BUFFER 

iSET UP EXPECTED 

(SET THE RLS BIT IN EXPECTED 

I ARE THE> EQUAL 

I BR. IF EQUAL (ALL IS WELL) 

I BUMP COUNT 

I THE RLL BIT WAS NOT SET IN XSTO 



280$: CKLOOP 



MOV 


T26BFR.6,R1 


MOV 


R1,R2 


BIS 


<«IT14.R2 


CMP 


R1.R2 


BEQ 


280 1 


INC 


FATFLG 


ERRHRD 


ERRN0,T26L0P,EXPREC 



MOV 


T266FR»4.Rl 


MOV 


0256. ,R2 


CMP 


R1,R2 


BEQ 


2901 



290$ 1 



ERRHRD ERRN0,T26PeP,EXPREC 

CKLOOP 
END5UB 



TRAP 


CtERHRD 


.WORD 


722 


.WORD 


T26L0P 


.WORD 


EXPREC 


TRAP 


C$CLP1 


iPICK UP RESIDUAL BYTE COUNTER 




iTHlS SHOULD BE THE DIFFERENCE 




lis THE DIFFERENCE CORRECT 




iBR. Xr CORRECT 




iRBPCR NOT CORRECT 




TRAP 


CJERHRO 


.WORD 


722 


.WORD 


T26PBP 


.WORD 


EXPREC 


iLOOP IF SELELTED 




TRAP 


CJCLPl 


[>>>>>>>>»>>) E^^0 SUBTEST v»->>>vv>v>> 


LlOllbi 





SEQ 248 



^i^T^ -eimm: 



D4 



TESTS 1-8 
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SEQ 249 



6296 
8297 

8298 
8299 
8300 
8301 
8302 
8303 
8304 
8305 
8306 
8307 
8308 
8309 
8310 
8311 
8312 



8313 
8314 
8315 
8316 
8317 
8318 
8319 
8320 
8321 
8322 
8323 
8324 
8325 
8326 
8327 
8328 
8329 
8333 
8334 



8335 
8336 
8337 
6338 
8339 
8340 
8341 
8342 
834i 
8344 
8345 
8346 
8347 
8351 



067554 
067556 
067564 

067566 
067572 



067572 
067572 
06757^ 
067574 
067600 
06760*; 
067606 
067612 
067616 
067622 



067626 
067632 
067634 
06/640 
06 764 £ 
067642 
067644 
067646 
067650 
06765:? 



104403 

023727 002212' 000017 

103402 

004737 017104' 



104402 
005737 

ooioon 

000157 
004737 

00503V 
004727 

004 -.-s; 



004 V 

105/" o; 

01. 001'^ 

10445/^ 
00l3?o 

01 IV.'.-, 



067660 Oi270^ 



0<)iv;?6' 

'.'■■0604' 
'■'^■'i:>20' 

074754' 



015^74 
«)02212 



002172 
071700' 



067664 004/ J7 010562' 

067670 lOr-. *? 

067672 00*' ':;^ 002H12' 

Ob 76 76 OlC'un 



CMP FATFLG.#15. 

BLO 999» 

JSR PC.CKDROP 



999$! 

I * 

iTEST 6. SUBTEST 13 

I VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
INONEXISTENT MEMORY CAUSES RECOVERABLE ERROR 
(TERMINATION (TC-4 OR 5) WITH NXM-1 AND THAT THE TAPE 
lis ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS 
lOF REREAD PREVIOUS/NEXT AND OPP-0/1 ARE TESTED. 
I- 



TRAP 
(IS ERROR COUNT AT 25 
iBR. :f LESS THAN 25 
(TRY TO DROP THE UNIT 



CJESUB 



BGNSUB 



10$ ! 



TST 


NXMFLG 


BNE 


10$ 


JMP 


200$ 


JSR 


PC,T26REST 


CLR 


T26CNT 


JSR 


PC.T26RT2 


JSR 


PC,T26RT3 



(>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T6.13: 

TRAP C$BSUB 
iOO WE HAVE IT? 
I BR, IF ENOUGH 
I SKIP THIS TEST IF NOT 
iSET COMMAND PACKET 
I CLEAR TAPE RECORD COUNTER 
tSET v^ OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



<*4i4> 



I ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



)««4*4*4>«**«**4>f*4i*4)«*«4i***4t4i«if*««4>4t«*«****«******««*4>«*****«4>***** 



071720' 20$ 



JSR 


PC.SOFINIT 


lOO INITIALIZE ON CONTROLLER 




BCS 


201 


iBR IF INIT WAS OK 




INC 


FATFLG 


(BUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRUF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


CJERDF 






.WORD 


723 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T260SW 


(SET UP UNIT NUMBER 





MOV 



#T26PACKET.R4 



lSL«ROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



JSR 


PC. WRTCHR 


BCS 


26$ 


INC 


FATFLG 


MOV 


RO.Rl 



(ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 
(BUMP COUNT 
(SAVE CONTENTS OF TSSR 



E4 



TSV7 - HAROWARt TESTS 1-0 
TEST 6: REREADS 



MACRO M1113 Oi-FEB-84 17:54 



e352 



8353 

8354 
8355 
8356 
8357 
8358 
8359 
8360 
8361 
8362 
8333 
836t 
8365 
8366 
8370 



6371 

8372 
8373 
8374 
8375 
8376 
8377 
8778 
8379 
8380 
8381 
8382 
8383 
8384 
8368 



8389 

8390 
8391 
859? 
8593 
8394 
8593 
8396 
8397 
839e 

659y 



067700 
067700 
007702 
067704 
067706 
067710 
067710 



067712 
067716 
067722 
067724 
067730 
067732 
067736 
067736 
067740 
067742 
06^744 
067740 
067746 



067750 
067754 
067 756 
007762 
067764 
067766 
067772 
067772 
067774 
067776 
070000 
070002 

0700O;? 

070004 



104h'jw 
00x32 A 
005046' 
0U734' 

104406 



004. 37 
00^;757 
103411 
016501 
OlO'X^ 
005237 

10^ -JSO 
001325 
073364 
011746 

104406 



021024 
010714 

000002 

002212 



071730' 
000002 



002212' 



015701 
0M)i02 
05270w> 
02^102 
00l40fj 
005237 

104456 
001326 
0?30;5' 
015574' 

1044 06 

013737 003114- 072032' 



26$: 



ERRHRD ERRNO.WRTMSG.SFIMSG 



CKLOOP 





SEQ 250 


iWRITE CHARACTERISTISC FAILED 




TRAP 


C$ERHfiD 


.WORD 


724 


.WORD 


WRTMSG 


.WORD 


SFIMSG 


iLOOP IF SELECTED 




TRAP 


CJCLPl 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
J 

(INVERT THE EXTENDED FEATURES SWITCH 

I CALL TAPE REWIND COMMAND 

I BR, IF NO PROBLEM 

(GET TSSR 

I PACKET ADDRESS SET UP 

(BUMP COUNT 

I REWIND NOT ACCEPTED 



JSR 


PC, INVERT 


JSR 


PC, REWIND 


BCS 


30$ 


MOV 


TSSRCR5),R1 


MOV 


ro,R4 


INC 


FATFLG 



30$! 



ERRHRD ERRNO , T26RWN , PKTSSR 



CKLOOP 



iLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



t*«*****4«*******«***«**********6*«***v ******** *******««*****4i*4.*4i* 

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
1 

iPICK UP XSTO 

I SET UP EXPECTED 
(SET SOT BIT IN EXPECTED 
(DOES EXP • RECD 
iBR, IF EQUAL (OK) 
I BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 

TRAP 
(STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR*6,Rl 


MOV 


R1.R2 


BIS 


«6IT1,R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



40$: 



ERRHRD ERRNO , T26B0T , EXPREC 

CKLOOP 

MOV FREE,T26RB 



1 

(WRITE DATA.CVC-l.ACK COMMAND 



\ 



C$ERHR0 
725 

T26RWN 
PKTSSR 

C$CLP1 



C$ERHRD 
726 

T2660T 
EXPREC 

C$CLP1 



07001? 
0700^^0 



0J.27?' 
012704 



140005 
072030 



072030' 



MOV #140005, T26PK3 
MOV 0T26PK3,R4 



(WRITE 0ATA,CVC-1,ACK COMMAND 
(SET UP R4 WITH PACKET ADDRESS 



F4 



TSV7 - HARDWAf<E 


TtSTS 1 


-6 MACRO 


TEST 6: 


RERBAOS 




8400 


070024 


0X2737 


00040C 072036 


8401 


070032 


013V77 


072056' 1130?:-* 


840a 


070040 


062737 


000001 072056 


3405 


070O4C. 


010465 


OCOOOO 


€404 


070052 


004737 


016150' 


6405 


070056 


016501 


000002 


Qfl.Oe 


07006? 


01^70;? 


000200 


ti407 


070066 


020102 




8408 


0700 ''0 


001406 




8409 


070072 


0052^^7 


ou2:;i2' 


8413 


07007^^ 








07007*- 


1044^6 






070100 


ooizr? 






070102 


OOMO?' 






070104 


011746' 




3414 


070106 








0/010*^ 


104406 




8415 


0V0l?.0 


02c:?. ■'-7 


000013 072056 


6416 


070116 


001401 




6417 


070120 


Or;0741 




8416 


070^22 






8419 


070122 


OOr'037 


003132' 


3420 


070126 






8421 


070126 


005037 


072056' 


842P 








8423 








8424 








8425 








8426 








6427 








8428 








6429 


070132 


GC47J7 


010714' 


8430 


0^0136 


lOMll 




8431 


070140 


010r;0l 


000002 


P432 


070144 


010i>"4 




8433 


070146 


U05237 


002212' 


8437 


070152 








0/0152 


iCuu'sr- 






0?0154 


oov'^:'0 






070156 


Q/y^-C-iA' 






070160 


oi:l;-^^6 




8438 


070162 








070162 


104<06 




6439 








8440 








6441 








8442 








844^ 








8444 








6445 








8446 


070 164 


0^,3701. 


071730' 


8447 


070170 


01010,'? 




8446 


070::'2 


OS.?7(i2 


000002 


6449 


0701 i'S 


0.^0. o: 




8450 


070200 


O^MCc 




845) 


070202 


00^2^7 


002212' 


845b 


070206 







MACRO M1113 01-FEB-a4 17:54 



65$ 



SEQ 251 



MOV 


0256., T26S^ 


MOV 


T26CNT.0FREE 


ADD 


#1,T26CNT 


MOV 


R4.TSDaCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


dSSR.R2 


CMP 


R1»R2 


BEQ 


75i 


INC 


FATFLG 



75$ 



ERRHRO ERRNO.WRTERR.PKTSSR 



CKLOOP 



I SET UP RECORD SIZE IN PACKET 

(MOVE TAPE RECORD Ni.»MBEPI TO BUFFER 

I NUMBER READY FOR NEXT RECORD 

1 ISSUE COMMAND 

I WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

(ARE THEY EQUAL 

iBR. IF OK 

I BUMP COUNT 

I TSSR INCO-^RECT AFTER WRITE DATA 

TRAP CIERHRO 
.WORD 727 
.WORD URTERR 
.IJOnD PKTSSR 

iLOOP IF SELECTED 

TRAP C$CLPl 

(CHECK NUMBER OF RECORDS WRITTEN 

iBR IF AT END OF WRITE SEQUENCE 

;WRITE MORE RECORDS 

(SET TO 16 BIT ADDRESS 
iSET RECORD COL»NTER BACK TO ZERO 

I 

(ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
t 

tCALL TAPE REWIND COMMAND 
iBR, IF NO PROBLEM 
(GET TSSR 

(PACKET ADDRESS SET UP 
I BUMP COUNT 
ERRHRO ERRN0,T26RWN, PKTSSR ^REWIND NOT ACCEPTED 





CMP 


(H1..T26CNT 




BEQ 


120$ 




BR 


65$ 


120$: 








CLR 


NXMHI 


125$: 








CLR 


T26CNT 



JSR 


PC. REWIND 


6CS 


130$ 


MOV 


TSSR(R5),R1 


MOV 


R0,R4 


INC 


FATFLG 



130$: CKLOOP 



jLOOP IF SELECTED 



TRAP 


C$ERHRO 


.WORD 


728 


.WORD 


T26RWN 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
t 

iPXCK UP XSTO 

iSET UP EXPECTED 
(SET BOT BIT IN EXPECTED 
I DOES EXP • REC'O 
(BR, IF EQUAL COKj 
I BUMP COUNT 
ERRHRO ERRN0,T26BOT,EXPREC t TAPE NOT AT BOT AFTER REWIND 



MOV 


T26BFR*6.R1 


MOV 


R1.R2 


BIS 


0BIT1.R2 


CMP 


R1.R2 


BEQ 


140 V 


INC 


FATFLG 



TSV7 - HARDWARE TESTS I -ft 
TEST 6: REREADS 
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G4 



8456 

8^ 'J? 
84b8 
6459 
8460 
8461 
8462 
8463 
8464 
8465 
8466 
8467 
8468 
8469 
6470 
8471 
8472 
8473 
8474 
8475 
8476 
6477 
8478 
8479 
6480 
8461 
8482 
8483 
8484 
3488 



8489 

8490 
8491 
8492 
8493 
8494 
6495 
8496 
6497 
6498 
8499 
6500 
8501 
6502 
8503 
8504 
6505 



070206 
070210 
070212 
070214 
070216 
070216 
070220 
070224 
070232 



070240 
070244 
070250 
070256 
0702*>2 
C 70266 
"0272 
070276 
070300 
070302 
070306 
070310 
070314 
070316 
070316 
070322 
070330 
070332 
070336 
070336 
070340 
070342 
070344 
070346 
070346 



070350 
070356 
070364 
070370 
070376 
070402 
070406 
070412 
070416 



10^456 
001331 
073C75 
015574 

104406 
012703 
013737 
013737 



011337 
012704 
012737 
010^'65 
004737 
016501 
012702 
02010.*.' 
001422 
031327 
001403 
030127 
001014 

005257 
02372". 
001276 
00523 ; 

104456 
001332 

072305 
01?746 

104406 



012/37 
01273> 
005057 
013737 
0104^5 
004737 
016501 
012/0.; 
020102 



: 72046' 

t..05130' 072032 
003132' 072034 



140$: 
150*! 



CKLOOP 

MOV 
MOV 
MOV 



*T26RN,R3 

NXML0,T26RB 

NXMHI,T26HB*2 





SEQ 252 


TRAP 


CitERHRO 


.WORD 


729 


.WORD 


T26B0T 


.WORD 


EXPREC 


iLOOP IF SELECTED 




TRAP 


C$CLP1 


1 COMMAND BUFFER ADDRESS 




(STARTING READ BUFFER ADDRESS 




(SET UP HIGH ORDER ADDRESS BITS 





'^•72030' 
72030' 
<.0t)400 
f.O<K)00 
'lb 150' 
i. 00002 



001000 
O00O02 



C03132' 
01)3132' 

MJ2212' 



-40001 
000400 

.7:7034 • 
i 05114' 

ocoooo 

016150' 

(J00002 

000200 



072036 



I 

(REREAD DATA.IE.ACK, GPP COMMAND 
t 

J«****4i4>*4>*4i«**4t4i4i4i*4i4i***4i**4i4i4>4i4i4>*****4>4>*4>***«**4*«4i« + *4i4>4i**4>4 + 4 4i* 

I REREAD OATA.IE.ACK. OPP COMMAND 
165$: MOV #r26PK3,R4 iSET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 
I ISSUE COMMAND 
(WAIT FOR SSR TO SET 
jGET TSSR CONTENTS 
(SET UP EXPECTED 
(ARE THGY EQUAL 
iBR. IF OK 

(CHECK FOR A READ COMMAND 
I BR. IF IT WAS A READ COMMAND 
(WAS BITl SET 
(BR, IF REREAD AND BITl SET 



166$: 



000004 



MOV 


^R3).T26PK3 


MOV 


#r26PK3,R4 


MOV 


«256..T26SZ 


MOV 


R4,TS0B(R5) 


JSR 


PCWAITf- 


MOV 


TSSR(R5),R1 


MOV 


♦SSR!NXM!SC!BIT3.R2 


CMP 


Rl,fl2 


BEQ 


170$ 


BIT 


(R3).«BIT9 


BEQ 


168$ 


BIT 


R1.«6IT1 


BNE 


170$ 


INC 


NXMHI 


CMP 


NXMHI , *4 


BNE 


1251 


INC 


FATFLG 



ERRHRD ERRNO, T26RRF .PKTSSR 



170$: CKLOOP 



(BUMP TO NEXT ADDRESS RANGE 

(CHECK FOR OVERFLOW 

(BR, IF MORE BITS TO GO 

(BUMP COUNT 

(TSSR INCORRECT AFTER REREAD DATA 

TRAP C$ERHtRD 
.WORD 730 
.WORD T26RRF 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 



072050 
072036 

072032 



j**4t4>4i**4i*4i4i*4>4i4>4i«***4>*4«*4>4>«4i4^*44t****i3i*4i4*««*««*A*4i«4>*0«*«*4>4i4t4i**4i 
{ 

(READ DATA, ACK.CVC-1 COMMAND 
t 

;***4i4i4i4i***4i«^44l6******4*4*4i**444>4>4*4i44>4i***A*4i4>***4*4>« 4i4t4i4>*«*<i **** 

(READ DATA, ACK.CVC-1 COMMAND 
(SET SIZE INTO PACKET 
(CLEAR OUT HIGH ADDRESS BITS 
(GIVE READ A GOOD 3UrFER 
(ISSUE READ DATA COMMAND 
(WAIT FOR SSR 
(PICK UP THE TSSR 
(SET UP EXPECTED 
(IS THE TSSR OK 



MOV 


#140001, T26PK3 


MOV 


#256.,T26SZ 


CLR 


T26RB»2 


MOV 


FREE,T26RB 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR,R2 


CMP 


RI.R2 



TSV7 - HARDWARE iESTS 1 ti 
TEST 6: RrPtAOS 



1-14 
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SEQ 253 



8506 


070420 


001406 




8507 


070422 


005237 


002212' 


6511 


070426 








070426 


104456 






070430 


00153.5 






070432 


005176- 






070434 


011746' 




«5].2 


070436 








070436 


104406 




8513 


070440 


017701 


V;2450 


8514 


07044A 


01270L-' 


OOOOOl 


8515 


070450 


020102 




8516 


070452 


00 '.406 




3517 


070454 


0052':7 


002212' 


8521 


070460 








070460 


104456 






0704t2 


00133ft 






070464 


07i:O€.6- 






0704€6 


015 V/4' 




8522 


070470 








070470 


104406 




8523 








8524 








6525 








8526 








6527 








652'^ 








8529 








65.'>0 


070472 


0047;S7 


010714' 


8531 


070476 


1054 VI 




8552 


070500 


016^01 


000002 


8533 


070504 


01C»004 




8534 


07C506 


00525 / 


002212' 


8538 


070512 








070512 


104 456 






070514 


OOl'J-JS 






070516 


073364' 






C 70520 


011746' 




8539 


070522 








070522 


104406 




8540 








8541 








6542 








8543 








8544 








6545 








8546 








854 7 


070524 


013. 0^ 


OV1730' 


8548 


070530 


OlOlO? 




8549 


C70532 


)52V0r 


00O002 


8550 


070536 


02010." 




8551 


070540 


001A06 




8552 


070542 


0052^7 


002212' 


8556 


070546 








070546 


1044St- 






070550 


OOi.^M: 






070552 


073075' 





180$ 



BEQ 180$ 

INC FATFLG 

ERRHRD ERRNO , RDERR , PKTSSR 



CKLOOP 



MOV 


QFREE»R1 


MOV 


*l,rt2 


CAP 


R1,R2 


BEQ 


190 i 


INC 


FATFLG 



190$ 



ERRHRD ERRNO . T26WNG , EXPREC 



CKLOOP 



;BR, IF TSSR OK (GOOD) 

(BUMP COUNT 

I READ DATA COMMAND FAILED 

TRAP 
.UORD 
.UORD 
.WORD 

I LOOP IF SELECTED 

TRAP 

I FIRST WORD FROM READ BUFFER 

J SET UP EXPECTED 

lis TAPE POSITION CORRECT 

(KEEP GOING POSITION OK 

iBUMP COUNT 

J TAPE POSITION INCORRECT 

TRAP 
.UORD 
• WORD 
.WORD 

TRAP 



1 

(ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

:CALL TAPE REWIND COMflAND 
I BR, IF NO PROBLEM 
(GET TSSR 

I PACKET ADDRESS SET UP 
I BUMP COUNT 
ERRHRD ERRNO. T26RWN, PKTSSR j REWIND NOT ACCEPTED 



JSR 


PC. RE WIND 


BCS 


194$ 


MOV 


TSSrt(R5),Rl 


MOV 


R0,R4 


INC 


FATFLG 



194$: CKLOOP 



jLOOP IF SELECTED 



TRAP 



1 

iREAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CX5T0) 
I 

iPICK UP XSTO 
I SET UP EXPECTED 
jSFT BOT BIT IN EXPECTED 
iDOES EXP - REC'O 
I BR. IF EQUAL (OK) 
tBUMP COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 



MOV 


T26BFR*6,R1 


MOV 


R1,R2 


BIS 


♦BIT1,R2 


CMP 


R1.R2 


BEQ 


196$ 


INC 


FATFLG 



ERRHRD ERRNO , T26B0 T , EXPREC 



C$ERHRD 
751 
RDERR 
PKTS3R 

C$CLP1 



C$ERHRD 
732 

T26UNG 
EXPREC 

C$CLP1 



TRAP 


C$ERHRD 


.WORD 


733 


.WORD 


T26RWN 


.WORD 


PKTSSR 



C$CLP1 



C$ERHPO 

734 

T26B0T 



14 



ISV? - HARDWARE TESTS 1-^8 
TEST 6: REREADS 



8557 

8558 
P5S9 
C560 
8561 
856^ 
8565 
8564 

8566 
8567 
8568 
056^ 
85 70 
85 71 
8572 
85 73 
8574 



8^75 
a576 
8577 
8578 
6579 
8580 
8581 
8582 
8585 
0584 
8585 
8586 
8587 
8586 
8589 
8590 
8591 
8592 
8595 



8594 
8595 
8596 
8597 
8593 
8590 
8600 
8601 
6602 
8605 
8S04 
8605 
8606 
8607 



070554 
070556 
070556 
070560 



070562 
070566 
070572 
070574 
070576 
070602 
070604 
070604 
070(^04 
07Ct>04 
070606 
070614 
070616 
070622 



70622 
070622 
070622 
070624 
070626 
070652 
070636 



07064P 
070646 
070650 



015574 

104406 
010502 



012703 
0C47J7 
010203 
005y::i 

02:^327 

001210 



Cr!5727 
iJ5402 
004737 



10440,-' 
005005 
■:04737 
OC»757 
004757 
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196$: CKLOOP 

MOV R3.R2 



5EQ 254 



oooooi 

010366 



177777 



00c^212' 
017104' 



000017 



74620 
tr;47i2 
074754 



004757 011.674' 

105407 

005v?37 0022X2' 



.WORD 
iLOOP IF SELECTED 

TRAP 
(SAVE R3 FOR A MOMENT 



EXPREC 
CtCLPl 



I 

(ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 

iBIT 15 SETS DIRECTION - O-FQRWARD 1-REVERSE 

I 

I 4i4>4^*4^4i 4> Jft 4>* <f *4> ^^^^^ 4^ * 4> *4> 4i 4i<t( 4i4i4i 4t 4> 4i 4i 4^ 4i 4* 4i4i<^4>4i4>*4t« ****** ****** ****** 4***41 

I SPACE ONE RECORD 

;CALL SPACE ROUTINE 
(RESTORE R3 
I BUMP COUNTER 

I END OF COMMAND BUFFER YET 
J MORE COMMANDS KEEP GOING 



200$ 



MOV 


C1,R3 


jsn 


PC, SPACE 


MOV 


R2,R3 


TST 


(R3)* 


CMP 


CR3).ftl77777 


BNE 


150$ 



ENDSUe 



CMP 
BLO 
JSR 



FAVFLG.OIS. 

999$ 

PC.CKOROP 



J >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10117: 

TRAP C$ESUa 
lis ERROR COUNT AT 25 
iBR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 



999$: 

I • 

;TEST 6, SUB'^Er ; 

I 

(VERIFIES THAT ; ..' PREVIOUS WITH CPP-O (SPACE 

(REVERSE, READ hORWARO) AND REREAD PREVIOUS WITH OPP-1 

((READ REVERSE, SPACE FORWARD) ISSULD WHEN THE TAPE 

iPOSITIONEO AT BOT CAUSE FUNCTION REJECT TERMINATION 

(WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 

I 

( 

1 

i - 

BGNSUB ,>>>>>>>>>>>> BEGIN SUBTEST >>>>>*>>>>>> 

T6.14: 

TRAP C$BSUB 
CLR R5 (CLEAR TEST COUNTER 

JSR PC,T26REST (SET COMMAND PACKET 

JSR PC.T26RT2 (SET UP OTHER COMMAND PACKET 

JSR PC,T26RT3 (SET UP OTHER COMMAND PACKET 

)* *********************************** *****^«*4,«4,* A* 4,*4,**4,44,4,^4,*4i 4,^ 4, 

(ISSUE CONTROLLER "SOFT" INITIALIZE CARRY BIT CLEAR IF ERROR 
( 

)4i*jti**4i««******4(**«*****«******«******************************«**«j, 



JSR PC.SOFINIT 
BC5 20$ 
INC FATFLC 



(DO INITIALIZE ON CONTROLLER 
(BR IF INIT WAS OK 
(BUMP COUNT 



J4 



TSV7 - HARDWAm: Tt :TS 1-3 
TEST 6: Pcr^EWJS 



MACRO M1113 Ol-FEB-64 17:54 



SEQ 255 



6611 
8612 



8613 
6614 
6615 
8616 
8617 
toie 
8619 
6620 
8621 
8622 
6623 
8624 
8625 
8629 
8630 



8631 

8632 
8633 
8634 
8635 
8636 
8637 
8638 
86^9 
6640 
6641 
6642 

8644 
8646 



8649 

8650 
8651 
8652 
8653 
8654 
8655 
8656 
8657 
8658 
8659 



070654 
07065S 
0706^6 
0706i-0 
C706<-e 
0706*. 4 
0706c 6 



C ..;001 

i 04455 
001537 
005642' 
CU734' 
13737 



070fi**4 Or?704 



002172' 
071700' 



071720' 20$: 



070700 
07)704 
070706 

070 ■*:.;■ 

0V0714 
07071^ 
070716 
070720 
071722 
070724 
070724 



:.,V5737 
(.0340/ 
''05237 
OiOOOl 

! J4456 
t J1340 
K ^^^046' 
VI 1.734' 

i."A406 



oio'r..:'* 

002212' 



070726 
070732 
07072-. 
070742 
070744 
070746 
070752 
070752 
070754 
070756 
070760 
070762 
070762 



004737 
016501 
012702 
103407 
010004 
005237 

104456 
001541 
073364 
011746 

104406 



C10714 
00C002 
000200 



002212 



070764 
070770 
070772 



013701 071730 

010102 

052702 000002 



MOV RO.Rl 

ERROF ERRNO . SFIERR , SFIMSG 



MOV UNITN,T26DSW 
MOV *T26PACKET.R4 



iCONTENTS OF TSSP REGISTER 

(FATAL ERROR TSSR WAS NOT OK 

TRAP CtEROF 
.WORD 735 
.WORD SFIERR 
.WORD SFIMSG 

I SET UP UNIT NUMBER 

(SUBROUTINE NEEDS PACKET ADDRESS 



I 

jWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHfl) 
t 



JSR PC.WRTCHR 

8CS 25$ 

WZ FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



(ISSUE WRITE CHARACTERISTICS 
(BR» IF COMMAND ISSUED OK 
I BUMP COUNi 

(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 

TRAP 



( 

(ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
( 



26$ 



JSR 


PC. REWIND 


MOV 


TSSR(R5),Rl 


MOV 


*SSR.R2 


BCS 


30$ 


MOV 


R0,R4 


INC 


FATFLG 



30 i 



ERRHPD ERRNO . T26RWN . PKTSSR 



CKLOOP 



(CALL TAPE REWIND COMMAND 

(GET TSSR 

(SFT Uf* EXPECTED fSSR 

iQR, IF NO PROBLEM 

(PACKFT ADDRESS SET tJP 

(BUMP COUNT 

(REWIND NOT ACCEPTED 



(LOOP IF SELECTED 



TRAP 



(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
( 

] *4'li4i*«4*4i**««4i'K4i*****«*****«4i4i*4i4«««i)k««*****«* *********** A*4i*«*««* 



MOV T26BFR*6,R1 

MOV R1.R2 

BIS <>Bin.R2 



(PICK UP XSTO 

(SET UP EXPECTED 

(SET BQT BIT IN T.XPECTED 



CSERHRO 
736 

WRTMSG 
SFIMSG 

C$CLP1 



TRAP 


CIERHRD 


.WORD 


7 37 


.WORD 


T26RWN 


.WORD 


PKTSSR 



$CLP1 



TSV7 - HARDWARE TESTS 1-6 
TEST 6: REREADS 



l<4 



MACRO M1H3 01-F-B-e4 17:54 



SEQ 256 



8660 
8661 
8662 
8666 



8667 

8668 
8669 
8670 
8671 
8672 
8673 
8674 
8675 
8676 
8677 
8678 
8679 
8680 
8681 
8682 
8683 
8684 
8685 
8686 
8687 
8688 
8689 
8690 
8691 
8692 
8603 
8694 
8695 
3696 
6607 
8698 
8702 



8703 

8704 
8705 
8706 
6707 
8 708 
8709 
8710 
8V11 
8712 



070776 
071000 
071002 
071006 
071006 
071010 
071012 
071014 
071016 
071016 
071020 
071026 
071034 
071036 



071040 
071046 



071050 
071056 
071056 
071062 
071062 
071066 
071072 
071076 
071102 
071104 
071106 
071112 
071112 
071114 
071116 
071120 
071122 
071122 



020102 
001406 
005237 002212' 

104456 
001342 

073075* 
015374' 

104406 

012737 000400 

015737 003114' 

005703 

001404 



072036 
072032 



012737 161001 
000403 



012737 141001 

012704 07203C' 

010465 000000 

004737 016150' 

016501 000002 

012702 100206 

020102 

001406 

005237 002212' 

104456 
001343 
073023' 
011746' 

104406 



CMP R1,R2 lOOtS EXP - REC'O 

BEQ 40$ »8R, IF EQUAL COK) 

INC FATFLG iBUMP COUNT 

ERRHRD ERRN0.T26B0T.EXPREC jTAPE NOT AT BOT AFTER REWIND 

TRAP CiERHRO 
.WORD 738 
.WORD T26B0T 
WORD EXPREC 
40$: CKLOOP iLOOP IF SELECTED 

^AP CJCLPl 
I SET UP RECORD SIZE IN » . .T 
I ADDRESS OF READ BUFFER 
; CHECK NUMBER OF TIMES THROUGH HERE 
(BR. IF FIRST TIME THROUGH HERE 

iREREAD.CVC-l.ACK COMMAND 
; 



MOV 


«256..T26SZ 


MOV 


FREE.T26RB 


TST 


R3 


BEQ 


50$ 



072030' 



MOV #161001, T26PK3 
BR 55$ 



I REREAD. CVC-l.ACK COMMAND 
tSKIP NEXT COMMAND 



(REREAD, ACK COMMAND 
t 

( REREAD, ACK COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

; ISSUE COMMAND 

iWAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

;SET UP EXPECTED 

iARE THEY F'^UAL 

iBR, IF OK 

(BUMP COUNT 

(TSSR INCORRECT AFTER READ DATA 

TRAP CiERHHD 
.WORD 739 
.WORD T26WDE 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 



072030' 


50$* 
55$: 


MOV 


*141001.T26PK3 






MOV 


0T26PK3.R4 




65Ji 










MOV 


R4.TS0B(R5) 






J5R 


PC.WAITF 






MOV 


TS5RCR5).R1 






MCV 


*SSR!SC!BIT1;BIT2.R2 






CMP 


R1,R2 






BEQ 


75$ 






INC 


FATFLG 



75$ 



ERRHRD ERRNO , T26WDE , PKTSSR 



CKLOOP 



( 

(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
* 



071124 
071130 



013701 071730' 
010102 



MOV 
MOV 



T26BFR*6.R1 
R1,R2 



iGET XSTO STATUS WORD 
iSEl UP EXPECTED 



L4 



TSV7 - HARDWMRE TfeSTS 1-8 
TEST 6: REREADS 



MACRO H1113 Ol-rEB-64 17:54 



SEQ 257 



8715 


071132 


052702 


002000 


8/14 


071136 


020102 




8715 


071140 


001406 




8716 


071142 


005237 


002212' 


8720 


071146 








071146 


104456 






071150 


001344 






071152 


072154' 






071154 


015374- 




8721 


071156 








071156 


104406 




8722 


071160 


005103 




8723 


071162 


001261 




8724 


071164 
071164 








071164 


104403 




8725 


071166 


023727 


002^12' 000017 


6726 


071174 


103402 




8727 


071176 


004737 


0;.7104' 


8728 


071202 






8729 








8730 








8731 








8732 








8733 








8734 








8735 








8736 








8737 








8738 








8739 








8740 








8741 








8742 








8743 








B744 


071202 
071202 








071202 


104402 




8745 


071204 


005037 


072060' 


8746 


071210 


004737 


074620' 


8747 


071214 


004737 


074712' 


8748 


071220 


004737 


074754' 


8749 








8750 








8751 








87^2 








8753 








8754 








8755 








8756 


071224 


004737 


015674' 


6757 


071230 


103407 




8758 


071232 


005237 


002212' 


8762 


071236 


010001 




8763 


071240 








071240 


104455 






071242 


001345 






071244 


003642' 





BIS *BIT10.R2 

CMP R1,R2 

BEQ 1701 

INC TATKLG 

ERRHRD ERRNO » T26NEF , EXPREC 



170$! CKLOOP 

COM 
BNE 
ENDSUB 



iSET THE NEF BIT 






lARE THEY EQUAL 






iBR, IF EQUAL (GOOD) 






(BUMP COUNT 






iNEF SHOULD BE SET 








TRAP 


CIERHRO 




.WORD 


740 




.WORD 


T26NEF 




.WORD 


EXPREC 



999$: 



CMP 
BLO 

JSR 



R3 
26$ 



FATFLG.015 
999 J 
PC.CKOROP 



TRAP C$CLP1 
; RESET THE SWITCH 
J BR. IF FIRST TIME THROUGH HERE 



L10120: 

TRAP 
;IS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



c$Esue 



;TEST 6, SUBTEST 15 

jVERIFIES THAT REREAD PREVIOUS WITH OPP-1 (SPACE 
J REVERSE. READ FORWARD) AND REREAD PREVIOUS WITH OPP-1 
((READ REVERSE. SPA':E FORWARD) ISSUED WHEN THE TAPE 
iPOSITIONED JUST BEFORE THE FIRST RECORD ON TAPF CBUT 
(NOT AT BOT) CAUSES TAPE STATUS ALERT TERMINATION WITH 
iTHE REVERSE INTO BOT (RIB) STATUS BIT SET. 



BGNSUB ;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T6.15: 

TRAP C*BSUe 
(CLEAR OUT COUNTER 
;SET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 

! ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
* 



CLR 


T26CNU 


J£R 


PC.T26REST 


JSR 


PC.T26RT2 


JSR 


PC,T26RT3 



JSR 


PC.SOFINIT 


(DO INITIALIZE ON :ONIROLLER 




BCS 


20 » 


(BR IF INIT WAS OK 




INC 


FttTFLG 


(Bi MP COUNT 




MOV 


RC.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO. SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OW 








TRA'^ 


CiERDF 






.WJRD 


741 






.WORD 


SFIERR 



M4 



TSV7 - HARDWARE TESTS 1-8 
TEST 6; REREADS 



8764 
8765 
8766 
8767 
6768 
8769 
3770 
8771 
8772 
8773 
8774 
8T75 
8776 
8780 
8781 



8782 

6783 
6784 
8785 
6786 
8787 
8788 
8769 
8790 
3791 
8792 
8793 
8794 
8795 
8799 



6600 

8801 
8302 
8803 
8604 
8805 
8806 
8607 
8808 
8809 
8810 
6811 
8812 
8813 
8817 



071246 011734' 

071250 013757 002172' 

071256 012704 071700' 



071262 
071266 
071270 
071274 
0712 76 
071276 
071300 
071302 
071304 
071306 
071306 



071310 
071314 
071320 
071324 
071326 
071330 
071334 
071334 
071336 
071340 
071342 
071344 
071344 



071346 
071352 
071354 
071360 
071362 
071364 
071370 
071370 



004737 010562' 

103407 

005237 002212' 

010001 

104456 
001346 
005046' 
011734' 

104406 



004737 010714- 

016501 000002 

012702 000200 

103407 

010004 

005237 002212' 

104456 
001347 
073364' 
011746' 

104406 



013701 071730' 

010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 



MACRO M1113 Ol-FEB-84 17:54 



SEQ 258 



071720' 20$: 



MOV UNITN,T26DSW 
MOV #T26PACI<ET.R4 



.WORD SFIMSG 



tSET UP UNIT NUMBER 

» SUBROUTINE NEEDS PACKET ADDRESS 



t 4t*4t*''.*4>4>4t4>'*i4i*« + <*i*4i4i'f4i'tt4i4i4i4i«4L4t4>4i4i4i*4i4*4i4i**4i*4i*****4i**4i*ik4t4>**A4i*4i**4i 



I 



WRIT'E CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



25$: 



JSR PC. WRTCHR 

BCS 25$ 

INC FATFLG 

MOV RO.Rl 

ERRHRO ERRNO , WRTMSG . S'^IMSG 



CKLOOP 



I ISSUE WRITE CHARACTERISTICS 
I BR. IF ..'OMMAND ISSUED OK 
iBUMP COUNT 

(SAVE CONTFNTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
■ WORD 
WORD 
(LOOP IF SELECTED 

TRAP 



•ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



26$ 



JSR 


PC. REWIND 


MOV 


TSSR(R5),R1 


MOV 


#SSR,R2 


BCS 


30$ 


MOV 


R0,R4 


INC 


FATFLG 



30$ 



ERRHRD ERRNO , T2*^RWN . PKTSSR 



CKLOOP 



I CALL TAPE REWIND COMMAND 

;GET TSSR 

(SET UP EXPECTED TSSR 

I BR. IF NO PROBLEM 

(PACKET ADDRESS SET UP 

iBUMP COUNT 

(REWIND NOT ACCEPTED 



iLOOP IF SELECTED 



M'jV 


T26BFR*6.R1 


MOV 


R1.R2 


BIS 


flBITl,R2 


CMP 


R1,R2 


BEQ 


40$ 


INC 


FATFLG 



CJERHRD 
742 

WRTMSG 
SFIMSG 

C$CLP1 



TRAP 


C$ERHR0 


.WORD 


743 


.WORD 


T2&RWN 


.WORD 


PKTSSR 



TRAP C$CLP1 

IrEAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
; 

(PICK UP XSTO 

(SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

jDOES EXP ■ REC'D 

tBR. IF EQUAL COK) 

J SUMP cou^^T 

;TAPE NOT AT BOT AFTER REWIND 

TRAP CfERHRD 



ERRHRD ERRNO . T26B0T . EXPREC 



N4 



TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 



8818 

8819 
8820 
88c 1 
8823 
8823 
8824 
8825 
8826 
8827 
8828 
8829 
8830 
8831 
8832 
8836 



8837 

8838 
8839 
8840 
8841 
8842 
8643 
8844 
8845 
8846 
8847 
8848 
8849 
8850 
ti'^Sl 
8855 



8856 

8857 
8858 
8859 
8860 
8861 
88S2 
8663 
8864 
8865 
8866 



071372 
071374 
071376 
071400 
071400 



071402 
071406 
071412 
071414 
071420 
071422 
071426 
071426 
071430 
071432 
071434 
071436 
071436 



071440 
071444 
071450 
071452 
071456 
071460 
071464 
071464 
071466 
071470 
071472 
071474 
071474 
071476 
071504 
071510 



001350 
073075 
015374 

104406 



012703 000001 

004737 010366' 

103411 

016501 000002 

010004 

005237 002212' 

104456 
001351 
073023' 
011746' 

104406 



012703 100001 

004737 010366' 

103411 

016501 000002 

010004 

005237 002212' 

104456 
001352 
073023' 
011746' 

104406 

013737 003114' 
005737 072060' 
001404 



MACRO M1113 Ol-FEB-84 17:54 



072032' 



40$: C'<L00^ 



.WORD 
.WORD 
.WORD 



TRAP 

! ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
iBIT 15 SETS DIRECTION - 0-FORWARO 1-REVERSE 

t 



744 

T26B0T 

EXPREC 

CJCLPl 



75$ 



MOV «000001,R3 

JSR PC. SPACE 

BCS 75$ 

MOV TSSR(n5),Rl 

MOV R0.R4 

INC FATFLG 

ERRHRD ERRNO . T26WDE . PKTSSR 



CKLOOP 



iSET UP SPACE FORWARD 1 RECORD 

(ISSUE SPACE COMMAND 

iBR. IF OK 

;GET STATUS DATA 

tGET PACKET ADDRESS 

;BUMP COUNT 

jTSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 745 
.WORD T26W0E 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP C$CLP1 



MOV 


0100001. R3 


JSR 


PC. SPACE 


BCS 


175$ 


MOV 


TSSR(R5).R1 


MOV 


R0,R4 


INC 


FATFLG 



ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
(BIT 15 SETS DIRECTION - 0-FORWARD 1-REVERSE 

i 

j******4i*******************4t*****4>********Jti****4>****«****4i***4i****j«i 

;SET SPACE REVERSE 1 RECORD 

I ISSUE COMMAND 

iGO ON IF ALL IS WELL 

;GET TSSR CONTENTS 

;SET UP EXPECTED C^ACKET CONTENTS) 

;BUMP COUNT 

(TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRO 
. WORD 746 
.WORD T26WDE 
.WORD PKTSSR 
175$: CKLOOP iLOOP IF SELECTED 

TRAP C$CLP1 
I ADDRESS OF BUFFER 
(CHECK FOR TIMES THROUGH HERE 
(BR. IF FIRST TIME THROUGH 

;*************************4L4i4i>^*4.4i«***4.4i*4i*4i*4t%4i4i4^/4t4i^4,44i4,^4i4i44i4t^4,4i 

(REREAD (PREVIOUS). IE. ACK.OPP-1 CMD. 

• **4i****»*«j|i*wjK*4j|i*4*a4i** . , >**4*****4i****.*********u*A4i****4i**4>.****jK 



ERRHRD ERRNO , T26WDE . PKTSSR 



MOV 


FREE.T26RE 


TST 


T26CNU 


BLQ 


176$ 



SEQ 259 



B5 



TSV7 - HARDWARE TESTS l-fl 
TEST 6: REREADS 



MACRO M1115 Ol-FEB-84 I7t54 



SEQ 260 



8S67 
8d68 
6869 
8870 
6871 
8872 
8875 
8874 
8875 
6876 
8877 
8878 
8879 
6880 
6861 
6882 
6885 
8864 
6885 
6889 



6890 

6891 
6892 
8695 
6894 
6895 
6696 
8900 



8901 

6902 
8905 
8904 



6905 
6906 
6907 
6908 
6909 
8910 
69U 
6912 
6915 
8914 
8915 
8916 



071512 
071520 



071522 
071530 
071530 
071554 
071540 
071544 
071550 
071554 
071556 
071560 
071564 
071564 
071566 
071570 
071572 
071574 
071574 
071576 
071602 
071604 
071610 
071612 
071614 
071620 
071620 
071622 
071624 
071626 
071630 
071630 
071632 
071636 
071640 
071640 
071640 
071642 
071650 
071652 
071656 



071656 
071662 
071664 
071670 
071670 
07U/0 



012757 161001 072030 
000405 



MOV 0161001. T26PK3 
BR 1761 



iREREAD (PREVIOUS), IE, ACK,OPP-l CMO. 
I SKIP NEXT C0MMA^40 



iREREAD ,ACK,0PP-1 COMMAND 



012737 141001 072030 

012704 072030' 

010465 000000 

004737 016150' 

016501 000002 

012702 100204 
020102 
001406 

005237 002212* 

104456 
001353 
073025' 
011746' 

\04406 

013701 071736' 

010102 

052702 000001 

020102 

001406 

005257 002212* 

104456 
001354 
072154' 

015374' 

104406 

005137 072060' 

001224 



X04405 

023727 002212' 000017 

105402 

004737 017104- 



1 


AA^ A AAA ^ A 










176»: 


MOV 


*141001,T26PK3 


iREREAD ,ACK,0PP-1 COMMAND 




178$ I 














MOV 


•T26PK3.R4 


iSET UP R4 WITH PACKET 


ADDRESS 






MOV 


R4.TSDB(R5) 


1 ISSUE COMMAND 








JSR 


PC.WAITF 


(WAIT FOR SSR TO SET 








MOV 


7SSR(R5),R1 


iGET TSSR CONTENTS 








MOV 


#SSR!SC!BIT2,R2 


tSET UP EXPECTED 








CMP 


R1.R2 


(ARE THEY EQUAL 








BEQ 


160$ 


jBR. IF OK 








INC 


FATFLG 


iBUMP COUNT 








ERRHRD 


ERRN0,T26W0E, PKTSSR 


iTSSR INCORRECT AFTER 


READ DATA 
TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
747 
T 26 WOE 
PKTSSR 


180$ I 


CKLOOP 




iLOOP IF SELECTED 


TRAP 


C$CLP1 




MOV 


T26BFR.14,RI 


iGET X3T3 STATUS WORD 








MOV 


R1,R2 


iSET UP EXPECTED 








BIS 


0eiTO,R2 


iSET THE NEF BIT 








CMP 


RI.R2 


lARE THEY EC*JAL 








BEQ 


190$ 


iBR, IF EQUAL (GOOD) 








INC 


FATFLG 


iBUMP COUNT 








ERRHRO 


FRRN0,T26NeF,EXPREC 


iNEF SHOULD BE SET 


TRAP 
.WORD 
.WORD 
.WORD 


CtERHRD 
746 
T26NEF 
EXPRFC 



004737 016360' 
103002 

000137 055474* 



104432 



190$ t CKLOOP 

COM 
BNE 
ENOSUB 



CMP 
BLO 
JSR 

999$ t 

1 

» 

1 



163$ 



JSR 
BCC 

JMP 

EXIT 



T26CNU 
26$ 



FATFLG, 015. 
9991 

PL.CKDROP 



PC.TST'wOQP 

163$ 

T26LQ0P 

TST 



TRAP C$CLP1 
iScT SWITCH THE OTHER WAY 
iBR, IF FIRST TIME THROUGH 
I >> v>>^^%^ vki END SUBTEST >>>>>>>*>*>> 

L10121J 

TRAP C$ESUe 
lis ERROR COUNT AT 25 
|8R, IF LESS THAN 25 
I TRY TO DROP THE UNIT 



iDO WE NEED TO ITERATE TEST 
I BR, IF NO LOOP REQUIRED 
lEXECUTE AGAIN 



lALL DONE THIS TEST 



TRAP 



Ciuxr 



C5 



TSV/ - HARDWARF 
TEST bj REREAB 


^ TESTS 1-0 
S 


07lb72 


003112 


8917 




8918 




8919 




8920 




8922 07167<\ 




8924 071700 




8925 071700 


014004 


8926 071702 


071710' 


8927 071704 


ooooco 


8^28 071706 


000012 


8929 071710 




8930 07X710 


071722' 


8951 07.712 


000000 


8932 071714 


000024 


8955 071716 


000000 


8934 071720 


OOOOOO 


8935 071722 




8936 




8937 




8956 




8940 072004 




8^2 CT2010 




8945 072010 


100006 


8944 072012 


072040' 


8945 072014 


OOOOOO 


8946 072016 


000006 


8947 




8949 072020 




8951 072030 




8952 072030 


140005 


8955 072032 




8954 072032 


003114' 


8955 072034 


OOOOOO 


8956 072036 


OOOOOO 


8957 




8958 




8959 




8960 




8961 072040 




8962 072040 


010 


8963 072041 


200 


8964 072042 


OOOOOO 


8965 072044 


OOOOOO 


8966 




8967 




8968 




8969 




8970 




8971 072046 


140001 


8972 072050 


141401 


8973 072052 


161401 


8974 072054 


177777 


8975 




8976 




6977 07205G 


OOOOOO 


89V8 072060 


OOOOOO 
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I ♦ 



1 LOCAL 


STORAGE 


FOR THIS TEST 


1 " 


.BLKB 


10-<.-TSV2£7> 


T26PACKET: 






.WORD 


14004 




.WORD 


T260ATA 




.WORD 







.UORD 


10. 


T26DATA 


* 






.WORD 


T26BFR 




.WORD 







.WORD 


20. 




.UORD 





T26DSW: 


.WORD 





T26BFR1 


.8LKU 


25. 


iWRITE 


SUBSYSTEM MEMORY COMMAND PACKET 


t 


.BLKB 


10-<.-TSV2£7> 


T26PK2J 








.WORD 


100006 




.UORD 


T26BF2 




.WORD 







.WORD 


6. 




.BLKB 


lO-<.-TSV267> 


T2bPK3i 








.UORD 


140005 


T26RB! 






T26WB1 


.UORD 


FREE 




.UORD 





T26SZ! 


.UORD 





» 


.EVEN 




1 
T268F2: 






T26BS0: 


.BYTE 


10 


T268Sli 


.BYTE 


200 


T26S2! 


.WORD 





T26S5i 


.UORD 






.Ev:--.-. 
iTAPF MOTIOS PACKET COMMAND VALUES 



T2fHN! 



.UCRD 
.WORD 
.WORD 
.UORD 



T26CNT: .WORD 
T26CNU: .WORD 



140001 
141401 
161401 

177777 








SEQ 261 



.WORD L10102-. 



I COMMAND PACKET FOR TEST 

(WRITE CHARACTERISTICS COMMAND. WITH CVC-1, ACK 

I ADDRESS OF CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 
ICHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUF'^ER 

I SELECT DRIVE 
iMESSAGE BUFFER 



(WRITE SUB STS MEM COMMAND. AND ACr 
lADORESS OF SELECT BLOCK DATA 

iSIZE OF DATA PACKET 



I REREAD COMMAND. CVC-l AND ACK 
I ADDRESS OF WRITE BUFFER 
(SIZE OF BUFFER (EXTENT) 



(BSELO AREA 
iBSELl AREA 
(SEL 2 AREA 
I DATA AREA 



(READ DATA 
(REREAD NEXT OPP-0 
iREREAP NEXT OPP-1 
lENO OF DATA 



(TAPE RECORD COUNTER STORAGE AREA 
I TAPE RECORD COUNTER STORAGE AREA 



D5 



TSy7 - HAR 
TEST 6t R 



t.rtOs 



07S0M 



8979 

8960 072062 

8981 

8982 

8985 

8964 

8985 

8986 

8987 

8968 

8989 

8990 

8991 

8992 

8995 

8994 

8995 

8996 

8997 

8998 

8999 

9000 

9001 

9002 

9003 

9004 

9005 

9006 

9007 

'K)08 

W09 

9010 

9011 

9012 

9013 

9014 

9015 

9016 

9017 

9016 

9019 

9020 

9021 

9022 

9023 

9024 

9025 

9026 

9027 

9028 

9029 

9030 

9051 

9032 

9033 

9054 

9035 



072066 
072154 
072236 
072305 
072402 
072477 
072561 
072631 
072706 
072767 
073023 
073075 
073142 
073230 
073307 
073364 
073433 
075S06 
0/5555 
073630 
073720 
075775 
074046 
074121 
074210 
074272 
074354 
074442 
074530 
074607 



074620 
074620 
074624 
074630 
074634 
074640 
074642 
074646 



TESTS 1-0 

000000 
000000 



MACRO M1113 Ol^FEB-84 17:54 

T*f6RSZi .WORD 
T26DLYI .WORD 



SEQ 262 



124 
122 
124 
122 
122 
120 
122 
124 
lU 
122 
124 

124 

lOA 

12c 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
104 
122 



141 
105 
123 
105 
105 
117 
111 
123 
154 
105 
125 
141 
141 
105 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
141 
145 



160 
122 
123 
122 
122 
123 
102 
123 
154 
122 
123 
160 
164 
122 
12?. 
167 
115 
123 
151 
123 
123 
103 
102 
1X1 
141 
141 
163 
141 
164 
162 



012701 
012721 
012721 
005021 
012721 
012721 



071700' 

140004 

071710' 

000012 
071722* 



I RECORD STORAGE SIZE AREA 
iDELAY COUNTER AREA 



I LOCAL 
I - 



TEXT MESSAGES FOR TEST 



T26WNG 

T.?6NEF 

T26RDr 

T26RRF 

T26RRG 

T26SC: 

T26i.0R 

T26W0F 

T26L0Q 

T26SSR 

T26U0E 

T2680T 

T260TA 

T26E0T 

T26TMi 

T26RWN 

T26RNC 

T26AM3 

T260rL 

T26WD0 

T26J0C 

T26VCK 

T26eA: 

T26USS: 

T26L0NI 

T26L0P: 

T26PeP: 

T26TnL: 

T26NEQt 

TST.^blDt 



.ASCIZ 
.ASCIZ 
.ASCI2 
. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIJ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



T«p# Position Incorrect Aft«r REREAD Pr«viouo (OPP-1)' 

Rr.READ PREVIOUS. At BOT, FaiUd To Set NEF CXSTOV 

TSSR Incorroct Aft«r READ DATA Commond' 

REREAD Pp«viout» (Spftc« Rttvttr«« . R«ad Forward) Corrmnnd Fulled' 

REREAD Pr«viou» CR«»d R«v«r««, Tpec* Forward) Command Failed' 

POSITION CSp»c« CofMvand) F*;Ud. TSSR Not Correct' 

RIB NOT SET AF'TcR READ REVERSE INTO BOT' 

TSSR Not Correct Aft«r Illegal Hod« Bite Set' 

Illaoal rioda Bit*. Failed To Sat ILC Bit In XSTO' 

REREAD COHMANO Not Accepted' 

TSSR Not Corr^t Aftar WRITE DATA Co^nmand' 

Tape Not At 30T After REWIND Coflimund' 

Data Written To Tapa Not Equal To Data Read From Tape' 

REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

TSSR Not Correct After REREAD COMMAND Reject' 

Rewind (POSITION) Coeimand Not Accepted' 

RAM Error. Correct Data Pattern Not In Ram' 

TSSR Init. Failed After REREAD COMMAND' 

Drive 7 SeUct Failed To Set "OFL" In TSSR' 

REREAD DATA Conwnand. SWB Bit Set' 

REREAD DATA Command' 

VCK In Meaaaoe Buffer' 

REREAD DATA Command' 

Cottimand Not Accepted (RAM Read)' 
To Set RLL Bit In XSTO' 
To Set RLS Bit In XSTO' 



TSSR Not Correct After 
TSSR Not Correct After 
CVC Set. Didn' ' t Reaet 
TSBA Not Correct After 
'JRITE SUBSYSTEM MEMORY 
Reading Long Record Failed 
Reading Long Record Failed 



Reaid^jal Byte Count Incorrect After Short Record R^ad' 
Reading Long Record Failed To Give Tape Status Alert' 
Data REREAD from Tape Not Correct, After SWB-l' 
ASCI/ 'Rereads' 



t 

iROUTINE TO RESTORE COMMAND PACKET 
I WRITE SUBSYSTEM MEMORY COMMAND 

t ■ 



TO START-UP (DEFAULT) VALUES 



T26REST: 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 



#T26PACKET.Rl 

dl40004,(Rn» 

#T26DATA.CR1)» 

(Rl)v 

010. .(RD* 

0T26BFR.<Rl)* 



(SAVE THE REGISTERS 

iSTART OF THE PACKET 

(WRITE SUBSYSTEM MEM. WITH ACK . CVC 

I ADDRESS OF CHARAISTICS DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN B>TE5 

1 ADDRESS 0*^ MESSAGE BUFFER 



E5 



TSV7 - HARDWARE 


TESTS 1 


-8 MACRO t- 


TEST 6: 


REREADS 




9056 


074652 


005021 




9037 


07«i654 


012721 


000024 


9058 


074660 


005021 




9039 


074662 


012711 


000000 


9040 


074666 


012702 


000030 


9041 


074672 


012762 


177777 071722' 


9042 


074700 


005742 




9043 


074702 


020227 


000000 


9044 


074706 


001371 




9045 


074710 


000207 




9046 








9047 








9048 


074712 






90A9 


074712 






9050 


074716 


012701 


072010' 


9051 


074722 


012721 


140006 


905? 


074726 


012721 


072040' 


9053 


074732 


005021 




9054 


074734 


012721 


0C0006 


9055 


074740 


005021 




9056 


074742 


012701 


072040' 


9057 


074746 


005021 




9058 


074750 


005011 




9059 


074752 


000207 




9060 


074754 






9061 


074754 






9062 


074760 


012701 


072050' 


9065 


074 764 


012721 


000000 


9064 


074770 


012721 


000000 


9065 


074774 


005021 




9066 


074776 


012711 


000000 


9067 


075002 


000207 




9068 


075004 
0750O4 








075004 


104401 




9069 








9070 








9071 








9072 








9073 








9074 








9075 








9076 








9077 








9078 








9079 








f>060 








9081 








9082 


075006 
075006 






9085 


075006 


012737 


006256' 002170' 


9084 


075014 


005057 


003124' 


9085 


075020 


004737 


01717^' 


9090 


075024 


012700 


104643' 


9091. 


075050 


004737 


016412' 


9092 


075034 


012737 


000005 002206 


9093 


075042 


005037 


101706 
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SECI 263 



64$; 



T26RT2; 



T26RT3; 



CLR 
MOV 
CLR 
MOV 
MOV 
MOV 
TST 
CMP 
BNE 
RTS 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

CLR 

CLR 

RTS 

SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

RTS 

ENOTST 



(RD* 

*20..(R1)^ 

CRD* 

00, CRD 

024.. R2 

0177777, T26BFR(R2) 

-CR2) 

R2.00 

64$ 

PC 



0T26PK2,R1 

0140006, (RD* 

0T26BF2,CRl)t 

CRD* 

06. .CRD* 

(Rl)» 

0T26BF2,R1 

(Rl)t 

(Rl) 

PC 



(LENGTH OF MESSAGE BUFTER 

(SELECT DRIVE ZERO (0:i 

(NUMBER OF LOCATIONS TO BE CLEARED 

lALL ONES TO MESSAGE BUFFER 

(NEXT LOCATION 

(CHECK FOR END OF LOOP 

(KEEP GOING UNTIL DONE 

(RETURN 



(SAVE THE REGISTERS 

(START OF THE PACKET 

(WRITE SUBSYSTEM MEM. WITH ACK,CVC-1 

(ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

(POINT TO DATA SEL AREA 



(RETURN 



0T26PK3,R1 
00,CR1)» 
00, CRD* 
(RD* 
00, (Rl) 
PC 



(SAVE THE REGISTERS 
(START OF THE PACKET 
(WRITE SUBSYSTEM MEM. WITH 
(ADDRESS 0^ DATA BLOCK 
(EXTENDED ADDRESS 
(SIZE OF DATA BLOCK IN BYTES 
(RETURN 



ACK, 



L 10102: 



TRAP 



CSETST 



.SBTTL TEST 7: WRITE DATA RETRY 



THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMNAM) (SPACE REVERSE, ERASE, WRITE C UA) 



THE TEST CONSISTS OF THE FOLLOWING 5 SUBTESTS 



B6NT5T 



MOV 


0EPR"i2.EPRTjW 


CLR 


KTENABLE 


JSR 


PC, K TOFF 


MOV 


OTST27ID.RO 


JSR 


PCTSTSETUP 


MOV 


05,L00PCNT 


CLR 


T27CNT 



T7;: 
(SECONDARY ERROR MESSAGE 
(TURN OFF KTli 

(TURN KTll BACK OFF IF THERE 
(ASCII MESSAGE TO IDENTIFY TEST 
(On INITIAL TEST SETUP 
(PERFORM 5 ITERATIONS 
(CLEAR TAPE RECORD COUNTER 



F5 



TSV7 - HARDWARE TESTS 1-8 
TEST 7i WRITE DATA RETRY 



9094 
9095 
9096 
9097 
9098 
9099 
9100 
9101 

9ioa 

9103 
9104 
9105 
9106 
9107 
9108 



9109 
9110 
9111 
9112 
9113 
9114 
9115 
9116 
9117 
9118 
9119 
9120 
9121 
9122 
9123 



075046 
075046 
075046 
075046 
075050 
075054 
075060 
075064 
075072 



9124 
9125 
9126 
9130 
9131 



9132 
9133 
9154 
9135 
9136 
9137 
9138 
9139 



075076 
075102 
075104 
075104 
075110 
075112 
075116 
075120 
075124 
075126 
075132 
075134 
075140 
075142 
075146 
075150 
075150 
075152 
075154 
075156 
075160 
075166 



104402 
004737 
004737 
004737 
012737 
005037 



004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
001275 
0O3642 

011734 
013737 
012704 



104664 • 

104756' 

105020' 

176750 

101706' 



015674' 

000250 

002116' 

177772 

177756 

101712' 

002212' 
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SEQ 264 



101712' 



iTEST 7, SUBTEST 1 
I 

i VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
(THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
iTERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF) 
;ERR0R BIT SET. 

* 
I • 

T27L00PJ 



BGN5UB 



JSR 
JSR 
JSR 
MOV 
CLR 



PC,T27REST 

PC,T27RT2 

PC,T27RT3 

*65000.,T27DLY 

T27CNT 



t >>>>>>>>>>5 > BEGIN SUBTEST >>>>>i>^>v>> 

T7.1: 

TRAP C*BSUe 
iSE: COMMAND PACKET 
iSLT UP OTHER COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 
(SCT UP DELAY COUNTER 
J CLEAR COUNTER 



J ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
I 

J **«*«4i4i***«4i4t«4t**********4i****4t*«4*4i*4i4i4>«********** *********** *ih*4i 



10$ 



JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



DEC 


T27DLY 


BNE 


10$ 


INC 


FATFLG 


MOV 


RO.Rl 


ERRDF 


ERRNO.SFIERR.SFIMSG 



002172' 
101530' 



101550' 20$ 



MOV UNITN.T27DSW 
MOV 0T27PACKET,R4 



iDO INITIALIZE ON CONTROL! ER 

;BR IF INIT WAS OK 

I DELAY ABOUT .25 SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

J BUMP COUNTER 

(BR, IF COUNTER NOT DONE 

I BUMP COUNT 

(CONTENTS OF TSSR REGISTER 

i FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

(SET UP DRIVE NUMBER 

(SUBROUTINE NEEDS PACKET ADDRESS 



#250, (PC) ♦ 



LJOLY.CPO* 



-6CPC) 

. -4 

-22(PC) 

.-20 



C$ERDF 
701 

SFIERR 
SFIMSG 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
* 



G5 



TSV7 - HARDWARE TESTS 1-6 
TEST 7: WRiTf DATA RETRY 



9140 
9141 
9142 
9143 
9147 
9148 



9149 

9150 
9151 
915? 
9153 
9154 
9155 
9156 
9157 
9158 
9159 
9160 
9164 



9165 

9166 
9167 

9168 
9169 
9170 
9171 
9172 
9173 
9174 
9175 
9176 
9177 
9178 
9182 



9183 

9184 
9185 

9186 
9187 
9188 
9189 
9190 



075172 
075176 
075200 
075204 
075206 
075206 
075210 
075212 
075214 
075216 
075216 



004737 010562' 

103407 

005257 002?12' 

010001 

104456 
001276 
005046' 
011734' 

104406 



0752':0 
075224 
075226 
075230 
075234 
075234 
075236 
075240 
075242 
075244 
075244 



004737 010714' 

10.^407 

01-J004 

005237 002212' 

104456 
001277 
103065' 
011746' 

104406 



075246 
07525? 
075254 
075260 
075262 
075264 
075270 
075270 
075272 
075274 
075276 
075500 
075300 
075302 
075310 



013701 101S60' 

010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001500 
102561' 
015374' 

104406 

012757 000400 

013737 003114' 
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101666' 
101662' 



25i: 



JSR PC.WRTCHR 

BCS 25i 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



I ISSUE WRITE CHARACTERISTICS 
I BR, IF COMMAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TS5R 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
I LOOP IF SELECTED 

TRAP 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



;o$: 



JSR PC. REWIND 

BCS 30$ 

MOV R0.R4 

INC FATFLG 

ERRHRD ERRNO, T27RWN»PKTSSR 



CKLOOP 



(CALL TAPE REWIND COMMAND 

I BR. IF NO PROBLEM 

I SET UP REWIND PACKET ADDRESS 

jBUMP COUNT 

I REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 



iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 
I 

(PICK LJP XSTO 

:SET UP eXPEC'EO 
(SET dOT BIT IN EXPECTED 
J DOES EXP ■ REC'O 
iBR, IF EQUAL (OK) 
I BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.UO;iD 
40$: CKLOOP iLOOP IF SELECTED 

TRAP 
I SET UP RECORD SIZE 
(ADDRESS OF WRITE BUFFER 



MOV 


T278FR»6,R1 


MOV 


R1,R2 


BIS 


oeiTl.R2 


CMP 


R1,R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRU EkRN0,T27B0T,EXPREC 



CKLOOP 

MOV 
MOV 



#256. ,T27SZ 

FREE,T27WB 



|***;i**********A****4**************************«**.;i**********^***4t« 

(WRITE DATA r^ETRY, ACK,CVC 1 COMMAND 



C$ERHPO 
702 

WRTMSG 
SFIMSG 

C$CLP1 



C$ERHRD 
703 

T27RWN 
PKTSSR 

CtCLPl 



SEO 265 



C$ERH{-(0 
704 

T27B0T 
EXPREC 

C$CLP1 



H5 



TSV7 - HARDWARE TtSTS 1-3 
TEST 7: WftlTE DATA RETRY 
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SEQ 266 



9191 
919? 
9193 
9194 
9195 
9196 
9197 
9196 
9i99 
9^00 
9201 
9205 



9206 

9207 
920fl 
9209 
9210 
9211 
9212 
9213 
9214 
9215 
9216 
9217 
9218 
9219 
9223 



9224 
9225 



9226 
9227 
9228 
9229 
9230 
9251 
9232 
9233 
9254 
9255 
9236 
9237 
9238 
9239 
9240 
9241 



075316 
075324 
075330 
075334 
075340 
075344 
075350 
075352 
075354 
075360 
075360 
075362 
075364 
075366 
075370 
075370 



075372 
075376 
075400 
075404 
075406 
075410 
075414 
0''5414 
075416 
075420 
075422 
0:'5424 
075424 
075426 
075426 
075426 
075430 
075436 
075440 
075444 



012737 141005 101660 

012704 101660' 

010465 000000 

004737 016150- 

016501 000002 

012702 100206 

020102 

001406 

005237 002212' 

104456 
001301 
102472' 
011746' 

104406 



01370X 101560 

010102 

052702 002000 

020102 

001406 

005237 002212 

104456 
001302 
104231' 
015374' 

104406 



104403 

023727 002212' 000017 

103402 

004737 017104' 



I WRITE DATA RETRY ,ACK.CVC-1 COMMAND 

ISET UP R4 WITH PACKET ADDRESS 

(ISSUE COMMANO 

iWrtIT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

I ARE THEY EQUAL 

iBR, IF OK 

I BUMP COUNT 

iTSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 



MOV 


#141005, T27PK3 


MOV 


#T27PK3,R4 


MOV 


R4.TS0BCR5^ 


JSR 


PC.UAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR!SC!BIT1!BIT2,R2 


CMP 


R1,R2 


BEQ 


751 


INC 


FATFLG 


ERRHRD 


ERRN0,T27WDE.PKTSSR 



75$: 



CKLOOP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

(GET XSTO STATUS WORD 

1 SET UP EXPErTEO 

iSET THE NEF BIT 

(ARE THEY EQUAL 

I BR, IF EQUAL (GOOD) 

iBlJMP COUNT 

I NEF SHOULD BE SET 

TRAP 
.WORD 
.WORD 
.WORD 

TRAP 

L10123: 

TRAP 
ilS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
(TRY TO CROP THE UNIT 



MOV 


T27BFR»6,R1 


MOV 


RI.R2 


BIS 


^IT10,n2 


CMP 


R1,R2 


BEQ 


170» 


INC 


FATFLG 


ERRiiaO 


ERRN0.T27NEF,EXPREC 



170$ 



CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 



FATFLG, <>15, 

9991 

PC . CKDROP 



999*: 

I ♦ 

ItEST 7. SUBTEST 2 

i VERIFIES THAT WRITE DATA RETRY COMHANO ISSUED WHILE 
J THE TAPE IS POSITIONED BEFORE THE FIRST RECORD ON 
(TAPE (BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT 
i TERMINATION. WITH THE REVERSE INTO BOT (RIB) STATUS 
(ERROR BIT SET, 



CtERHRD 
705 

T27W0E 
PKTSSR 



CJCLPl 



CiERHRO 
706 

T27NEF 
EXPREC 

CJCLPl 
CJESUB 



TSV7 - HARDUARE TESTS 18 
TEST 7: WRITE DATA RETRY 



15 



MACRO M1U3 Ol-FEB-84 17:54 



SUQ 267 



9242 
9243 
9244 



9245 
9246 
9247 
9248 
9249 
9250 
9251 
9252 
9253 
9254 
9255 
9256 
9257 
9261 
9262 



9263 
9264 
9265 
9266 
j2k^ 
9268 
9269 
9270 
9271 
9272 
9273 
9274 
9278 
9279 



9200 

9281 
9282 
9283 
9284 
9285 
9286 
9287 
9288 
9289 
9290 
9291 
9292 
9296 



075444 
075444 
075444 
075446 
075452 
075456 



I - 



104402 

004737 104664' 

004737 104756' 

004737 105020' 



C 75462 
07L-il66 
075470 
075474 
0/5476 
075476 
075500 
075502 
075504 
075506 
075514 



004737 015674' 

105407 

0052i7 002212' 

010001 

104455 

001303 

003642' 

011754' 

013737 002172- 

012704 101550' 



075520 
075524 
075526 
075532 
075534 
075534 
/5536 
075540 
075542 
075544 
075544 



004737 010562' 

105407 

005237 002212' 

010001 

104456 
001304 
005046' 
011734' 

104406 



075546 

075552 
075554 
075556 
075562 
075566 



004737 010714' 

103411 

010004 

016501 000002 

005237 002212' 



BGNSUB 



JSR 
JSR 
JSR 



PC.T27ReST 

PC,T27RT2 

PC,T27RT3 



!>>>>>>■>>>>>> BEGIN SUBTEST >>>>^>>>>>>> 

T7.2: 

TRAP C$BSUB 
(SET COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 
: SET UP OTHER COMMAND PACKET 



(ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY GIT CLEAR IF ERROR 
I 



101550' 20$: 



JSR 


PC.SOFINIT 


I DO INITIALIZE ON CONTROLLER 




BCS 


20 » 


iBR IF iNIT WAS CK 




INC 


FATFLG 


iBUMP CO»JNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR PEGISTER 




ERftOF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.UORO 


707 






.WORD 


SFIERR 






,WORD 


SFIMSG 


MOV 


UNITN.T270SU 


(SET UP DRIVE NJM6ER 




MOV 


0T27PACKF.T.R4 


(SUBROUTINE NEEDS PACKET ADDRESS 



(WRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 
1 



25*; 



JSR PC. WRTCHR 

BCS 25$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSG . SFIMSG 



CKLOOP 



(ISSUE WftlTE CHARACTERISTICS 
(BR, IF COMMAND ISSUED OK 
(BUMP COUNT 

(SAVE CONTENTS OF TSSR 
iWPITE CHARACTERISTISC FAILED 

TRAP 
.UORD 
.UORD 
.UORD 
(LOOP IF SELECTED 

TRAP 



CIERHRD 
708 

URTMSG 
SFIMSG 

CJCLPl 



( 

•ISSUE REWIND COMMAND TO SELECTED TAPE ORiVE 
1 

(CALL TAPE REWIND COMMAND 
(BR. IF NO PROBLEM 
(SET UP REWIND PACKET ADDRESS 
(GET TSSR CONTENTS 
J BUMP COUNT 
ERRHRD ERRNO, T27RWN,PKTSSR (REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


261 


MOV 


R0*R4 


MOV 


TSSR(R5),R1 


INC 


FATFLG 



TSV7 - HARDWARE TESTS 1-8 
TEST 7i WRITE DATA RETRY 



J5 



HACRO M1H3 Ol-FEB-84 17;54 



SEQ 268 



9297 

9298 
9299 
9300 
9301 
9302 
9303 
9304 
9305 
9306 
9307 
9308 
9309 
9310 
9311 
9312 
9313 
9314 
9315 
9316 
9320 



9321 

9322 
9323 
9324 
9325 
9326 
9327 
9328 
9529 
9330 
9331 
953? 
9333 
933? 



9338 

9339 

9340 
^541 
9342 
9 3*. 3 
9344 



075566 
075570 
075572 
075574 
075576 
075576 
075600 
075604 



075612 
075620 
075694 
075630 
075634 
075640 
075644 
075650 
075652 
075654 
075660 
075660 
075662 
075664 
075666 
075670 
075670 



075672 
075676 
075700 
0/5704 
075706 
075712 
07'i712 
0/5714 
07571/S 
07'i720 
0757?2 
075722 



104456 
001305 
103065' 
011746' 

104406 

012703 000400 

013737 003114 



012737 
012704 
010357 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001306 
005103 
0U746 

104406 



004 73 7 
lOS'^ll 
016501 
010004 
00523 7 

104456 
001307 
103065 
011746 

104406 



140005 

101660' 

101666' 

000000 
016150' 
000002 
000200 



002212 



010714 
000002 
002212 



101662 



101660' 



26$; 



CKLOOP 

MCV 
MOV 



*256. ,R3 
FREE.T27WB 



TRAP CJERHRD 
.WORD 709 
.WORD T27RWN 
•WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 
I STARTING RECORD SIZE 

1 STARTING WRITE BUFFER ADDRESS 



I 

iWRITE OATA.CVC-l.ACK COMMAND 
I 

iWRITE DATA.CVC-l.ACK COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

tSET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

jWAIT FOR SSR TO SET 

tGET TSSR CONTENTS 

iSET UP EXPECTED 

jARE THEY EQUAL 

jBR, IF OK 

(BUMP COUNT 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP CiERHRD 

.WORD 

.WORD 

.WORD 

(LOOP IF SELECTED 

TRAP 



MOV 


*140005.T27PK3 


MOV 


0T27PK5,R4 


MOV 


R3.T27SZ 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


0SSR,R2 


CMP 


R1,R2 


BEQ 


281 


INC 


FATFLG 



28$ 



ERRHRO ERRNO . WRTERR , PKTSSR 



CKLOOP 



710 

WRTERR 

PKTSSR 



CJCLPl 



t ISSUE RhWIND COMMAND TO SELECTED TAPE DRIVE 
1 

(CALL TAPE REWIND COMMAND 

I BR. IF NO PROBLEM 

(GET TSSR CONTENTS 

(SET UP REWIND PACKET ADDRESS 

iB'JMP CO'JNT 

(REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 
30$: CKLOOP iLOOP IF SELECTED 

TRAP 



JSR 


PC. REWIND 


BCS 


30$ 


MOV 


T'*SR(R5),R1 


MOV 


R0.R4 


INC 


FATFLG 



ERRHRO ERRNO. T27RWN. PKTSSR 



CtERHRD 
711 

T27R»^ 
PKVSSR 

C$CLP1 



(READ MESSAGE B'JFFER EXTENDED SIATUS REGISTER ZERO (XSTO) 
t 



I<5 



TSV7 ■ HAROWARt 


TESTS 1 
DATA RET 


-6 


TEST 7: 


WRITE 


RY 


9545 








9346 


075724 


013701 


101560 


9347 


075730 


010102 




9348 


075732 


052702 


000002 


9349 


075736 


020102 




9350 


075740 


001406 




9351 


075742 


005237 


002212 


9355 


075746 








075746 


104456 






075750 


001310 






075752 


102561' 






075754 


015374' 




9356 


075756 








075756 


104406 




9357 








9356 








9359 








9360 








9361 








9362 








9363 








9364 








9365 


075760 


012703 


000001 


9366 


075764 


004737 


010366 


9367 


075770 


103413 




9368 


075772 


016501 


000002 


9369 


075776 


012702 


000200 


93 70 


076002 


010004 




9371 


076004 


005237 


002212 


9375 


076010 








076010 


104456 






076012 


001311 






076014 


104327- 






076016 


011746' 




9576 


076020 








076020 


104406 




9377 








93/8 








9379 








9380 








9381 








9582 








9383 








9384 








9385 


076022 


012703 


100001 


9386 


076026 


004737 


010366 


9387 


076032 


103413 




9388 


076034 


016501 


000002 


9389 


076040 


012702 


000200 


9390 


076044 


010004 




9391 


076046 


005237 


002212 


9395 


076052 








076052 


104456 






076054 


001312 






076056 


104J27' 






076060 


011746' 




9396 


076062 







MACRO M1113 Ol-FEB-64 17:54 



SEQ 269 



MOV 


T27BFR*6.R1 


MOV 


R1,R2 


BIS 


#BIT1,R2 


CMP 


R1.R2 


BEQ 


40» 


INC 


FATFLG 



40$ 



ERRHRD ERRNO , T27B0T . EXPREC 



CKLOOP 



(PICK UP XSTO 

I SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

(DOES EXP - REC'D 

iBR, IF EQUAL (OK) 

I BUMP COUNT 

J TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORO 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



CJERHRD 
712 

T27B0T 
EXPREC 

CJCLPl 



t 

I ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF HECOROS 

iBIT 15 SETS DIRECTION - 0-FORWARD 1 -REVERSE 

J 

1 PARAMETER SPACE FORWARD 1 RECORD 

(CALL SPACE RECORDS ROUTINE 

I BR, IF NO ERRORS 

;GET TSSR CONTENTS 

iSET UP EXPECTED 

J SET UP REWIND PACKET ADDRESS 

(BUMP COUNT 

I SPACE RECORDS COMMAND FAILED 

TRAP C^ERHRD 
.WORD 713 
.WORD T27SCF 
.WORD PKTSSR 
50t: CKLOOP jLOOP IF SELECTED 

TRAP CiJCLPl 



MOV 


*1.R3 


JSP 


PC . SPACE 


BC5 


50 » 


MOV 


TSSftCR5),Rl 


MOV 


0SSR,R2 


MOV 


R0.R4 


INC 


FATFLG 



ERRHRD ERRNO . T27SCF , PKTSSR 



ISSUE SPACE RECORDS COMMAND - VALUE IN fl3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - O-FORWARD 1 -REVERSE 

(PARAMETER SPACE REVERSE 1 RECORD 

(CALL SPACE RECORDS ROUTINE 

(PR, IF NO ERRORS 

(GET TSSR CONTENTS 

iSET UP EXPECTED 

I SET UP REWIND PACKET ADDRESS 

»BUH" COUNT 

(SPACE RECORDS COMMAND FAILED 

TRAP CJERHRO 
.WORD 714 
.WORD K^7SCF 
.WORD PKTSSR 
60$: CKLOOP (LOOP IF SELECTED 



MOV 


0100001. R3 


JSR 


PC. SPACE 


BCS 


60 « 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


MOV 


R0,R4 


INC 


FATFLG 



ERRHRD ERRNO. T27SC^ .PKTSSR 



L5 



TSV7 - HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 



MACRO M1113 Ol-FEB-64 17t5fl 



SEQ 270 



9397 
9398 
9399 
9400 
9401 
9402 
9403 
9404 
9405 
9406 
9407 
9408 
9409 
9410 
9411 
9412 
9413 
9414 
9418 



9419 

9420 
9421 
9422 
9423 
9424 
9425 
9429 



9430 
9431 



9432 
9433 
9434 
9435 
9436 
9437 
9438 
9439 
9440 
9441 
9442 
944 3 
9444 
9445 
9446 



07606? 
076064 



076072 
076100 
076106 
076112 
076116 
076122 
076126 
076132 
076134 
076136 
076142 
076142 
076144 
076146 
076150 
076152 
076152 
076154 
076160 
076162 
076166 
076170 
076172 
076176 
076176 
076200 
076202 
076204 
076206 
076206 
076210 
076210 
076210 
076212 
076220 
076222 
076226 



104406 

013737 003114' 101662' 



TRAP 



CJCLPl 



012737 141005 101660' 

012737 000400 101666 

012704 101660' 

010465 000000 

004737 016150' 

016501 000002 

012702 100204 

020102 

001406 

005237 002212' 

104456 
001313 
104404 ' 
011746' 

104406 

013701 101566' 

010102 

052702 000001 

020102 

001406 

005237 002212' 

104456 
001314 
104231' 
015374' 

104406 



104403 

023727 002212' 000017 

103402 

004737 017104' 



MOV FREE,T27RB i ADDRESS OF BUFFER 

t WRITE DATA RETRY, ACK.CVC-l COMMAND 

! 

I WRITE DATA RETRY. ACK.CVC-l COMMAND 

I SET UP THE SIZE OF RECORD 

J SET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 

tUAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET 'JP EXPECTED TAPE STATUS ALERT 

cARE THEY EQUAL 

iBR. IF OK 

tBUMP COUNT 

J TSSR INCORRECT AFTER READ DATA 



180$ 



MOV 


0141005, T27PK3 


MOV 


«256.,T27SZ 


MOV 


0T27PK3,R4 


MOV 


R4.TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


0SSR!SC!BIT2,R2 


CMP 


R1,R2 


6EQ 


180$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T27TSA,PKTSSR 



190$ 









TRAP 


C$ERHRD 








.WORD 


715 








.WORD 


T27TSA 








.WORD 


PKTSSR 


CKLOOP 




iLOOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


T27BFR»14.R1 


iGET XST3 STATUS WORD 






MOV 


R1.R2 


jSET UP EXPECTED 






BIS 


#eiT0,R2 


;SET THE RIB BIT 






CMP 


R1,R2 


jARE THEY EQUAL 






BEQ 


190$ 


iBR, IF EQUAL CGGOD) 






INC 


FflTFLG 


;BUMP COUNT 






ERRHRD 


ERRN0,T27NEF,EXPREC 


jNEF SHOULD BE SET 


TRAP 
.WORD 
.WORD 
.WORD 


CiERHRD 
716 

T27NEF 
EXPr^EC 



999$ 



CKLOOP 
EN0SU3 



CMP 
BLO 
JSR 



TRAP 



C$CLP1 



FATFLG, 015. 

999$ 

PCCKDROP 



!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10124J 

TRAP C$ESUB 
J IS ERROR COUNT AT 25 
iBR. IF LF,SS THAN 25 
J TRY TO DROP THE UNIT 



;TE5T 7. SUBTEST 3 

[VERIFIES THAT A WRITE DATA PETRI COMMAND WITH SWB-O 

(TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 

I (THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 

jBlTE COUNTS AND DATA PATTERNS ARE USED. 

* 

i 



TSV7 - HARDWARE TtSTS 1-8 
TEST 7: WRITt oATA RETRY 



[vjC- 



^ 



MACRO M1113 Ol-FeO-84 17:54 



SEQ 271 



9447 
9448 
9449 



9450 
9451 
9452 
9453 
9454 
9455 
9456 
9457 
9458 
9459 
9460 
9461 
9462 
9466 
0467 



9468 
9469 
9470 
9471 
9472 
9473 
9474 
9475 
9476 
9477 
9478 
9479 
9485 
9484 



9485 

9486 
9487 
9488 
9489 
9490 
9491 
9492 
9493 
9494 
9495 
9496 
9500 



076226 
076226 
076226 
076230 
076234 
076240 



i - 



10^402 

004737 104664 

004737 104756 

004737 105020 



OGNSUB 



JSR 
JSR 
JSR 



PC.T27REST 

PC.T27RT2 

PC,T27RT3 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T7.3: 

TRAP C^BCird 
I SET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 
J SET UP OTHER COMMA^'D PACKET 



i 

tXS<3UE CONTROLLER '"^OFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



0762^4 

076250 
076252 
076256 
076260 
076260 
076262 
076264 
076266 
076270 
076276 



004737 015674 

103407 

005237 002212 

010001 



104455 
001315 
003642 
011734 
013737 
012704 



002172 
101530 



10X550' 20$: 



JSR 


PC.30FINIT 


(DO INITIALIZE ON CONTROLLER 




BCS 


20$ 


J BR IF INIT WAS OK 




INC 


FATFLG 


jBUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


CJERDF 






.WORD 


717 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T270SW 


(SET UP UNIT N\iMBER IN PACKET 




MOV 


*T27PACKET,R4 


(SUBROUTINE NEEDS PACKET ADDRESS 



[WRITE CHARACTF,RISTICS COMMAND (CALL TO WRlCHft) 
I 



076302 
076306 
076310 
076314 
076316 
076316 
076520 
076322 
076324 
076326 
076326 



004:^37 
103407 
005237 
010001 

104456 
001316 
005046' 
011734' 

104406 



010562 
002212 



23$: 



JSR PC.WRTCHR 

BCS 23$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSG . SFIMSG 



CKLOOP 



(ISSUE WRITE CHARACr^RISTICS 
(BR, IF COMMAND ISSl^ED OK 
(BUMP COUNT 

(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 

TRAP 



C$ERHRD 

URTMSG 
SFIMSG 

C$CLP1 



! ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 



076330 
076334 
076336 
076340 
076344 
076344 



004737 010714' 

103407 

010004 

005237 0022)2' 

104456 



JSR PC. REWIND 

BCS 30$ 

MOV R0,R4 

INC FATFLG 

ERRHRD ERRNO, T27RWN.PKTSSR 



(CALL TAPE REWIND COMMAND 

(BR, IF NO PROBLEM 

(SET UP REWIND PACKET ADDRESS 

I BUMP COUNT 

(REWIND NOT ACCEPTED 

TRAP 



C$ERHRD 



N5 



TSV7 - HARDWARE TliSTS 1-8 
TEST 7; WRITE DATA RETRY 



MACRO M1113 Ol-FEB-64 17J54 



SEQ 272 



9501 

9502 
9503 
9504 
9505 
9506 
9507 
9503 
9509 
9510 
9511 
9512 
9513 
9514 
9518 



9519 

«/520 
9521 
9522 
9523 
9524 
9525 
9526 
9527 
9528 
9529 
9530 
9531 
9532 
9533 
9534 
9335 
9536 
9537 
9536 
9539 
9540 
9544 



9545 

9546 
954 7 
9548 
9549 



076346 
076350 
076352 
076354 
076354 



076356 
076362 
076364 
076370 
076372 
^•76374 
076400 
076400 
076402 
076404 
076406 
076410 
076410 
076412 
076416 



076424 
076432 
076436 
076440 
076444 
076450 
076454 
07o460 
076464 
076470 
076472 
076474 
076500 
076500 
076502 
076504 
076506 
076510 
076510 



001317 
103065 
011746 

104406 



30$: 



CK'.OOP 



I LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 



013701 101560' 

0101,02 

05:\02 000002 

020102 

001406 

005237 002212' 

104456 
001320 
102561' 
015374' 

104406 

012703 000024 

013737 003114' 



101662' 



TRAP 
IrEAU MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

(******************* *********4i^**4,*****4,*4,4i4,44ijk4i 4, 4,^4, 4, 4, 4,«4i4t 4, 4t ******!! 

(PICK UP XSTO 
(SET UP EXPECTED 
;SET BOT BIT IS EXPECTED 
;DOES EXP - REC D 
tSR. IF EQUAL COK) 
J BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WCOD 
.WOfiO 
.WORD 
40S; CKLOOP iLOOP IF SELECTED 

TRAP 
i STARTING RECORD SIZE 
; STARTING WRITE BUFFER ADDRESS 



719 

T27RWN 
PKTSSR 

C$CLP1 



MOV 


T27BFR*6.R1 


MOV 


R1,R2 


BIS 


*BIT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO , T27B0T . EXPREC 



CKLOOP 

MOV 
MOV 



*20. ,n3 
FREE,T27WB 



CJERHRD 
720 

T27B0T 
EXPREC 

C$CLP1 



}**************4i4a*^**4i >******** V4< ********************************* 

IwRITE DATA.CVC-l.ACK COMMAND 
I 

J *********************************************** *4,*«*4i*«4i4, 4, 4,4^4,^4,4,** 



012737 
012704 
0103CO 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001321 
005103' 
011746' 

104406 



140005 
101660' 

017324- 

101666' 

000000 

01M50' 

000002 

000200 



002212 



101660' 65$: 



80$: 



MOV *1400C5.T27PI<3 

MOV *T27PK3.R4 

MOV R3.R0 

JSR PC.FILLMEM 

MOV R3,T27SZ 

MOV R4.TSDB(R5) 

JSR PC.WAITF 

MOV TSSRCR5).R1 

MOV 0SSR.R2 

CMP R1.R2 

BEQ 80$ 

INC FATFLG 

Ef^RHRD ERRNO , WR TERR , PI" TbSR 



CKLOOP 



tWRITE OATA.CVC-l.ACK COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

(SET PATTERN I^' CORRECT REGISTER 

(FILL MEMORY WITH RECORD SIZE 

(SET \!? RECORD SIZE IN PACKET 

(ISSUE COMMAND 

iWAlT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR, IF OK 

(BUMP COUNT 

(TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
.WORD 721 
.WORD URTERR 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 



j****a************************************************«************ 
J 

t WRITE DATA RETRY.CVC-l , ACK COMMAND 



B6 



TSV7 - HARDWARE 


TESTS 1 


-8 


TEST 7: WRITE I 


DATA RETRY 


9550 






9551 






9S52 






9553 076512 


012737 


141005 


9554 076520 


010465 


000000 


9555 076524 


004737 


016150* 


95t6 076550 


016501 


000002 


9557 076534 


012702 


000200 


9550 076540 


020102 




9559 076542 


001406 




9560 076544 


005237 


002212* 


9564 076550 






076550 


104456 




076552 


001322 




076554 


104466' 




076556 


011746- 




9565 076560 






076560 


104406 




9566 0/6562 


005723 




9567 076564 


020327 


000050 


9566 076570 


001315 




9569 






9570 






9571 






9572 






9573 






9574 






9575 






9576 076572 


004737 


010714' 


9577 076576 


103407 




9578 076600 


010001 




9579 076602 


005237 


002212' 


9583 0?'o606 






076606 


104456 




076610 


001525 




076612 


105065' 




076614 


015374' 




9584 076616 






076616 


104406 




9585 






9586 






9587 






9588 






9589 






9590 






9591 






9592 076620 


015701 


101560' 


9593 076624 


010102 




9594 076626 


0527C2 


000002 


9'"?95 076632 


020102 




9596 076654 


001406 




9597 076656 


005257 


002212* 


9601 076642 






076642 


104456 




076644 


001324 




076646 


102561' 




076t>50 


015374' 





MACRO M1113 Ol-FEB-84 17:54 



SEQ 273 



MOV 


#141005, T27PK3 


MOV 


R4,TS0B(R5) 


JSR 


PC.UAITF 


MOV 


TSSR(R5),R1 


MOV 


#SSP,R2 


CMP 


R1,R2 


8EQ 


901 


INC 


KATFLG 



901: 



ERRHRO ERRNO , T27WRF , PKTSSR 



CKLOOP 



iWRITE DATA RETRY, CVC-1 .ACK COMMAND 

t ISSUE COMMAND 

iWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

I ARE THEY EQUAL 

iBR. IF OK 

I BUMP COUNT 

I TSSR INCORRECT AFTER WRITE DAT4 RETRY 



TRAP 


CIERHRD 


.WORD 


722 


.WORD 


T27WRF 


.WORD 


PKTSSR 


iLOOP IF SELECTED 




TRAP 


CJCLPl 


iBUMP RECORD SIZE COUNTER 




lAT 40 SIZE YET 




iBR, IF MORE RECORDS TO WRITE 





TST CR5)» 
CMP R5,#40. 
BNE 651 

IlSSU" REWIND COMMAND TO SELECTED TAPE DRIVE 
I 



JSR 


PC, RE WIND 


BCS 


230$ 


MOV 


RO.Ri 


INC 


FATFLG 



ERRHRD ERRNO , T27RWN , EXPREC 



2304; CKLOOP 



iCALL TAPE REWIND COMMAND 




iBR. IF NO PROBLEM 




iSAVE TSSR 




iBUMP COUNT 




(REWIND NOT ACCEPTED 




TRAP 


C»ERHRO 


.WORD 


723 


.WORD 


T27RWN 


.WORD 


Ey hEC 



iLOOP IF SELECTED 



TRAP 



iREAO MESSAGE BU^FER EXTENDED STATUS REGISTER ZERO (XSTO) 
I 



MOV 


T27BFR*6,Rl 


MOV 


RI.R2 


BIS 


♦eiTl.R2 


CMP 


R1.R2 


BEO 


240 f 


INC 


FATFLG 



ERRHRO ERRNO, T27B0T , EXPREC 



CJCLPl 



(PICK UP XSTO 




iSET UP EXPECTED 




iSET BOT BIT IN EXPECTED 




iDOES EXP ■ REC'D 




iBR, IF EQUAL (OK) 




iBUMP COUNT 




iTAPE NOT AT 9QT AFTER REWIND 




TRAP 


CJtRHRO 


.WORD 


7^4 


.WORD 


T2?00T 


.WORD 


EXPREC 



!^l -r^WrDi^S^SElR 



C6 



MACRO MU13 01.PEB-e4 17:54 



SEQ 274 



9')02 

9603 
9604 
9605 
9606 
9607 
960e 
9609 
9610 
9611 
9612 
9613 
9614 
9615 
9616 
9617 
96ie 
9619 
9620 
9621 
9625 



9626 

9627 
962fl 
9629 

9650 
96j1 
9632 
9633 
9634 
9635 
9639 



9640 

9641 
9642 
9643 
9644 
9645 
9646 
9647 
9648 

9649 
9650 



076652 
076652 
076654 
076660 



076666 
076674 
076700 
076704 
076710 
076714 
076720 
076724 
076726 
076750 
076754 
076734 
076736 
076740 
076742 
076744 
076744 
076746 
076752 
076754 
076760 
076762 
076764 
076766 
076770 
076772 
076776 
076776 
077000 
077002 
077004 
07 7006 
077006 
077010 
077012 
077014 
077016 
077020 
077022 
07 7026 
077030 
077030 
077032 
077032 
077032 
077032 



104406 
012703 
013737 



000024 
003114 



101662' 



240J: CKLOOP 

MOV 
MOV 



♦20., R3 
FREE.T27RB 



iLOOP IF SELECTED 

TRAP CICLPl 
(STARTING RECORD SIZE 
(STARTING READ BUFFER ADDRESS 



(READ DATA.ACK COMMAND 
t 



012737 lOOOOl 101660' 2651: 

0127C4 101660' 

010337 101666' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 

020102 

001406 

005237 002212' 

104456 
001325 
005176' 
011746* 

104406 

013702 003114' 

010304 

162704 000024 

060204 

021403 

001410 

011401 

010302 

005237 002212* 

104456 
001326 
104546' 
015374' 

104406 

005724 

160204 

020403 

001360 

005723 

020327 000050 

001317 

104406 



104403 



MOV 


♦l0OOOl,Tt'7PK3 


MOV 


<»T27PK3,R4 


MOV 


R3,T27S2 


MOV 


R4.TSDB(R5) 


JSR 


PCWAITF 


MOV 


TSSR(R5),R1 


MOV 


«SSR.R2 


CMP 


R1,R2 


BEO 


2001 


INC 


FATFLG 


ERRHRD 


ERRNO.ROERR.PKTSSR 



280$: CKLOOP 

MOV 
"OV 
SUB 
2851: ADD 
CMP 
BEQ 
MOV 
MOV 
INC 
ERRMRO 



290$: CKLOOP 



FREE,R2 

R3.R4 

«20. ,R4 

1^2. R4 

(R4),R3 

200$ 

(R4).«l 

R3.R2 

FATFLG 

ERRN0,T27DTA,EXPREC 





TST 


(R4)» 




SUB 


R2.R4 




CMP 


R4.R3 




BNE 


285$ 




TST 


(R3)» 




CMP 


R3.«40, 




BNE 


265$ 


300$: 


CKLOOP 




550$ J 







ENDSUe 



(READ DATA.ACK COMMAND 
I SET UP R4 WITH PACKET ADDRESS 
I SET UP RECORD SIZE IN PACKET 
I ISSUE COMMAND 
(WAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
(SET UP EXPECTED 
(ARE TMEY EQUAL 
iBR, IF OK 
iBUMP COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAP 



iLOOP IF SELECTED 



.WORD 

.WORD 
.WORD 

TRAP 



iGET BUFFER ADDRESS 

I GET RECORD SIZE 

(POINT BACK TO 1ST RECORD 

(POINT TO 1ST LOC IN BUFFER 

(DATA WRITTEN - READ 

(BR. IF DATA OK (GOOD) 

(PICK UP BAD DATA 

(SET UP EXPECTED 

(BUMP COUNT 

(DATA IN BUFFER NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHR0 
725 
ROERR 
PKTSSR 

CJCLPl 



(LOOP IF SELECTED 



C$ERHRO 
726 

T270TA 
EXPREC 



TRAP 



(BUMF TO NEXT ADDRESS 

(BACK TO RECORD SIZE 

(AT END OF RECORD VET 

(BR, IF MORE DATA TO CHECK 

(BUMP RECORD SIZE 

(DONE YET 

(BR. IF NOT DONE YET (MORE READS") 

(LOOP IF SELECTED 

TRAP 



C$CLP1 



C$CLPl 



i >>>>>!>>>>>> 



ENO SUBTEST 
U 10125; 

TRAP 



^*>>>>>>**'»* 



C$ESUB 



]m -7i'm^^^dWk\R 



D6 



MACRO MU13 Ol-FEB-84 I7i54 



SEQ 275 



9651 
9652 
9655 
9654 
9655 
9656 
9657 
9658 
9659 
9660 
9661 
9662 
9665 
9664 
9665 
9666 
9667 
9668 



9669 
9670 
9671 
9672 
9673 
9674 
9675 
9676 
9677 
9678 
9679 
9680 
9681 
9682 



077054 
077042 
077044 
077050 



077050 
077050 
077050 
077052 
077056 
077062 
077066 



9685 
9684 
9685 
9689 

9090 



9691 
9692 
9695 
9694 

9695 
9696 



077074 
077100 
077102 
077102 
077106 
077110 
077114 
077116 
077122 
077124 
077150 
077152 
077136 
077140 
077144 
077146 
077146 
077150 
077152 
077154 
077156 
077164 



025727 002212' 

103402 

004757 017104' 



0000 i 7 



104402 
1)04757 



012727 
000000 
013727 
000000 
005567 
001375 
005367 
001367 
005337 
001356 
00'j237 
OlOOOl 

104455 
001327 
005642 
011734 

013757 
012704 



104664 



004737 104756' 
004737 105020' 
012737 176750 10X712' 



004737 015674 
103426 



000250 

002116' 

177772 

177756 

101712 

002212 



002172' 
101550' 



CMP rATrLG»«15. 

QLO 9991 

J3R PC.CKDROP 



999$: 

I * 

(TEST 7, SUBTEST 4 

(VERIFIFS THAT A WRITE DATA RETRY C0MMAK4D WITH SWB-1 

(TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE. 

tCTHE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 

(BYTE COUNTS AND DATA PATTERNS ARE USED. 

t 

t 

t 

i ' 



(IS ERROR COUNT AT 25 
I BR, IF LESS THAN 25 
(TRY TO DROP THE UNIT 



BGNSUB 



JSR 
JSR 
JSR 
MOV 



PC.T27REST 
PC,T27RT2 
PC,T27RT3 
<>65000.,T27DLY 



)>>>)>>>>>>>) BEGIN SUBTEST >>>>>>>>>>>> 

T7.4; 

TRAP C.^BSUe 
(SET COMMAND PACKET 
(SET LP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
(SET UP DELAY COUNTER 



(ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
I 

lOi: 



101550' 20$: 



JSR 


PCSOFINIT 


(DO INITIALIZE ON CONTROLLER 




BCS 


201 


(BR IF INIT WAS OK 




DELAY 


250 


(DELAY ABOUT .25 SEC 








MOV 


0250,CPC)» 






.WORD 









MOV 


LIOLY.CPO* 






.WORD 









OEC 


-6CPC) 






BNE 


. -4 






DEC 


-22(PC) 






BNE 


.-20 


DEC 


T2/0LY 


(BUMP COUNTER 




BNE 


101 


(bi^, IF COUNTER NOT DONE 




INC 


FATFLG 


(BUMP COUNT 




MOV 


RO.Rl 


(CONTENTS 01- ISSR REGIS VEPt 




t-RRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS UOT OK 








TRAP 


CSERDF 






.WORD 


727 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN,T270SW 


(SET UP UNIT (DRIVE) NUMBER 




MOV 


#T27PACKET.R4 


(SUBROUTINE NEEDS PACKET ADDRESS 



1*4*44*44 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR1 



TSV? - HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 



E6 



MACRO MH15 Ol-rEB-84 17J54 



SEQ 276 



9697 
9698 
9699 

9700 
9701 
9702 
9706 
9707 



9708 

9709 
9710 
9711 
9712 
9713 
9714 
9715 
9716 
9717 
9718 
9719 
9720 
9724 



9725 

9726 
9727 
9728 
9729 
9730 
9751 
9732 
9733 
9734 
9735 
9736 
9737 

9738 

9742 



9745 

9744 
9745 
9746 
9747 



i 



077170 

077174 
077176 
077202 
077204 
077204 
077206 
077210 
077212 
077214 
077214 



004737 010562 

103407 

005237 002212 

010001 

104456 
001330 
005046' 

011734- 

104406 



077216 
077222 
077224 
077250 
077232 
077236 
077236 
077240 
077242 
077244 
077246 
077246 



004737 010714' 

103411 

016501 000002 

010004 

005237 002212' 

104456 
001331 
103065' 
011746' 

104406 



O772S0 
077254 
077256 
077262 
077264 
077266 
077272 
077272 
077274 
077276 
077300 
077302 
077302 
077304 
077310 



015701 101560' 

010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001352 
102561' 
015374' 

104406 

012703 000024 

013737 003114' 



101662 



231: 



JSR PC.WRTCHR 

BCS 23$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG . SFIMSG 



CKLOOP 



I ISSUE WRITE CHHRACTEr-trSTICS 
I BR, IF COMMAND ISSUED OK 
I BUMP COUNT 

(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
I LOOP IF SELECTED 

TRAP 



1 

(ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
t 

(CALL TAPE REWIND COMMAND 
(BR. IF NO PROBLEM 
(GET TSSR CONTENTS 
(GET PACKET ADDRESS 
(BUMP COUNT 
ERRHRD ERRNO. T27RWN,PKTSSR (REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


301 


MOV 


TSSR(R5).R1 


MOV 


R0,R4 


INC 


FATFLG 



50$: 



CKLOOP 



(LOOP IF SELECTED 



TRAP 



(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 
i 

(PICK UP XSTO 

(SET UP EXPECTED 
(SET BOT BIT IN EXPECTED 
(DOES EXP - REC'O 
(BR. IF EQUAL (OK) 
(BUMP COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40$: CKLOOP (LOOP IF SELECTED 

TRAP 
(STARTING RECORD SIZE 
(STARTING WRITE BUFFER ADDRfSS 



MOV 


T27BFR*6,R1 


MOV 


RI.R2 


BIS 


*6IT1,R2 


CMP 


R1,R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO , T27B0T , EXPREC 



CKLOOP 

MOV 
MOV 



<>20.,R3 

FREE,T27WB 



C$ERHRD 
728 

WRTMSG 
SFIMSG 

CJCLPl 



TRAP 


C$ERHRO 


.WORD 


729 


.WORD 


T27RWN 


.WORD 


PKTSSR 



C$CLP1 



C$ERHRD 
750 

T27B0T 
EXPREC 

CJCLPl 



(4>«4>4i*«**4i*«*****4«**«4t***444>'4i*«4>«*'k«*4>«4**« + *«***«*«4k#«*««««i«4i4t* 



TSV7 - HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 



9748 
9749 
9750 
9751 
9752 
9753 
9754 
9755 
9756 
9757 
9756 
9759 
9760 
9761 
9762 
9763 
9764 
9766 



MACRO M1113 01 -FEB -84 I7i54 



F6 



SEQ 277 



9769 

9770 
9771 
9772 
9773 
9774 
9775 
9776 
9777 
9778 
9779 
9780 
9781 
9782 
9783 
9784 
9788 



9789 

9790 
9791 
9792 
9793 
9794 
9795 
9796 
9797 
9798 
0799 
9800 



077316 
077324 
077350 
077332 
077336 
077342 
077346 
077352 
077356 
077362 
077364 
077366 
077372 
077372 
077374 
077376 
077400 
077402 
077402 



012737 
012704 
010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
0C1406 
005237 

104456 
001333 
005103 
011746 

104406 



077404 
077412 
077416 
077422 
077426 
077432 
077434 
077436 
077442 
077442 
077444 
077446 
077450 
077452 
077452 
077454 
077456 
077462 



012737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001334 
104466' 
015374' 

104406 
005723 
020327 
001315 



140 )0i 

101660' 

017324' 

101666' 

000000 

016150' 

000002 

000200 



002212 



111005 

000000 

016150' 

000002 

000200 



002212' 



000050 



101660' 



1 

iWRITE DATA^CVC-l.ACK COMMAND 



101660' 65$! 



80$: 



MOV 0140005, T27PK3 

MOV *T27PK3.R4 

MOV R3,R0 

JSR PC.FILLMEM 

MOV R5,T27SZ 

MOV R4,TSDBCR5) 

JSR PC.WAITF 

MOV TSSRCR5).R1 

MOV #5SR»t^2 

CMP R1.R2 

BEQ 80$ 

INC FATFLG 

ERRHRD ERRNO , WRTERR , PKTSSR 



CKLOOP 



(WRITE OATA.CVC-l.ACK COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

I SET PATTERN IN CORRECT REGISTER 

I FILL MEMORY WITH RECORD SIZE 

I SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

;WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

iSET UP EXPECTED 

(ARE THEY EQUAL 

|6R. IF OK 

I BUMP COUNT 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
.WORD 731 
.WORD WRTERR 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP C$CLP1 



t 

(WRITE DATA RETRY ,ACK,SW8-1 COMMAND 
I 

(WRITE DATA RETRY, ACK,SWB«1 COMMAND 
(IS<^'JE COMMAND 
(WAIT FOR SSR TO SET 
(GET TSSR CONTENTS 
(SET UP EXPECTED 
(ARE THEY EQUAL 
(BR. IF OK 
(BUMP COUNT 

(TSSR INCORRECT AFTER WRITE DATA RETRY 

TRAP C$ERHRO 
.WORD 732 
.WORD T27WRF 
.WORD EXPREC 
90$! CKLOOP (LOOP IF SELECTED 

TRAP C$CLP1 
(R3). (BUMP RECORD SIZE COUNTER 

Ri>,t>AQ, lAT 40 SIZE YET 

65$ (BR, IF MORE RECORDS TO WRITE 



MOV 


0111005. T27PK3 


MOV 


R4,TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


#SSR.R2 


CMP 


R1.R2 


BEQ 


90$ 


INC 


FATFLG 



ERRHRD EHRNO , T27WRF , EXPREC 



CKLOOP 

TST 
CMP 
BNE 



077464 004737 010714' 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

JSR PC. REWIND (CALL TAPE REWIND COMMAND 



TSV7 - HARDWARE TESTS 1-8 
TEST 7; WRITE DATA RETRY 



G6 



9801 
9802 
9803 
9804 
9808 



9809 

9810 
9811 
9812 
9813 
9814 
9815 
9816 
9817 
9818 
9819 
9820 
9821 
9822 
9826 



9827 

9628 
9829 
9830 
9831 
9832 
9833 
9834 
9835 
9836 
9837 
9838 
91139 
911^0 
9841 
9842 
9843 
9844 
9845 
9846 
9850 



9851 



077470 
077472 
077476 
077500 
077504 
077504 
077506 
077510 
077512 
077514 
077514 



077516 
077522 
077524 
077530 
077532 
077534 
077540 
077540 
077542 
077544 
077546 
077550 
077550 
077552 
077556 



077564 
077572 
077576 
077602 
077606 
077612 
077616 
077622 
077624 
077626 
077632 
077632 
077634 
077636 
07 7640 
077642 
077642 



103411 

016501 000002 

010004 

005237 002212 

104456 
001335 
103065' 
011746' 

104406 



013701 101560 

010102 

052702 000002 

020102 

001406 

005237 002212 

104456 
001336 
102561' 
015374' 

104406 

012703 000024 

013737 003114 



012737 
012704 
010337 
010465 
00473" 
016501 
012702 
020102 
001406 
005237 

104456 
001337 
005176 
011746' 

104406 



100001 

101660' 

101666' 

000000 

016150' 

000002 

000200 



002212 
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101662 



BCS 230$ 

MOV TSSRCR5),R1 

MOV R0,R4 

INC FATFLG 

ERRHRD ERRN0,T27RWN.PI<TSSR 



230$: CKUOOP 



iBR, IF NO PROBLC:^' 






(GET TSSR CONTENTS 






iGET PACKET ADDRESS 






|3UMP COUNT 






iKtWIND NOT ACCEPTED 








TRAP 


CJERHRD 




.WORD 


733 




.WORD 


T27RWN 




.WORD 


PKTSSR 



I LOOP IF SELECTED 



TRAP 



iREAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

I 

J****************************************************************** 

(PICK UP XSTO 
I SET UP EXPECTED 
jSET BOT BIT IN EXPECTED 
iDOES EXP - REC'D 
;BR. IF EQUAL (OK:) 
tSUMP COUNT 

I TAPE NOT AT BOT AFTER REWIKO 

TRAP 
.WORD 
.WORD 
WORD 
I LOOP IF SELECTED 

TRAP 
I STARTING RECORD SIZE 
t STARTING READ BUFFER ADDRESS 



MOV 


T27BFR»6,R1 


MOV 


R1.R2 


BIS 


*BIT1.R2 


CMP 


R1,R2 


BEQ 


240$ 


INC 


FATFLG 



ERRHRD ERRNO , T2780T , EXPREC 



240$: CKLOOP 

MOV 
MOV 



*20. .R3 

FnEE.T27Re 



|****«*******«*6*********************4:***iS************************* 

I READ DATA.ACK COMMAND 

i 

t ****************************************************************** 



101660' 265v: 



MOV 


«100001.T27PK3 


MOV 


OT27PK3.R4 


MOV 


R3,T27SZ 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEQ 


2d0$ 


INC 


FATFLG 



ERRHRD ERRNO. RDERR. PKTSSR 



280$: CKLOOP 



jREAD DATA.ACK COMMAND 

I SET UP R4 WITH PACKET ADDRESS 

I SET tjp RECORD SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

J SET UP EXPECTED 

tARE THEY EQUAL 

iBR. IF OK 

(BUMP COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAK 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 



C$CLP1 



C$ERHRD 
734 

T27B0T 
EXPREC 

C$CLP1 



CJERHRD 

735 

RDERR 

PKTSSR 

C$CLPJ 



SEQ 278 



-16 



TSV7 - HARDWARE 


TESTS 1 


-8 


TEST 7: 


WRITE 


DATA RETRY 


9852 


077644 


013702 


003114' 


9853 


077650 


010304 




9854 


077652 


162704 


000024 


9855 


077656 


060204 




9856 


077660 


000303 




9«57 


077662 


021403 




9858 


077664 


001410 




9859 


077666 


011401 




9860 


077670 


010302 




9861 


077672 


005237 


002212' 


9865 


077676 








077676 


104456 






077700 


001340 






077702 


104546' 






077704 


015374' 




9866 


077706 








077706 


104406 




9867 


077710 


005724 




9868 


077712 


160204 




9869 


077714 


000303 




9870 


C777J.6 


020403 




9871 


077720 


001356 




9872 


077.^2 


005723 




9873 


077724 


020327 


000046 


9874 


077730 


001315 




9875 


077732 








077732 


104406 




9876 


077734 
077734 








077734 


104403 




9877 


077736 


023727 


002212' 


9878 


077744 


103402 




9879 


077746 


004737 


017104' 


9680 


077752 






9881 








9882 








9883 








9884 








9885 








9866 








9887 








9888 








9889 








9890 








9891 








9892 








9893 








9894 








9895 








9896 








9897 








9898 








9899 








9900 








0901 








9902 








9903 
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285*! 



MOV 


FREE»R2 


MOV 


R3,R4 


SUB 


#20. .R4 


ADD 


R2,R4 


SWAB 


R3 


CMP 


CR4),R3 


BEQ 


290 » 


MOV 


(R4).R1 


MOV 


R3.R2 


INC 


FATFLG 


ERRHRD 


ERRN0,T27DTA,EXPREC 



2904; CKLOOP 



300$: 



TST 


CR4)* 


SUB 


R2,R4 


SWAB 


R3 


CMP 


R4,R3 


BNE 


285$ 


TST 


(R3)» 


CMP 


R5,«38. 


6NE 


265$ 


CKLOOP 





000017 



999$: 



EN0SU6 



CMP 
BLO 
JSR 



FATFLG,*15. 

999$ 

PCCKDROP 



5EQ 279 



I GET BUFFER ADDRESS 

I GET RECORD SIZE 

I POINT BACK TO 1ST RECORD 

I POINT TO 1ST LOC IN BUFFER 

iSWAP BYTES SWB-1 ETC. 

lOATA WRITTEN - READ 

I BR. IF DATA OK CGOOD) 

jPICK UP BAD DATA 

I SET UP EXPECTED 

(BUMP COUNT 

I DATA IN BUFFER NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELEC;. 



V 



C$ERHRD 
736 

T27DTA 
EXPREC 



TRAP C$CLP1 



I BUMP TO NEXT ADDRESS 

(BACK TO RECORD SIZE 

I PUT R3 BACK INTO SHAPE 

(AT END OF RECORD YET 

I BR, IF MORE DATA TO CHECK 

I BUMP RECORD SlZt 

iDONE YET 

;BR. IF NOT DONE YET (MORE READS) 

J LOOP IF SELECTED 

TRAP C$CLP1 

!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L 10126: 

TRAP C$ESUB 
lis ERROR COUNT AT 25 
(BR, IF LESS THAN 25 
J TRY TO DROP THE UNIT 



TEST 7, SUBTEST 5 

VERIFIES THAT A WRITE DATA RETRY COMMAND IS 
PERFORMING THE "ERASE" PART OF THE OPERATION BY 
PERFORMING THE FOLLOWING SERIES OF STEPS. 

1. THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE 
WRITTEN WITH THE NORMAL WRITE DATA COMMAND. THIS 
SHOULD RESULT IN RECORDS SEPARATED BY THE 
STANDARD INTERHECORD GAP. 

2. A PROGRAM TIMING VALUE IS CALIBRATED BY REWINDING 
THE TAPE AND T»-€N CONUTING THE NUMBER OF CYCLES 
THROUGH A PROGRAMMED LOOP REQUIRED TO SPACE OVER 
THE SERIES OF RECORDS WRITTEN IN PREVIOUS 

STEP 

3. THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF 
RECORDS WRITTEN AGAIN, THIS TIME USING THE WRITE 
DATA RETRY COMMAND. THIS SHOULD RESULT IN 



TSV7 - HARDWARE TESTS 1-6 
TEST 7: WRITE DATA RETRY 



16 
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SEQ 280 



9904 
9905 
9906 
9907 
9908 
9909 
9910 
9911 
9912 
9913 
9914 
9915 
9916 
9917 
9918 



9919 
9920 
9921 
9922 
9923 
9924 
9925 
9926 
9927 
9928 
9929 
9930 
9931 
993i: 
9933 
9934 
9935 



077752 
077752 
077752 
077754 
077760 
077764 
077770 
077774 
100000 
100004 



9936 
9937 
9938 
9942 
9943 



9-»;4 

9945 
9946 
9947 
9948 
9949 



100012 
100016 
100020 
100020 
100024 
100026 
100032 
100034 
100040 
100042 
100046 
100050 
100054 
100056 
100062 
100064 
100064 
\00066 
100070 
100072 
100074 



104402 
005037 
005037 
005037 
004737 
004737 
004737 
012737 



004737 
103426 

012727 
000000 
013727 
OOOOOO 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 

001341 

005642 

011734' 

013737 



100102 012704 



002214 ' 

101706' 

101710' 

104664 

104756 

105020 

176750 



015674' 

000250 

002116' 

177772 

177756 

101712' 

002212 



002172' 
101530' 



101712 



RECORDS SEPARATED BY A LONG INTER>^EC0R0 GAP. 

4. THE TAPE IS AGAIN REWOUND, THE SPACINC; COMMAND 
ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES 
COUNTED TO COMPLETE THE OPERATION. 

5. THE TWO LOOP COUNTS ARE COMPARED, CHECKING TO SEE 
THAT THEY DIFFER BY A SIoNIFICANT AMOUNT. 



BGNSUB (>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T7.5: 

TRAP CJBSUB 
(INTERRUPT INDICATOR 
(TIMER FOR WRITE DATA SPACING 
(TIMER FOR WRITE DATA RETRY SPACING 
(SET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 
(SET UP DELAY COUNTER 

I 4i4>4i**4L4t*4i*4t4i4t*4*««4>*«4>4>*4i*««4>*«*4i«*«44>*«*«A****4**** ************** 
I 

(ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

( 

J****************************************************************** 



CLR 


INTRECV 


CLR 


T27CNT 


CLR 


T27CNU 


JSR 


PC,T27REST 


JSR 


PC.T27RT2 


JSR 


PC.T27RT3 


MOV 


#65000.. T27DLY 



10$; 



JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



101550' 20$: 



DEC T270LY 

BNE 10$ 

INC FATFLG 

MOV RO.Rl 

CRRDF ERRNO, SFIERR , SFIMSG 



MOV UNITN,T27DSW 
MOV 0T27PACKET.R4 



(DO INITIALIZE ON CONTROLLER 

(BR IF INIT WAS OK 

(DELAY ABOUT .25 SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

(BUMP COUNTER 

(BR, IF COUNTER NOT DONE 

(BUMP COUNT 

(CONTENTS OF TSSR REGISTER 

(FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

(SET UP UrjIT NUMBER 

(SUBROUTINE MEEDS PACKET ADDRESS 



0250. (PC)* 



L$DLY,(PC)* 



-6(PC) 

.-4 

-22CPC) 

.20 



C$ER0F 
737 

SFIERR 
SFIMSG 



I 4i************ ***************************************************** 
\ 



J6 



TSV7 - HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 



9950 
9951 
9952 
9953 
9954 
9955 
9956 
9%0 
9961 



9962 

9965 
9964 
9965 
9966 
9967 
9966 
9969 
9970 
9971 
9972 
9973 
9974 

:)978 



99^9 

9980 
9981 
998t 
9983 
9984 
9985 
9986 
9987 
9988 
9989 
9990 
9991 
9992 
9996 



9997 

9996 

9999 

lOCOO 



100106 
100112 
100114 
100120 
100122 
100122 
100124 
100126 
100130 
100132 
100132 



004757 010562' 

103407 

005237 002212' 

010001 

104456 
001342 
005046' 
011734- 

104406 



100134 
100140 
100142 
100146 
100150 
100154 
100154 
100156 
100160 
100162 
100164 
100164 



004737 010714' 

103411 

016501 000002 

010004 

005237 002212' 

104456 
001343 
103065' 
011746' 

104406 



100166 
100172 
100174 
100200 
100202 
100204 
100210 
100210 
100212 
100214 
100216 
100220 
100220 
100222 
100226 



013701 101560' 

010102 

052702 C00002 

020102 

001406 

005237 002212' 

104456 
001344 
102561' 
015374- 

10440 > 

012 703 000144 

0137^7 003114' 
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iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
I 



23$: 



JSR PC.ViRTCHR 

BCS 23$ 

INC FATFLG 

MCV RO Rl 

ERRI-RD ERRNO . WRTMSG , SFIMSG 



CKLOOP 



iISSLt WRITE CHARACTERISTICS 
I BR, IF COMMAND ISSUED OK 
iB'JMP COUNT 

(SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
. WORD 
I LOOP IF SELECTED 

TRAP 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
t 

(CALL TAPE REWIND COMMAND 
(BR, IF NO PROBLEM 
(GET TSGR CONTENTS 
(GET PACKET ADDRESS 
(BUMP COUNT 
EK-^HRO ERRNO, T27RWN,PKTSSR (REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


30$ 


MOV 


TSSR(R5),R1 


MOV 


R0.R4 


INC 


FATFLG 



3u$: 



CKLOOP 



(LOOP IF SELECTED 



TRAP 



MOV 


T27BFR*6.Ri 


MOV 


R1,R2 


BIS 


06IT1.R2 


CMP 


R1,R2 


8EQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO* T27B0T,EXPREC 



101662' 



CKLOOP 

MOv 
MOV 



C$ERHRD 
738 

WRTMSG 
SFIMSG 

C$CLP1 



TRAP 


C$ERHRD 


.WORD 


739 


.WORD 


T27RWN 


.WORD 


PKTSSR 



C$CLP1 



(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
i 

(PICK UP XSTO 

(SET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

(DOES EXP - REC'O 

(BR, IF EQUAL (OK) 

(BUMP C( JNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP CIERHRD 
. WORD 740 
.WORD T27BOT 
.WORD EXPREC 
40$: CKLOOP (LOOP IF SELECTED 

TRAP C$CLP1 
(NUMBER OF RECORDS TO BE WRITTEN 
(STARTING WRT.TE BUFFER ADDRESS 



«100. .R3 
FREE,T27WB 



SEQ 281 



I<6 



TSV7 - HARDUARF. 


TESTS 1 


-8 


TEST 7; 


WRITE 1 


DATA RETRY 


10001 








10002 








10003 








10004 








10005 








10006 








10007 


10023^ 


012737 


140005 


10008 


100242 


012704 


101660' 


10009 


100246 


012737 


000024 


10010 


100254 


010465 


000000 


10011 


100c60 


004737 


016150' 


10012 


100264 


016501 


000002 


10013 


100270 


012702 


000200 


10014 


1002"'4 


020102 




10015 


100276 


001406 




10016 


100300 


005237 


002212* 


10020 


100304 








100304 


104456 






100306 


001345 






100310 


005103' 






100312 


011746' 




10021 


100314 








100314 


104406 




10022 


100316 


005303 




10023 


100320 


001345 




10024 








10025 








10026 








10027 








1002B 








10029 








10030 








10031 


100322 


004737 


01071C' 


10032 


100326 


103411 




10033 


100330 


016501 


000002 


10034 


100334 


010004 




10035 


100336 


005237 


002212' 


10039 


100342 








100542 


104456 






100344 


001346 






100346 


103065' 






100350 


011746' 




10040 


100352 








100352 


104406 




10041 








10042 








10043 








10044 








10045 








10046 








10047 








10040 


100354 


013701 


101560' 


10049 


100560 


010102 




10050 


100362 


052702 


000002 


10051 


100366 


020102 




10052 


100370 


001406 




10053 


100372 


005237 


002212' 
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SEQ 282 



I WRITE DATA.ACK.CVC-1 COMMAND 
; 

101660' 65$: MOV #140005, T27PK3 jWRITE DATA, ACK ,CVC-1 COMMAND 

(SET UP R4 WITH PACKET ADDRESS 
101666' MOV #20.,T27SZ iSET UP RECORD SIZE IN PACKET 

jISS'JE COMMAND 
;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
(SET UP EXPECTED 
|A:^E THEY EQUAL 
I BR. IF OK 
(BLIMP COUNT 
;TSSR INCORRECT AFTER WRITE DATA 

TRAP CJERHRD 
.WORD 741 
.WORD WRTERR 
.WORD PKTSSR 
70 J; CKLOOP (LOOP IF SELECTED 

TRAP C$CLP1 
R3 (DEC RECORD COUNTER 

65$ iBR. IF MORE RECORDS TO WRIT- 



MOV 


#140005. T27PK3 


MOV 


#T27PK3.R4 


MOV 


#20. »T27SZ 


MOV 


R4.TSD8(Rb) 


JSR 


PC.WAITF 


MOV 


TSSR(R5)»R1 


MOV 


#SSR,R2 


CMP 


R1.R2 


BEQ 


70$ 


INC 


FATFLG 



ERRHRD ERRNO, WRTERR, PKTSSR 



CKLOOP 

DEC 

BNE 



! ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
t 

(CALL TAPE REWIND COMMAND 

(BR, IF NO PROBLEM 

(GET TSSR CONTENTS 

(GET PACKET ADDRESS 

(BUMP COUNT 

(REWIND NUT ACCEPTED 



JSR 


PC, REWIND 


BCS 


130$ 


MOV 


TSSRCR5),R1 


MOV 


R0,R4 


INC 


FATFLG 



ERRt-IRD ERRNO , T27RWN , PKTSSR 



130$: CKLOOP 



(LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
742 

T27RWN 
PKTSSR 

C$CLP1 



(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
1 

(PICK UP XSTO 

(SET UP EXPECTED 

(SET BOT BIT IN EXPJ=.CTED 

(DOES EXP ■ REC D 

I BR, IF EQUAL (OK) 

ibUMP COUNT 



MOV 


T27BFRf6.Rl 


MOV 


R1.R2 


BIS 


#6IT1,R2 


CMP 


R1.K2 


BEQ 


140$ 


INC 


FATFLG 



L6 



TSV7 - HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 



10057 



10058 

10059 
10060 
10061 
10062 
:0063 
10064 
10065 
10066 
10067 
10068 
10069 
10070 
10071 



100376 
100376 
100400 
100402 
100404 
100406 
100406 
100410 
100414 



10072 
10073 
10074 
10075 
10076 
10077 
10078 
10079 
10083 



1008^ 

10085 
10086 
10087 
10068 
10089 
10090 
10091 
10092 
1009i 
10094 
10095 
10096 
10100 



100422 
100430 
100434 
1004-:*0 
100440 
100444 
100446 
100452 
100454 
100460 
100462 
10C466 
100470 
100474 
100500 
100502 
100506 
100512 
100514 
100516 
100522 
100522 
100524 
100526 
100530 
100532 
100532 



100534 
100540 
100544 
100546 
100550 
100554 
100554 



104456 
001347 
102561' 
015374' 

104406 

012704 101660' 

012737 OOOOIO 



012737 140010 
010465 000000 
005237 101706' 



012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
016501 
03^701 
001755 
016501 
012702 
020201 
001406 
005237 

104456 

001350 
^04327 
011746 

104406 



OOOOOl 

002116' 

177772 

177756 

000002 
000200 

000C02 
000200 

002212' 



004737 O10714' 

004737 016236' 

103407 

010001 

005237 002212' 

104456 
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101662 



101660- 



ERRHRD ERRNO , T27BaT , EXPREC 



140$ t CKLOOP 

MOV 
MOV 



#T27PK3,R4 
010.T27RB 





SEQ 283 


I TAPE NOT AT BOT AFTER REWIND 




TRAP 


CIERHRD 


.WORD 


743 


.WORD 


T27B0T 


.WORD 


EXHREC 


jLOOP IF SELECTED 




TRAP 


C$CLP1 


iSET UP PACKET ADDRESS 




I SET UP RECORDS TO SPACE OVER 





t 

iACK.CVC-1, SPACE FORWARD COMMAND 
t 

;ACK.CVC-1, SPACE FORWARD COMMAND 

I ISSUE COMMAND 

(BUMP TIMER 

1 DELAY ABOUT lOOUS 





MOV 


#140010. T27PK3 


150$: 


MOV 


R4.T50BCR5) 


152$: 


INC 


T27CNT 




DELAY 


1 



MOV 


*1.CPC)* 


.WORD 





MOV 


L$OLY,(PC)t 


.WORD 





DEC 


-6(PC) 


BNE 


. -4 


DEC 


-22(PC) 


BNE 


.-20 



MOV 


TSSR(ft5), 


,R1 


BIT 


oeiT7,Rl 




BEQ 


152$ 




MOV 


TSSR(R5^ 


.Rl 


MOV 


*SSR.R2 




CMP 


R2.R1 




BEQ 


160 i 




INC 


FATFLG 





160$ 



ERRHRD ERRNO, T27SCF.PKTSSR 



CKLOOP 



(GET TSSR 

jCheck for tssr's ssr set 
(keep coiwting jntil set 

jGET status from TSSR 

I SET UP EXPECTED 

(WAS EVERYTHING OK 

J BR, IF ALL IS WELL 

I BUMP COUNT 

(SPACE FORWARD DIDN'T WORK OUT 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 



CIERHRD 
744 
T27SCF 
PKTSSR 

C$CLP1 



(ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
1 

(CALL TAPE REWIND COMMAND 

(SEE HOW TSSR IS 

,BP. IF NO PROBLEM 

(SAVE TSSR 

iBU*;P COUNT 

(REWIND NOT ACCEPTED 

TRAP 



JSR 


PC. REWIND 


JSR 


PC.CHKTSSR 


BCS 


1701 


MOV 


RO.Rl 


INC 


FATFLG 



ERRHRD ERRNO , T27HWN . PKTSSR 



C$ERHRD 



M6 



TSV" ■ HARDWARt 1EST: 
TEST 7: WRITE DATA I 



; 1-8 
lETnY 



10101 

loioa 

10103 
10104 
10105 
10106 
10107 
10108 
10109 
10110 
10111 
10112 
10113 
10114 
10118 



10119 

10120 
lOlrJl 
10122 
10123 
10124 
10125 
10126 
10127 
10128 
10129 
10130 
10131 
10x32 
10133 
10134 
10135 
10136 
10137 
1013n 
10142 



10145 

10144 
10145 
10146 

10147 
10148 
1014"^ 



100556 
100560 
100562 
100564 
100564 



100566 
100572 
100574 
100600 
100602 
100604 
100610 
1C0610 
100612 
100614 
100616 
100620 
100620 
3.00622 
100626 



100634 
100642 
100646 
100654 
100660 
100664 
100670 
100674 
100676 
100700 
100704 
100704 
100706 
100710 
100712 
100714 
100714 
100716 
100720 



001351 
103065 
011746 

104406 



013701 101560' 

010102 

052 ^02 000002 

020102 

001406 

005237 002212' 

104456 
001352 
102561' 
015374- 

104406 

012703 000144 

013737 003114' 



012737 
01270a 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001353 
O0S1O3' 
Cii746' 

104406 
005303 
001342 



140003 
101660 
000024 
000000 
016150 
000002 
000200 



MACRO M1113 Ol-FEB-84 17:54 



SEQ 284 



170$: 



CKLOOP 



I LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 



TRAP 

;READ MESSAGE BU-TER EXTENDED STATUS REGISTER ZERO CXSTO) 
t 

t ***************************************** *<(t**4t4i4i*4L4i4i,v ' ^■^********** 

iPICK UP XSTO 
J SET UP EXPECTED 
iSET BOT BIT IN EXPECTED 
(DOES EXP - RPC'D 
I BR. IF EQUAL COK) 
jBUHP COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
. WORD 
.WORD 
175$: CKLOOP (LOOP IF fiELECTED 

TRAP 
; STARTING RECORD SIZE 
I STARTING WRITE '3UFFER ADDRESS 



745 

T27RWN 

PKTSSR 

C$CLP1 



MOV 


T27BFR+6,R1 


MOV 


R1»R2 


BIS 


*6IT1,R2 


CMP 


R1,R2 


BEQ 


175i 


INC 


FATFLG 



ERRHRD ERRNO . T27B0T , EXPREC 



CKLOOP 

MOV 
MOV 



#100. ,R3 
FREE.T27WB 



C$ERHRD 
746 

T27B0T 
EXPREC 

C$CuPl 



101662' 177$: 

(********************** *4i*4i *% «4i«*« 4t 4i 4t * 4t «4i 4^ jf, j(i ,^4i 4^ iji4i4i 4^41 4,41 4, tt** ********* 

! WRITE DATA.CVC-l.ACK COMMAND 
I 

}********4 ********************************************************* 



101660' 
10166C' 



MOV 


0140005, T27PK3 


MOV 


#T27PK3,R4 


MOV 


#20. .T2;sz 


MOV 


R4,TS0BCR5) 


JSR 


PC.WAIIF 


MOV 


TSSRCR5),R1 


MOV 


*SSR.R2 


CMP 


Rl.R? 


BEQ 


180$ 


INC 


FATFLG 



ERRHRD ERRNO , WRTERR . PKTSSR 



130$ 



CKL'JOP 

DEC 
ONE 



R3 

177$ 



iWRITE O.ATA.CVC-l,ACK COMMAND 

J SET UP R4 WITH PACKET ADDRESS 

J SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

;WAIT FOR SSR TO SET 

I GET TSnR CONTENTS 

a SET UP EXPECTED 

(ARE THEY EQUAL 

I BR. IF OK 

;6UMP COUNT 

iTSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
.WORD 74 7 
.WORD WRTERR 
.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP C$CLP1 

(COUNT NUMBER OF RECORDS 

I BR. IF MORE RECORDS TO WRITE 



;***********«*4>***************************4************************ 

(ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



N6 



TSV7 HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 



10150 
10151 
1015? 
10153 
10154 
10155 
10156 
10357 
10161 



^0162 

10163 
10164 
10165 
10166 
10167 
1C168 
10169 
10170 
10171 
10172 
10173 
101/4 
10175 
10176 
10180 



10181 

10182 
10183 
10184 
10185 
10186 
10187 
10188 
10189 
10190 
10191 
10192 
10193 
10194 
10195 
'0196 
10197 
10193 
10199 
10200 
10204 



100722 
100726 
100730 
100732 
100736 
100742 
100742 
100744 
100746 
100750 
100752 
100752 



100754 
100760 
100764 
100766 
100770 
100774 
101000 
101000 
101002 
101004 
101006 
101010 
101010 
101012 
101016 



101024 
101032 
101036 
101044 
101050 
101054 
101060 
101064 
101066 
101070 
103074 
1010/4 



004737 010714' 

103411 

010004 

016501 000002 

005257 002212' 

104456 
001354 
103065' 
011746' 

104406 



012703 000001 

004737 010366' 

103411 

010004 

016501 000002 

005237 002212' 

1044S6 
001355 
104327' 
C11746' 

104406 

012703 000144 

013737 003114' 



012737 
C12704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 



101005 
101660 
000024 
000000 
016150 
000002 
000200 



002212' 



riACRQ H1113 Ol-FEB-84 17:5'* 



SEQ 285 



101662' 



; ISSUE REWIND 
I BR, IF ALL IS WELL 
;GET PACKET ADDRESS 
[GET TS5R CONTENTS 
J RUMP COUNT 
ERRHRD ERRN0.T27RWN.PKTSSR (REWIND FAILED 



JSR 


PC, REWIND 


BCS 


182$ 


MOV 


R0,R4 


MOV 


TSSRCR5).R1 


INC 


FATFLG 



182$: 



CKLOOP 



TRAP 


C*ERHR0 


.WORD 


748 


.WORD 


T27RWN 


.WORD 


PKTSSR 



(SELECT LOOP MAYBE 



TRAP CtCLPl 

•ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUH3FR OF RECORDS 

iBIT 15 SETS DIRECTION - 0-FORWARD l-REVERSE 

* 

(SPACE 1 RECORD FORWARD 
[ISSUE SPACE COMMAND 
I BR. IF COMMAND OK 
(GET PACKET ADDRESS 
(GET TSSR STATUS 
(BUMP COUNT 

(SPACE FORWARD COMMAND FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
185$: CKLOOP (LOOP IF SELECTED 

TRAP 
J NUMBER OF RECORDS TO BE WRITTEN 
(STARTING WRITE BUFFER ADDRESS 



MOV 


01. ,R3 


JSR 


PC, SPACE 


BCS 


185$ 


MOV 


R0,R4 


MOV 


TSSR(R5).R1 


INC 


FATFLG 



ERRHRD ERRN0,T27SCF» PKTSSR 



CKLOOP 

MOV 
MOV 



0100. ,R3 
FREE,T27W8 



C$ERHRD 
749 
T27SCF 
PKTSSR 

c^api 



{+*^*4>4>4>4*4444>4444>4>«*444>4i4*4>4444A*.i**i4**4i44ii: **4i4*4*****4i4 4t4i*4i4*444 

(WRITE DATA RETRY. ACK COMMAND 
I 

; 4>44'4>«4*4>**44i4^*4i4>*4>4**4>4i**4*****44444*4i*4i**4l**4i**4i4i**4i4i**44i**4l444*4 



101660' 190$: 
101666' 



MOV 0101005, T27PK3 

MOV OT27PK3,R4 

MOV 020. .T27SZ 

MOV R4,TSDB(R5) 

JSR PC.WAITF 

MOV TSSRCR5),R1 

MOV 0SSR.R2 

CMP R1.R2 

BEQ 200$ 

INC FATFLG 

ERRHRD ERRN0.T27WDC. PKTSSR 



(W^lTE DATA RETRY, ACK COMMAND 

[SET UP R4 WITH PACKET ADDRESS 

(SET UP RECORD SIZE IN PACKET 

(ISSU^ COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR. IF OK 

(BUMP COUNT 

(TSSR INCORRECT AFTER WRITE DATA 

TRAP CSERHRD 



B7 



TSV7 - HARDWARE TESTS 1-6 
TEST 7j WRITE DATA RETRY 



10205 

10206 
10207 
10208 
10209 
10210 
10211 
10212 
10213 
10214 
10215 
10216 
10217 

10216 
10219 
10220 
10221 
10222 
10223 
10227 



10228 

10229 
10250 
10251 
10252 
10255 
10254 
10255 
10256 
10257 
10256 
10259 
10240 
10241 
10242 
10246 



1024 7 

10246 
10249 
10250 
10251 
10P52 
10253 



101076 
101100 
101102 
101104 
101104 
101106 



10U14 
101122 
101126 
101154 
101140 
101144 
101150 
10X154 
101156 
101160 
101164 
101164 
101166 
101170 
101172 
101174 
101174 
101176 
101200 



101202 
101206 
10\210 
101214 
101216 
101222 
101222 
101224 
101226 
101250 
101252 
101232 



001556 

103421' 

011746' 

104406 

015737 003114 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
005257 

104456 
001357 
005103' 
011746' 

104406 
005505 
001311 



004757 
305411 
016501 
010004 
005237 

104456 
001360 
105065' 
011746' 

104406 



140005 
101660 
000024 
000000 
016150 
000002 
000200 



002212 



010714 
000002 
002212 



MACRO M1113 Ol-FEB-84 I7t54 



5EQ 266 



101662 



101660' 
101666' 



200$ t CKLOOP 

MOV FREE,T27We 



.WORD 750 

. WORD T27WDC 

.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP CICLPl 

I STARTING WRITE BUFFER ADDRESS 



iWRITE 0ATA,CVC-1,ACK COMMAND 
I 

IWRITE DATA.CVC-l.ACK COMMAND 

iSET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

(WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

I ARE THEY EQUAL 

iBR. IF 0*< 

I BUMP COUNT 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP C«ERHPO 

.WORD 751 
.WORD URTERR 
.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP CtCLPl 

R5 (BUMP DOWN RECORD COUNTER 

190$ iBR, IF MOPE RECORDS TO WRITE RETRY 



MOV 


#140005, T27PK5 


MOV 


♦T27PK3,R4 


MOV 


♦20.,T27SZ 


MOV 


R4,TS0B(R5) 


JSP 


PC.WAITF 


MOV 


TSSRf5^5),Rl 


MOV 


#SSR,R2 


CMP 


Rl,R2 


BEQ 


2109 


INC 


FATFLG 



ERRHRO ERRNO.WRTERR. PKTSSR 



210$: CKLOOP 

DEC 
8NE 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
1 

iCALL TAPE REWIND COMMAND 

I BR. IF NO PROBLEM 

iGET TSSR CONTENTS 

|G£T PACKET ADDRESS 

I BUMP COUNT 

IREWINO NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


250$ 


MOV 


TSSR(R5).R1 


MOV 


K0,R4 


INC 


FATFLG 



230$ 



ERRURD ERRN0.T27RWN. PKTSSR 



CKLOOP 



iLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 

V52 

T27RUN 

PKTSSR 

C»CLP1 



jREAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTQ) 
1 



:^? -7^'^B8^rDXfS^§ElR 



C7 



102S4 
1025b 
10256 
10257 
1025e 
10259 
10260 
1026^ 



10265 

10266 
10267 
10268 
10269 
10270 
10271 
10272 
10273 
10274 
10275 
10276 
10277 
10276 



10279 
10260 
10281 
10282 
10263 
10284 
10285 
10286 
10290 



10291 

10292 
10293 

10294 
10295 

10296 
10297 
10298 



101254 
101240 
101242 
101246 
101250 
101252 
101256 
101256 
101260 
101262 
101264 
101266 
101266 
101270 
101274 



101302 
101310 
101314 
101320 
101320 
101324 
101326 
101332 
101334 
101340 
101342 
101546 
101350 
101354 
101360 
101562 
101366 
101372 

ioi:;/4 

101376 
10140.? 
101402 
101404 
101400 
101410 
101412 
101412 
101414 
101420 
101424 
101426 
101430 
101432 
101436 



013701 101560' 

010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001361 
102561" 

C15374' 

104406 

012704 101660 

012737 000010 



012737 
010465 
005237 

012727 
000000 
013727 
000000 
005367 
001375 
C05367 
001567 
016501 
032701 
001755 
016501 
012702 
020201 
001406 
003237 

104456 
001562 
10452/ 
011746 

104406 
015701 
013702 
160102 
160102 
160102 
042702 
042701 



140010 
000000 
101710' 

000001 

002116' 

177772 

177756 

0OCO02 
000200 

0OOC02 
000200 

002212 



101706 
101710 



000077 
000777 



MACRO M1115 Ol-FEB-84 I7i54 



SEQ 287 



MOV 


T27BFR*6,R1 


MOV 


R1,R2 


eis 


^ITl,R2 


CMP 


R1.R2 


BEQ 


240$ 


INC 


FATKLG 


ERRHRD 


ERRN0»T27B0T.EXPHEC 



101662 



240*1 CKLOOP 

MOV 
MOV 



♦T27PK3,R4 
*10.T27RB 



iPICK UP XSTO 

iSET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

iDOEb EXP - REC'D 

iBR. IF EQUAL COK) 

I BUMP COUNT 

(TAPE NOT AT BOT AFTER REUINO 

TRAP 
.WORD 
.WORD 
.UORO 

TRAP 

I SET UP PACKET ADDRESS 
J SET UP RECORDS TO SPACE OVER 



iLOOP IF SELECTED 



OERHRO 
755 

T27B0T 
EXPREC 

CICLPl 



IaCK,CVC-1. SPACE FORWARD COMMAND 
I 



101660' 



250$: 
252$! 



MOV 0140010. T27PK3 

MOV R4,TS0eCR5) 

INC T27CNU 

DELAY 1 



FORWARD COmANO 


IS 

MOV 


OI.CPO* 


.WORD 





MOV 


LSDLY.CPO* 


.WORD 





DEC 


-6(PC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


.•20 



MOV 


TSSR(R5),R1 


BIT 


•eiT7,Rl 


BEQ 


252$ 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R2.RI 


BEQ 


260$ 


INC 


FATFLG 


EHRHRO 


ERRN0,T27SCF,PKTSSR 



260$ 1 CKLOOP 



MOV 


T27CNT,R1 


MOV 


T27CN*.l,R2 


SUB 


RI.R2 


SUB 


R1.R2 


SUB 


R1.R2 


BIC 


077.R2 


8IC 


#000777, Rl 



lACK.CVC-l.SPACE 
I ISSUE COMMAND 
I BUMP TIMER 
(DELAY ABOUT lOOUS 

(GET TSSR 

(CHECK FOR TSSR'S SSR SET 

(KEEP COUNTING UNTIL SET 

(GET STATUS FROM TSSR 

(SET UP EXPECTED 

(WAS EVERYTHING OK 

(BR. IF ALL IS WELL 

(BUMP COUNT 

(SPACE FORWARD DIDN'T WORK OUT 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 

(TIME FOR WRITE SPACING 

(TIME FOR WRITE RETRY SPACXNG 

(GET' EM PRETTY CLOSE 

iGET'EM PRETTY CLOSE 

iGET'EM PRETT> CLOSE 

(CLFAR LOW 6 BITS 

iSEVTING UP CONSTANTS 



C$ERHRO 
754 

T27SC*' 
PKTSSR 

C$CiLPl 



]m ■7im^^'-Diwk\n^ 



D7 



MACRO M1113 Ol-FEB-84 17:54 



SEQ 288 



10399 


101442 


020102 


10300 


10144A 


002006 


10501 


101446 


0052S7 002212' 


10305 


101452 






101452 


104456 




101454 


001363 




101456 


.102654' 




101460 


015374' 


10306 


101462 






101462 


104406 


10307 


101464 
101464 






101464 


104405 


10306 


101466 


023V27 002212- 


10309 


101474 


103402 


10310 


101476 


004737 017104' 


10311 


101502 




10312 






10il3 






10314 






10315 


101502 


004757 0i6?60' 


10316 


101506 


105002 


1031 r 


101510 


000137 075vM6' 


i03ia 


101514 




10319 


101514 






101514 


104432 




101516 


003324 


10320 






10521 






10322 






10323 






10325 


101520 




10327 


101530 




10328 


101550 


100004 


10329 


101532 


101540' 


10350 


101554 


C-OOOOO 


10331 


101536 


000012 


10332 


10154C 




10333 


101510 


iciss;?' 


10334 


101542 


00000\» 


10335 


101544 


00*>0;?4 


10336 


101546 


000000 


10337 


101550 


000000 


10338 


101552 




10339 






10340 






10341 






10343 


101654 




10545 


101640 




10346 


101640 


10000. 


10547 


101642 


101670' 


10348 


101644 


ooocoo 


10349 


101646 


000006 


10550 






10352 


101650 




10554 


101660 




10355 


101660 


100005 



000017 





CMP 
BGE 
INC 
ERRHRO 


R1.R2 

3001 

FATFLG 

ERRN0,T27TIhuEXPREC 


300$ J 


CKLOOP 
ENDSUe 




999$ t 
I 


CMP 
BLO 
JSR 


FATFLG, #15. 

999$ 

PC.CKDROP 


t 
1 


JSR 
BCC 
JMP 


PC.TSTLOOP 

163$ 

T27L00P 



163$! 



EXIT 



TST 



JlOCAL STOf^..'*.^^. FOR THIS TEST 
I - 

,BLK„ 10-<. -TSVafi7> 
T27PACKET: 

. WORD 100004 

.yORO T270ATA 

.WORD 

.WORD 10. 
T27DATA: 

.WORD T27BFR 

.WORD 

.WORD 20. 

.WORD 
T270SW: .WORD 
T27BFRJ .BLKW 25. 

I WRITE SUBSYSTEM MEMORY COMMAND PACKET 

10-'. -TSV2£7> 



T27PK2: 



T27Pl<5i 



.BLKB 

.WORD 
.WORD 
.WORD 
.WORD 

.BLKB 

.WORD 



100006 

T27BF2 



6. 

10-<. 'TSV2fi7> 

100005 



(CHECK FOR DIFFERENCE 

I BR, IF GOOD 9S86) CHECK 8QS9 

I BUMP COUNT 

(TIME WAS NOT DIFFERENT ENOUGH 

TRAP CIERHfiD 
. WORD 755 
.WOPO T27TIM 
.WORD EXPREC 

(LOOP IF SELECTED 

TRAP C$CLP1 

l<<<<<<<<<<<<< END SUBTEST >>>>>>>>>>>> 

L10127: 

TRAP C$ESUB 
lis ERROR COUNT AT 25 
I BR, IF LESS THAN 25 
eTRY TO DROP THE UNIT 



(00 WE NEED TO ITERATE TEST 
(BR, IF NO LOOP REQUIRED 
(EXECUTE AGAIN 



(ALL DONe THIS TEST 



TRAP 
• WORD 



C$EXIT 

L10122 



(COMMAND PACKET FOR TE5T 

(WRITE CHARACTERISTICS COMMAND. WITH , 

(ADDRESS or CHARACTERISTICS BLOCK 



ACK 



(STARTING 
(CHARACTERISTICS 
(ADDRESS OF 



VALUE 



OF BLOCK SIZE 
DATA RLiKK 
MESSAGE BUfFER 



(LENGTH OF MESSAGE BUFFER 

(SELECT DRIVE 
(MESSAGE SUFFER 



(WRITE SUB SYS MEM COMMAND, AND ACK 
(ADDRESS OF SELECT BLOCK DATA 

(SIZE OF DATA PACKET 



(REREAD COMMAND, AND ACK 



1 ;V7 - HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 



E7 



MACRO M1113 Ol-rEB-64 17:54 



SEQ 289 



10356 
10357 
10558 
10359 
10360 
10361 
10362 
10365 
10364 
10365 
10366 
10367 
10368 
10369 
10370 
10371 
10372 
10373 
10374 
10375 
10376 
10377 
10378 
10379 
10380 
10381 
10382 
10383 
10384 
10385 
10386 
10387 
.10388 
10389 
10390 
10391 
10392 
10393 
10394 
10395 
10396 
10397 
10398 
10399 
10400 
10401 
10402 
10405 
10404 
10405 
10406 
10407 
10408 
10409 
10410 
10411 

10412 



101662 
101662 
101664 
101666 



101670 
101670 
101671 
101672 
10X674 



101676 
101700 
101702 
101704 



101706 
101710 
101712 



10171a 
102002 
102051 
102146 
102250 
102300 
102355 
102436 
102472 
102561 
102654 
102731 
103010 

io::;o65 

103134 
103207 
103256 
103331 
105421 
103474 
103547 
103622 
103711 



003114 
000000 
000000 



010 

200 

000000 

000000 



100205 
100605 
102205 
177777 



000000 
000000 
000000 



124 
124 
122 
120 
122 
124 
111 
122 
124 
124 
127 
122 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
122 



141 
123 
105 
117 
111 
123 
154 
105 
123 
141 
122 
105 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 



160 
123 
122 
125 
102 
12.* 
154 
122 
123 
160 
111 
122 
123 
167 
115 
123 
151 
125 
125 
105 
102 
111 
141 



FREE 







T27RB: 
T27WB: 

T27SZ: 

I 
I 

T27BF2 

T27BS0 

T27BS1 

T27S2: 

T27S3: 

I 

i 

.EVEN 
iTAPE MOTION PACKET COMMAND VALUES 

T27RN: .WORD 100205 

T27W0Rt .WORD 100605 

T27C0N: .WORD 102205 

.WORD 177777 



.WORD 
.WORD 
.WORD 
,EVEN 



.BYTE 
.BYTE 
.WORD 
.WORD 



(ADDRESS OF WRITE BUFFER 
(SIZE OF BUFFER (EXTENT) 



10 
200 





iDSEI-0 AREA 
iBSELl AREA 
iSEL 2 AREA 
(DATA AREA 



T27CNT: .WORD 
T27CNUI .WORD 
T27DLY: .WORD 



(REREAD DATA (NEXT) 
(REREAD DATA RETRY 
(WRITE CONTINGUS 
(END OF DATA 



(TAPE TIMER COUNTER STORAGE AREA 
(TAPE TIMER COUNTER STORAGE AREA 
(DELAY COUNTER 



(LOCAL TEXT MESSAGES FOR TEST 
( - 



T27WNG! 

T27R0F: 

T27RRF: 

T27SC: 

T27L0R: 

T27WDF: 

T27L0Q: 

T27SSR: 

T27WDE: 

T27B0T: 

T27TIM; 

T27E0T! 

T27TM: 

T27RUN: 

T27RNC: 

T27AM3: 

T270FL: 

T27W00: 

T27WOC: 

T27VCK: 

T27EA: 

T27WSSI 

T27L0N: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



Tap« Position Incorrect After REREAD Previous (0PP"1)' 

TSSR Incorrect After READ DATA CowMnand' 

REREAD Previous (Space Reverse, Read Forword) Comnond Failed' 

POSITION (Space Cowwvand) Failed. TSSR Net Correct' 

RID NOT SET AFTER READ RtVERSE INTO BOT' 

TSSR Not Correct After Illegal Mode Bite Set' 

Illeoal Mode Bite, Failed To Set ILC Bit In XSTO' 

REREAD COMMAND Not Accepted' 

TSSR Not Correct After WRITE DATA RETRY Command, At BOT- 

Tape Not At BOT A.'ter REWIND Command (BOT Not Set In XSTO)' 

WRITE DATA RETRY' 'S Erase Tape Not Long Enough' 

REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT* 

TSSR Not Correct After REREAD COMMAND Reject* 

Rewind (POSITION) Command Not Accepted' 

RAM Error, Correct Data Pattern Not In Ram' 

TSSR Init. Failed After REREAD COMMAND* 

Drive 7 Select Failed To Set "OFL" In TSSR' 

TSSR Not Correct After f^EREAO DATA Command, 

REREAD DATA Command' 

VCK In Messaoe Buffer' 

REREAD DATA Command' 

CofTvnand Not Accepted (.RAM Ri^ad) 



TSSR Not Correct After 
CVC Set, Didn' 't Reset 
TS3A Not Correct After 
WRITE SUBSYSTEM MEMORY 



bWB Bit Set 



Reading Long Record Failed To Set RLL Bit In XSTO 



F7 



TSV7 - HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 



MACRO M1113 Ol-FEB-84 17:54 



SEQ 290 



10413 
10414 
10415 
10416 
10417 
10418 
10419 
10420 
10421 
10422 
10423 
10424 
10425 
10426 
10427 
10428 
10429 
10430 
10431 
10432 
10433 
10434 
10435 
10436 
10437 
10438 
10439 
10440 
10441 
10442 
10443 
10444 
10445 
10446 
10447 
10448 
10449 
10450 
10451 
10452 
10453 
104S1 
10455 
10456 
10457 
10458 
10459 
10460 
10461 
10462 
10463 
10464 
10465 
10466 
10467 
10468 
10469 



103773 
104055 
104143 
104231 
104327 
104404 
104466 
104546 
104643 



104664 
104664 
104670 
104674 
104700 
104704 
104706 
104712 
104716 
104720 
x04724 
104726 
104732 
104736 
104744 
104746 
104752 
104754 



104756 
104756 
104 762 
104766 
104 772 
104776 
105000 
105004 
105006 
105012 
105014 
105016 
105020 
105020 
105024 
lo5030 
105032 
105034 
105036 
105040 



122 
122 
122 
127 
124 
124 
124 
104 
127 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



145 
145 
145 
122 
123 
123 
123 
141 
162 



141 
163 
141 
111 
123 
123 
123 
164 
151 



T27L0P: 
T27PBP: 
T27TRLt 
T27NEF t 
T27SCF ! 
T27TSA: 
T27WRF : 
T270TA! 
TST27ID! 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ACCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



Reading Long Record FaiUd To Set RLS B i t In XSTO' 

Residual Byte Count Incorrect After Short Record Read' 

Reading Long Record Failed To Give Tape Status Alert' 

WRITE DATA RETRY, At F i ret Record. Failed To Set RIB Bit XST3 

TSSR Not Correct After SPACE RECORDS Cofiwnand' 

TSSR Not Correct After WRITE DATA RETRY c Into BOT' 

TSSR Not Correct After WRITE DATA RETRY Command' 

Data Compare Error, Data Rtsad From Tap«r Not Equal To Written' 

ASCIZ 'Write Data Retry' 



101530' 

100004 

101540' 

000012 
101552' 

000024 

000000 
000030 
177777 

000000 



101552 



101640' 

100006 

101670 

000006 

101670 



101660' 



(ROUTINE TC RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
t WRITE SUBSYSTEM MEMORY COMMAND 



I SAVE THE REGISTERS 

I START OF THE PACKET 

I WRITE SUBSYSTEM MEM. WITH ACK. 

(ADDRESS OF CHARAISTICS DATA BLOCK 

(EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

t ADDRESS OF MESSAGE BUFFER 

(LENGTH OF MESSAGE BUFFER 

(SELECT DRIVE ZERO 

(NUMBER OF LOCATIONS TO BE CLEARED 

(ALL ONES TO MESSAGE BUFFER 

(NEXT LOCATION 

(AT END OF LOOP YET 

(KEEP GOING UNTIL DONE 

(RETURN 



(SAVE THE REGISTERS 

(START OF THE PACKET 

(WRITE SUBSYSTEM MEM. WITH AC(<, 

(ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

(POINT TO DATA SEL AREA 



(RETURN 

(SAVE REGISTERS 

(LET UP POINTER ADDRESS 

(CCilMAND SPACE 

(ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA TRANSFER BLOCK 

(RETURN 



( 
( - 




T27REST: 




SAVREG 




MOV 


#T27PACKET.R1 


MOV 


#100004. CRD* 


MOV 


*T27DATA,CR1)* 


CLR 


(Rl)f 


MOV 


#10. .CRD* 


MOV 


#T27BFR,CRl)t 


CLR 


CRD* 


MOV 


#20., CRD* 


CLR 


CRD* 


MOV 


#O.CRD 


MOV 


#24.. R2 


64*! MOV 


#177777, T27BFRCR2) 


TST 


-CR2) 


CMP 


#0,R2 


BNE 


64$ 


RTS 


PC 


T27RT2: 




SAVREG 




MOV 


#T27PK2,R1 


- MOV 


#100006, CRD* 


MOV 


#T27BF2.CRi)* 


CLR 


CRD* 


MOV 


#6. .CRD* 


CLF. 


CRD* 


MOV 


#T27BF2,R1 


CLR 


CRD* 


CLR 


CRD 


RTS 


PC 


T27nT3: 




SAVREG 




MOV 


#T27PK3,Rl 


CLR 


CRD* 


CLR 


CRD* 


CLR 


CRD* 


CLR 


CRD 


RTS 


PC 



G7 



TSV7 - HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 



MACRO M1113 Ol-FEB-8^ 17t54 



SEQ 291 



10470 


105042 
105042 








ENDTST 

L10122i 






105042 


104401 






TRAP 


CJETST 


10471 














10472 










.SBTTL TEST 8: WRITE/READ TAPE MARK 




10473 








t + 






10474 








i 






10475 








(THIS 


TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES 




10476 








(PROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE 




10477 








iBY CHECKING THAT THE READ AND SPACE REC.:RDS COMMANDS DETECT THE 




10478 








I TAPE 


MARK, IN ADDITION. SINCE WRITE TAPE MARK IS THE FIRST 




10479 








I SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED. IT IS VERIFIED 




10480 








(THAT 


THE CLEAR VOLUME CHECK CCVC) BIT OPERATES PROPERLY AND THAT 




10481 








(FORMAT COMMArcS WITH ILLEGAL MODE CODES ARE REJECTED, 




1048;? 








t 






10483 








t 






10484 








I THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 




10485 








t 






10486 








1 






10487 








t 






10488 








1 - 






10489 


105044 
105044 








BGNTST 

rS:: 




10490 


105044 


012737 


006256' 002170' 




MOV «tPRT2,EPRTSW (SECONDARY ERROR MESSAGE 




10491 


105052 


005037 


003124* 




CLR KTENABLE (TURN KTll OFF 




10492 


105056 


004737 


017176' 




JSR PC.KTOFF (TURN KTll BACK OFF IF THERt 




10497 


105062 


012700 


112301' 




MOV #TST28ID.R0 (ASCII MESSAGE TO IDENTIFY TEST 




10498 


105066 


004737 


016412' 




JSR PC.TSTSETUP (00 INITIAL TEST SETUP 




10499 


105072 


012737 


000005 002206' 




MOV «5,L00PCNT (PERFORM 5 ITERATIONS 




10500 








J f 






10501 








t 






10502 








(TEST 


8, SUBTEST 1 




10503 








t 






10504 








1 






10505 








(VERIFIES THAT A FORMAT COMMAND (WITH ANY LEGAL MODE 




10506 








(CODE) WITH THE CLEAR VOLUME CHECK CCVC) BIT CLEAR IS 




10507 








(REJECTED IF THE VOLUME CHECK CVCK) FLAG IS SET. ALL 




10508 








(VALID MODE COOES ARE CHECKED. 




10509 








1 






10510 








w 

I 






10511 








I - 






10512 








w 






10513 


105100 






T28L00P: 




10514 


105100 








BGNSUB (>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 




105100 








T8.1: 






lOSHX) 


104402 






TRAP 


C$BS'J6 


10515 


105102 


004737 


112326' 




JSR PC.T28REST jSET COMMAND PACKET 




i0516 


105106 


004737 


112420' 




JSR PC,T28RT2 (SET UP OTHER COMMAND PACKET 




10517 


105112 


004737 


112462' 




JSR PC,T28RT3 :SET UP OTHER COMMAND PACKET 




10518 


105116 


004737 


015674' 




J5R PC.SOFINIT (DO INITIALIZE ON CONTROLLER 




10519 


105122 


103407 






BCS 20$ (BR IF INIT WAS CK 




10520 


105124 


005237 


002212' 




INC FATFLG (BUMP COUNT 




10524 


105130 


010001 






MOV RO.Rl (CONTENTS OF TSSR REGISTER 




10525 


105132 








ERRDF EHRNO,SFIERR»SFIMSG jFATAL ERROR TSSR WAS NOT OK 






105132 


104455 






TRAP 


CJl-'>DF 




105134 


001441 






.WORD 


801 




105136 


003642' 






.WORD 


SFIERR 



H7 



TSV7 - HARDWARE TESTS 1-8 
TEST 8; WRITE/READ TAPE MARK 





105140 


011734' 




10526 


105142 


012757 


000007 110260' 


10527 


105150 


012704 


110240' 


10528 


105154 


004737 


010562' 


10529 


105160 


103407 




10530 


105162 


005237 


002212' 


10534 


105166 


010001 




10535 


105170 








105170 


104456 






105172 


001442 






105174 


005046' 






105176 


011734- 




10536 


105200 








105200 


104406 




10537 


105202 


005737 


002216' 


10538 


105206 


001044 




iissg 








10540 


105210 


112737 


000200 110401 


10541 


105216 


112757 


000010 110400' 


10542 


105224 


012704 


110350' 


10543 


105230 


010465 


000000 


10544 


105234 


004737 


016236- 


10545 


105240 


103407 




10546 


105242 


OlOOOi 




10547 


105244 


005237 


002212- 


10551 


105250 








105250 


104456 






105252 


001443 






10S254 


111075' 






105256 


011746' 




10552 


105260 








105260 


104406 




10553 


105262 


012704 


110240- 


10554 


105266 


012737 


000007 110260' 


1C555 


105274 


004737 


010562- 


10556 


105300 


103^07 




10557 


105302 


005237 


002212' 


10561 


105306 


010001 




10562 


105310 








lOScSlO 


104456 






105312 


001444 






105314 


005046' 






105316 


011754- 




10563 


105320 








105320 


104406 




10564 


105322 


016501 


000002 


10565 


105326 


032701 


000100 


10566 


105332 


001006 




10567 


105334 


005237 


002212' 


10571 


105340 








105340 


104455 






105342 


001445 






105344 


111430' 






105346 


011734' 




10572 


105350 








105350 


104406 




10573 


105352 


012703 


110416' 



MACRO M1113 01-FEB- 


64 


17:54 


110260' 20$! MOV 

MOV 
JSR 
BCS 
INC 
MOV 
ERRHRD 


*7,T28DSW 

*T28PACKET,R4 

PC.WRTCHR 

24$ 

FATFLG 

RO.Rl 

ERRNO . WRTMSG . SKIMSG 



24$ 



30$: 



CKLOOP 

TST 
BNE 

MOVB 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

INC 

ERRHRD 



CKLOOP 



50$: 



CKLOOP 

MOV 
BIT 
BNE 
INC 
ERRDF 



60$: 



EXTFEA 
50$ 

*2C0,T28BS1 

nO,T28BS0 

«T28PK2,R4 

R4.TSD8(R5) 

PCCHKTSSR 

30$ 

RO.Rl 

FATFLG 

ERRNO, T28SSR,PKTSSR 



MOV 


0T28PACKET,R4 


MOV 


♦7,T28DSW 


JSR 


PC.WRTCHR 


BCS 


50* 


INC 


FATFLG 


MOV 


RO.Rl 


ERRHRD 


ERRNO, WRTMSG, SFIMSG 



TSSR(R5).R1 

*0FL,R1 

60$ 

FATFLG 

ERRNO. T280FL, SFIMSG 



CKLOOP 

MOV ftT28RN.R3 



SEQ 292 



.WORD SFIMSG 
I SET UP DRIVE NUHBER 
(SUBROUTINE NEEDS PACKET ADDRESS 
(ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 
(BUMP COUNT 

I SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC 



FAILED 
TRAP 
.WORD 
.WORD 
.WORD 



(CHECK FOR EXTENDED 
(BR IF SWITCH IS ON 



TRAP 
FEATURES 



SW 



C$ERHRD 
802 

WRTMSG 
SFIMSG 

C$CLP1 
SWITCH 



(WRITE MISCELLANEOUS CONT/READ STATUS 
(FUNCTION SELECTION BIT (TURN ON EXTFEA 
(WRITE SUBSYS MEM PACKET 
(ISSUE COMMAND 
(WAIT FOR SSR 
(BR. IF NO ERROR 
(ERROR. SAVE TSSR 
(BUMP COUNT 

(TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP C$EKHRD 



HW SWITCH) 



TRAP 
.WORD 
.WORD 
.WORD 



C$EKHRD 
803 
T28SSR 
PKTSSR 



(LOOP IF SELECTED 

TRAP C$CLPl 

(SUBROUTINE NEEDS PACKET ADDRESS 
(SELECT DRIVE 7 
(ISSUE WRITE CHARACTERISTICS 
(BR, IF COMMAND ISSUED OK 
(BUMP COUNT 

(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC 



(SCOPE LOOP 



FAILED 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
804 

WRTMSG 
SFIMSG 



(GET TSSR CONTENTS 
(CHECK FOR THE OFFLINE BIT SET 
(BR. IF OFFLINE (GOOD) 
(BUMP COUNT 

(OFF LINE SHOULD HAVE BEEN SET 

TR 



TRAP C$CLP1 



(LOOP IF SELECTED 
(POINTER FOR COMMANDS 



TRAP 
.WORD 
.WORD 
.WORD 



CBAD) 
C$EROF 
805 

TaaCFL 
SFIMSG 



TRAP C$CLP1 



17 



TSV7 - HARDWARE TESTS 1-8 
TEST 8: WRITE/READ TAPE MARK 



MACRO M1113 Ol-FEB-84 17!54 



SEQ 293 



10574 
10575 
10576 
10577 
10578 
10579 
10580 
10581 
10582 
10586 



10587 

10568 
10589 
10590 
10591 
10592 
10593 



10S94 
10595 
10596 

10597 
10598 
10599 
10600 
10601 
10602 
10603 
10604 
10605 
10606 
10607 
10608 
10609 
10610 
10611 



10612 
10613 
10614 
3 0615 
10616 
10617 
10621 
10622 



10625 



105356 
105362 
105366 
105372 
105376 
105402 
105406 
105410 
105^12 
105416 
105416 
105420 
105422 
105424 
105426 
1054^6 
105430 
105432 
105436 
105440 
105442 
105442 
105442 
105442 
105444 
105452 
105454 
.r05460 



105460 
105460 
105460 
105462 
105466 
105472 
1054 76 
10550.-' 
105504 
105510 
105512 
105512 
105514 
105516 
105520 
105522 



011337 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001446 
111304' 
011746' 

104406 
005723 
022715 
001401 
000746 



110370' 

110370' 

000000 

016150' 

000002 

100306 



002212' 



65$: 



80$: 



MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



CR3).T28PK3 

«T28PI<3,R4 

R4,TS0BCR5) 

PC.WAITF 

TSSR(R5).R1 

*SSR!SC!OFL 

R1,R2 

80* 

FATFLG 

ERRN0.T28TM 



177777 



90$: 



TST 


CR5)* 


CMP 


#177777. (R3 


BEQ 


90$ 


BR 


65$ 



104405 

023727 002212' 000017 

103402 

004737 017104' 



ENOSUB 



CMI^ 
BLo 
JSR 



FATFLG, ^15. 

999$ 

PC.CKDROP 



999$: 

J TEST 8, SUBTEST 2 

t 

(VERIFIES THAT A FORMAT COMMA^^ WITH AN ILLEGAL MODE 

(CODE CAUSES FUNCTION REJECT TERMINATION WITH THE 

(ILLEGAL COMMAND (ILC) ERROR BIT SET. ALL ILLEGAL 

(MODE COOES ARE CHECKED. 

1 

; 

t 



(TAPE READ COMMAND IN PLACE 

|R4 ■ POINTER TO PACKET 

I ISSUE COMMA^IO 

iWAIT FOR SSR TO SET 

I GET TSSR CONTENTS 
•BIT1!BIT2,R2 iSET UP EXPECTED 

jARE THEY EQUAL 

iBR, IF OK ESP. FUNCTION REJECT 

I BUMP COUNT 
.PKTSSR I TSSR INCORRF.CT AFTER FORMAT CMO 



I LOOP IF SELECTED 

(POINT TO NEXT COMMA.SO 

(END OF THE COMMANDS YET 

I BR. IF DONE 

•MORE COMMANDCS) TO GO 



!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>> 

L10131: 

TRAP LSESU8 
(IS ERROR COUNT AT 25 
(BR, IF LESS THAN 25 
(TRY TO DROP THE UNIT 



TRAP 


C$ERHRO 


.WORD 


eoe 


.WORD 


T2dTM 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



104402 

004737 112326' 

004737 112420- 

004/37 112462' 

004737 015674' 

105407 

005237 002212' 

010001 

104455 

001447 

003642' 

011734' 

013737 002172' 110260 



BGNSUB 




,>>>>>>>>v>>> BEGIN SUBTEST 






T8.2t 






TRAP 


JSR 


PC.T28REST 


(SET COMMAND PACKET 


JSR 


PC,T28RT2 


[SET UP OTHER COMMANT PACKET 


JSR 


PC,T28RT3 


(SET UP OTHER COMMAND PACKET 


JSR 


PC.SOFINIT 


(DO INITIALIZE ON CONTROLLER 


BCS 


20$ 


iBR IF INIT WAS (iK 


INC 


FATFLG 


iB^n%> COUNT 


MOV 


RO.Rl 


iCUNTENTS OF TSSR REGISTER 


ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR W.^ NOT OK 



>>>>>>>>>>•>> 



CJBSUB 



20$: 



MOV 



UN1TN.T28DSW 



(SET UP DRIVE NUMBER 



TRAP 


C$ERDF 


.WORD 


807 


.WORD 


SFIERR 


.WORD 


SFIMSG 



J7 



TSV7 - HARDWARE TESTS 1-8 
TEST 8: WRITE/READ TAPE MARK 



106PS 
10C26 
106^7 
10651 
10632 



10633 

10634 
10635 
10636 
10637 
10638 
10639 
10640 
10641 
10642 
10643 
10644 
1064S 
10649 



10650 

10651 
10652 
10653 
10654 
10655 
10656 
10660 



10661 

10662 
10663 
10664 
10665 

10666 



1066? 
10668 
10669 
10670 
106/1 



105530 
105534 
105540 
105542 
105546 
105550 
105550 
105552 
105554 
105556 
105560 
105560 
105562 
105566 
105572 
105600 
105604 
105612 
105616 
105622 
105626 
1056S2 
1056 ,M 
10563O 
105642 
105642 
105644 
105646 
105650 
105652 
105652 
105654 
105660 
105662 
105666 
105670 
105672 
105676 
105676 
105700 
105702 
105704 
105706 
105706 
105710 
105712 
105716 
105720 
105720 
105722 
105722 
105722 
105724 
105 732 
105734 
105740 



110372 



012704 110240' 

004737 010562' 

103407 

005237 002212* 

010001 

104456 
001450 
005046' 
011754' 

104406 

012703 110406- 
011337 110370' 
013737 003114' 

012704 110370' 
012737 000400 110376 
010465 000000 
004737 016150' 
016501 000002 
012702 100206 
020102 

001406 

005237 002212' 

104456 
001451 
110737' 
011746' 

104406 

013701 110270' 

010102 

052702 001000 

020102 

101406 

005237 002212' 

104456 
001452 
111014' 
015374- 

104406 

005723 

021327 177777 

001323 

104406 



MACRO H1113 


01-FEB- 


84 


17:54 




MOV 




flT28PACKET,R4 




JSR 




PC.WRTCHR 




BCS 




24 ( 




INC 




FATPLG 




MOV 




RO.Rl 




ERRHRD 


ERRNO.WRTMSG.SFIMSG 



SEQ 294 



24$: 



30$: 



CKLOOP 



MOV 


<?T28IMV,R3 


MOV 


CR3),T28PK3 


MOV 


FREE , T28RB 


MOV 


«T28PK3,R4 


MOV 


*256.,T28SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


*SSR!SC!BIT1!BIT2.R2 


CMP 


R1,R2 


BEQ 


751 


INC 


FATFl.G 


ERRHRD 


ERRN0,T26W0F.PKTS5R 



75$: 



180*: CKLOOP 



190$: 



TST 
CMP 
BNE 
CKLOOP 

ENDSU6 



104403 
023727 
10340? 
004737 



002212' 000017 
017104' 



iSUBROUTINE NEEDS PACKET ADDRESS 

(ISSUE WRITE CHARACTERISTICS 

(BR. IF COMMAND ISSUED OK 

|3UMP COUNT 

(SAVE CONTENTS OF TSSR 

(WRITE CHAPACTERISTISC FAILED 

•^RAP 
.WORD 
.WORO 
.WORD 

(LOOP IF SELECTED 

TRAP 

(SET POINTER FOR COMMANDS 

(SET UP NEXT COMMAND 

(STARTING WRITE BUFFER ADDRESS 

(SET UP RC WITH PACKET ADDRESS 

(SET UP RECO;^D SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR!BITl!Bir2 TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR. IF OK 

(BUMP COUNT 

(TSSR INCORRECT AFTER READ DATA 



CIERH^nD 
808 

WRTMSG 
SFIMSG 

C$CLP1 







TRAP 


CICRHRD 






.WORD 


809 






.WORD 


T28W0f 






.WORD 


PKTSSR 


CKLOOP 




(LOOP TF SELECTED 








TRAP 


CtCLPl 


MOV 


T28BFfl>6.Rl 


(GET MESSAGE BUFFER 




MOV 


R1.R2 


(SET UP EXPECTED 




BIS 


#6IT9,R2 


(SET THE ILC BIT IN EXPECTED 




CMP 


R1»R2 


(ARE THEY EQUAL 




BEQ 


180$ 


(BR, IF EQUAL (ALL IS WELL) 




INC 


FATFLG 


(BUMP COUNT 




ERRHRD 


ERRN0,T28L0Q,EXPREC 


(THE ILC BIT WAS NOT SET XN XSTO 






TRAP 


C$ERHRD 






.WORD 


810 






.WO"D 


T2t'.0Q 






.WORD 


EXPREC 



(Rj)» 

CR5), #177777 

30$ 



999$: 



CMP 


FATFLG, #15. 


BLO 


999$ 


JSR 


PC.CKOROP 



TRAP C$CLPl 

(BUMP TO NEXT ADDRESS (COMflAND) 

(CHECK FOR END OF COMMAND BUFFER 
(BR, IF MORE COMMANDS TO TRY 
(LOOP IK SELECTED 

TRAP C$CLP1 

(>>>>>>>>>>>> END SUBTEST »>>>>>>»>>>> 

L10132: 

TRAP CStSLfB 

(I? ERROR COUNT AT 25 
J BR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



I<7 



1SV7 - HARDWARE TE; 
TEST 5; WRITE/REA( 

10672 
10675 
106 74 
10675 
10676 
10677 
10678 
10679 
10680 
10681 
1068? 
10683 
10664 
10685 
10686 
10687 
1068B 
10689 
10690 
106*'rl 
10692 
10693 
10694 
10695 
10696 
10697 
10698 
10699 
10700 
10701 
lOTl;,? 
l0.\-^5 
1070A 
10 705 
10706 
10707 
10708 
10709 
10710 
10711 
10712 
10713 
10714 
10715 
10716 
10717 
10718 
10719 
10720 
10721 
10722 
1072.'. 
10724 
10725 
10726 
10727 
10728 



TS 1-8 

I TAPE MARK 



MACRO M1113 01 -FEB -84 17j54 



TEST 8. SUBTEST 3 



SEQ 295 



VERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE 
PROPERLY. AND THAT READ COMMANDS SUBSEQUENTLY ISSUED 
TO DETECT THE WRITTEN TAPE MARKS TERMINATE WITH TAPE 
STATUS ALERT WITH THE TAPE MARK DFTECTED CTMK) STATUS 
BIT SET. THE FOLLOWING SEQUENCE IS EXECUTED. 



1. 
2. 

3. 

4. 

5. 



8 



the controller is initialized and tape rewound, 
this sets the volume check (vck) status bit. 

a write tape mark command with cvc-1 is issued 
and proper termination and status is verified 
(i.e. vck-0 and tmk-1). 

several more write tape mark commands. these with 
cvc-0 are issued and proper termination (normal) 
and status (tmk) verified. 

a read reverse command is issued and proper 
terminat::on ctape status alert) and status ctmk) 

VERIFIED. ;T is ALSO VERIFIED THAT NO DATA IS 
transferred INTO MEMORY. 

A SPACE RECORDS REVERSE COMMAND IS ISSUED AND 
PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS 
(TMK) VERIFIED. 

THE TAPE IS REWOUND AND A READ FORWARD COMMAND IS 
ISSUED AND PROPER TERMINATION (TAPE STATUS ALERT) 
AND STATUS (TMK) VERIFIED. IT IS ALSO VERIFIED 
THAT NO DATA IS TRANSFERRED INTO MEMORY. 

A SPACE RECORDS REVERSE COMMAND THAT CONTAINS A 
RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS 
VERIFIED THAT TAPF STATUS ALERT TERMINATION 
OCCURED, TMK-1 AND THAT RBPCR (RESIDUAL 
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 
THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION 
TO BE PREMATURELY TERMINATED. THIS SHOULD LEAVE 
THE POSITION JUST BEFORE THE FIRST RECORD ON 
TAPE. 

TAPE POSITION IS VERIFIED BY ISSUING ANOTHER 
SPACE RECORDS REVERSE COMMAND AND VERIF , ING THAT 
TAPE STATUS ALERT TERMINATION OrC'.'RS. WITH THE 
REVERSE INTO 301 (RIB) STATUS CRRu"*^ BIT SET. 

A SPACE RECORDS FORWARD COMMAND THA^ CONTAINS A 
RECORD COUNT GREATER THAN 1 IS ISSUfeO AND IT IS 
VERIFIED THAT TAPE STATUS ALERT TERMINATION 
OCCURED, TMK-1. AND THAT RBPCR (RESIDUAL 
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
VALUE, THIS OPERATION VERIFIES THAT DETECTION OF 



L7 



TSV7 - HARDWARE TEI 
TEST 8: WRITE/REAI 



:.07i?9 
10730 
10731 
10732 
10735 
10734 
10735 
10736 
10737 
10736 



I TAPE MARK 



MACRO M1113 Ol-FED-84 17;54 



SEQ 296 



10739 
10740 
10741 
10742 
10743 
10744 
10745 



10746 
10747 
10746 
10752 
10753 



10754 
10755 
10756 
10757 
10758 
3 0762 
10763 



10764 

10765 
10766 
10767 
10768 
10769 
10773 



105740 
105740 
105740 
105742 
105746 
105752 
105756 
105764 
:.05770 
105772 
105772 
105776 
106000 
106004 
106006 
106012 
106014 
106020 
106022 
106026 
106030 
106034 
106036 
106036 
1060-40 
106042 
106(w,4 
106046 
106054 
106060 
106064 
106066 
106072 
106074 
106074 
106076 
106100 
106102 
106104 
106104 
106106 
106112 
106114 
106120 
10^122 
106126 
106126 
106130 



THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION 
TO BE PREMATURELY TERMINATED. 



i - 



BGNSUB 



000250 

002116' 

177772 

177756 

110432' 

002212' 



104402 

004737 112326' 

004737 112420' 

004737 1124^2' 

012737 023420 110432 

004737 015674' 

103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
00533V 
001356 
005237 
010001 

104455 

001453 

003642' 

011734' 

013737 002172' 

012704 110240' 

004737 010562' 

103407 

005237 002212' 

010001 

104456 
001454 
005046' 
011734' 

104406 

004737 010714- 

1034U 

016501 000002 

010004 

005237 002212 

104456 
001455 



10$: 



110260' 20$: 



23$ 



CKLOOP 

JSR 
BC5 
MOV 
MOV 
INC 
ERRHRD 



l>>>>^>>>>>>> 



JSR 


PC,T28REST 


JSR 


PC,T28RT2 


JSR 


PC,T28RT3 


MOV 


010000. .T28DLY 


JSR 


PC, SOFINIT 


BCS 


20$ 


DELAY 


250 



BEGIN SUBTEST 
T8.3: 

TRAP 
(SET COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 
tSET UP OTHER COMMAND PACKET 
I SET UP DELAY ROUTINE 
I DO INITIALIZE ON CONTROLLER 
(BR IF INIT WAS OK 
t DELAY ABOUT .25 SECONDS 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 



>>>>>>>>>>>> 



C$BSUB 



#250 p (PC)* 



L$DLY,(PC)* 



-6(PC) 

. -4 

-22CPC) 

.-20 



DEC 


T280LY 


jBUMP DELAY ROUTINE DOWN 


BNE 


10$ 


iBR. IF MORE DELAY TIME LEFT 


INC 


FATFLG 


iEUMP COUNT 


MOV 


RO.Rl 


iCONTENTS OF TSSR REGISTER 


ERRDE 


ERRNO , SriERR , SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 


MOV 


UNiTN,T26DSW 


jSET UP DRIVE NUMBER 


MOV 


0T26PACKEr,R4 


[SUBROUTINE NEEDS PACKET ADDRESS 


JSR 


PC.WRTCHR 


I ISSUE WRITE CHARACTERISTICS 


BCS 


23$ 


»BR. IF COMMAND ISSUED OK 


INC 


FATFLG 


(BUMP COUNT 


MOV 


RO.Rl 


[SAVE CONTENTS Of TSSR 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 


iWRITE CHARACTERISTISC FAILED 



C$ERDF 
811 

SFIERR 
SFIMSG 



FAILED 




TRAP 


CJERHRO 


.WORD 


812 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



PC, REWIND 

30$ 

TSSR(R5),R1 

R0.R4 

FATFLG 

ERRN0.T26RWN,PKTSSR 



(LOOP IF SELECTED 

TPAp CSCLPl 

(CALL TAPE REWIND COMMAND 

;BR, IF NO PROBLEM 

(GET TSSR 

(SAVE PACKET ADDRESS 

iBUMP COUNT 

(REWIND NOT ACCEPTED 

TRAP CiERHRD 
,WORD 813 



M7 



TSV7 - HARDWARE TEj 
TEST 8: WRITE/REAi 



i nPE MARK 



MACRO M1113 01-FEB-a4 17:54 



SEQ 297 



10774 

10775 
10776 
10777 
10778 
10779 
10780 
10784 



10785 

10786 
10787 
10788 
10789 
10790 
10791 
10792 
10793 
10794 
10795 
10''99 



10800 

10801 
10802 
10805 
10804 
10805 
10609 
10610 



10811 

10812 
10613 
10014 
10815 
10819 



10R20 



106132 
106134 

106136 
106136 
106140 
106144 
106146 
106152 
106154 
106156 
106162 
106162 
106164 
106166 
106170 
106172 
106172 
106174 
106200 
106202 
106210 
106216 
106222 
106226 
106232 
106234 
106236 
106242 
106242 
106244 
106246 
106250 
106252 
106252 
106254 
106262 
106266 
106272 
106274 
106300 
106302 
106302 
106304 
106306 
106310 
106312 
106312 
106314 
106320 
106324 
106326 
106332 
106332 
106334 
106336 
106340 
106342 



111361' 
011746' 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001456 
111237' 
U15374' 

: 04406 
005737 
001024 
112737 
112737 
012704 
01^65 
004737 
103407 
010001 
005237 

104456 
001457 
111075' 
011746' 

104406 
012737 
012704 
004737 
103407 
005237 
010001 

104456 
001460 
005046' 
011734' 

104406 

o;s50i 

032701 
001006 
005237 

104455 
001461 
111430' 
011734' 



30$: 



CKLOOP 



110270' 
000002 



002212 



002216' 

000200 

000010 

110350' 

000000 

016236' 



002212 



MOV 


T28BFRf6.Rl 


MOV 


R1,R2 


BIS 


*6IT1,R2 


CMP 


R1.R2 


BEQ 


40i 


INC 


FATFLG 


ERRHRO 


ERaN0.T28B0T.EXPREC 



40$: 
42$J 



CKLOOP 



110401- 
110400 



TST 


EXTFEA 


BNE 


50$ 


MOVB 


0200.T26BS1 


MOVB 


#10,T28BS0 


MOV 


#T2ePK2.R4 


MOV 


R4,TS0QCR5) 


JSR 


PC.CHKT5SR 


BCS 


50$ 


MOV 


RO.Rl 


INC 


FATFLG 


ERRHRD 


ERRN0.T28SSR.PKTSSR 



50$ 



000007 

110240' 

010562' 

002212' 



110260 



60$: 



000002 
000100 

002212 



.WORD T28RWN 
,WORO PKTSSR 
(LOOP IF SELECTED 

TRAP CJCLPl 

»PICK UP XSTO 

(SET UP EXPECTED 

iSET GOT BIT IN EXPECTED 

(DOES EXP - REC'O 

(BR, IF EQUAL COK) 

I BUMP COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 814 
.WORD T28B0T 
.WORD EXPREC 

(LOOP IF SELECTED 

TRAP C$CLP1 

(CHECK FOR EXTENCtD FEATURES SW SWITCH 

(BR IF SWITCH IS ON 

(WRITE MISCELLANEOUS CONT/REAO STATUS 

(FUNC. SEL. BIT (TURN ON EXTFEA SWITCH) 

(WRITE SU6SYS MEM PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR 

(BR, IF NO ERROR 

(ERROR, SAVE TSSR 

(BUMP COUNT 

(TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 



65$: 







TRAP 


C$ERHRD 






.WORD 


815 






.WORD 


T28SSR 






.WORD 


PKTSSR 


CKLOOP 




(LOOP IF SELECTED 








TRAP 


C5CLP1 


MOV 


d7.T2eCSW 


(SET L DRIVE NUMBER 




MOV 


0T28PACKET.R4 


(SUBROUTINE NEEDS PACKET ADDRESS 


JSR 


PC.WRTCHR 


(ISSUE WRITE CHARACTERISTICS 




BCS 


60$ 


(BR, IF COMMAND ISSUED OK 




INC 


FATFLG 


(BUMP COUNT 




MOV 


RO.Rl 


(SAVE CONTt»:TS OF TSSR 




ERRHRD 


ERRNO.WRTMSG.SFIMSG 


(WRITE CHARACTERISTISC FAILED 








TRAP 


C$cRHRD 






.WORD 


816 






.WORD 


WRTMSG 






.WORD 


SFIMSG 


CKLOOP 




(SCOPE LOOP 








TRAP 


CJCLPl 


MOV 


TSSRCR5).R1 


(GET TSSR CONTENTS 




BIT 


^OFL.Rl 


(CHECK FOR THE OFFl. tme BIT SET 




BNE 


65$ 


(BR. IF OFFLINE (GO..0) 




INC 


FATFLG 


(BUMP COUNT 




ERROF 


cRRN0,T200FL.SFIMSG 


(OFF LINE SHOULD HAVE BEEN SET 


(BAD) 






TRAP 


C$ERDF 






.WORD 


817 






.WORD 


T280FL 






.WORD 


SFIMSG 


CKLOOP 




(LOOP IF SELECTED 





TSV7 - HARDWARE TESTS 1-8 
TEST 8: WRITE/READ TAPE MARK 



N7 



MACRO M1113 Ol-FEB-84 IVjSA 



SEQ 298 



108? 1 
10822 
10823 
10824 
10825 
10629 
10830 



10831 



10833 
10834 
10835 
10836 
10837 
10838 
10839 
10840 
10844 



10845 

10846 
10347 
10848 
10649 
10850 
10851 
10855 



10856 

10857 
?0858 
10859 
10860 
10861 
10862 
10866 



10867 
10806 



106342 
106344 
106352 
106356 
106362 
106364 
106370 
106372 
106372 
106374 
106376 
106400 
106402 
106402 
106404 
106412 
106416 
106422 
106426 
106432 
106436 
106440 
106442 
106446 
106446 
106450 
106452 
106454 
106456 
106456 
106460 
106464 
106466 
106472 
106474 
106476 
IO0SO2 
106502 
1065C4 
106506 
106510 
106512 
106512 
106514 
106520 
106522 
106526 
106530 
106532 
106536 
106536 
106540 
106542 
106544 
106546 
106546 
106550 



104406 

013737 002172' 110260' 

012704 110240' 

004737 O10562' 

103407 

005237 002212' 

010001 



104456 
001462 
005046' 
011734' 

104406 
012737 



10^406 
013701 
010102 
042702 
020102 
001406 
005237 

104456 
001464 
111562 
015374 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001465 
111635 
015374 

104406 
C04737 



68$: 



MOV 
MOV 
JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 



140011 110370' 



012704 110370' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 
001463 
111503' 
0H746' 



70$! 



110270' 
000020 

002212 



80$: 



110270 
100000 

002212 



UNITN.T280SW 

<?T28PACI<ET.R4 

PC.WRTCHR 

68$ 

rATFLG 

RO.Rl 

ERRNO.WRTMSG»SFIMSG 



TRAP C$CLP1 
tSET UP DRIVE NUMBER 
(SUBROUTINE NEEDS PACKET ADDRESS 
(ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
(BUMP COUNT 

(SAVE CONTENTS OF TSSR 
I WRITE CHARACTERISTISC 



;LOOP IF SELECTED 



FAILED 




TRAP 


CJERHRD 


.WORD 


818 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



TRAP 



CiCLPl 



MOV 


*140011.T28PK3 


MOV 


*T28PK3,R4 


MC/ 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


*SSR.R2 


CMP 


R1,R2 


BEQ 


70$ 


INC 


FATFLG 


ERRHRO 


ERRN0.T28WDC,PKTSSR 



(WRITE TAPE MARK,ACK,CVC«1 COMMAND 

(SET UP R4 I'lTH PACKET ADDRESS 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR. IF OK 

(BUMP COUNT 

(TSSR INCORRECT AFTER WRITE TAPE MARK 









TRAP 


C$ERHRD 








.WORD 


819 








.WORD 


T28W0C 








.WORD 


PKTSSR 


CKLOOP 






(LOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


T28BFR*6,R1 




(PICK UP XSTO (VCK CHECK) 




MOV 


R1.R2 




(SET UP EXPECTED 




BIC 


*6IT4,F2 




I VCK SHOULD BE 




CMP 


R1.R2 




(IS VCK SET CORRECTLY 




BEQ 


80$ 




(BR. IF VCK IS CLEAR 




INC 


FATFLG 




(BUMP COUNT 




ERRHRD 


ERRN0,T26VCK 


EXPREC 


(VCK WAS NOT CI EAR AFTER CVC»1 

TRAP 
.WORD 
.WORD 

.WORD 


CJERHRD 
820 
T28VCK 
EXPREC 


CKLOOP 






(LOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


T28BFR*6.R1 




(PICK UP XSTO (CHECK TMK) 




MOV 


R1.R2 




(SET UP EXPECTED 




BIS 


<>BIT15.R2 




(TMK SHOULD BE 5E'. 




CMP 


r^l.R2 




(WAS TMK SET 




BEQ 


90$ 




(BR. IF TMK WAS SET 




INC 


FATFLG 




(BUMP COUNT 




ERRHRO 


ERRN0.T28TMK 


EXPREC 


(TMK WAS NOT SET AFTER WRT TAPE 


MARK 



90$; 



010714 



CKLOOP 

JSR PC. REWIND 



(LOOP IF SELECTED 
(CALL TAPE REWIND 



TRAP 

.WORD 

.WORD 

.WORD 

TRAP 

COMMAND 



C$ERHRD 
8_i 

T28TMK 
EXPREC 

c$CLri 



B8 



TSV7 • HAftOWARE 


TESTS 1 


-6 


TEST a: WRITE/REAO TAPE MARK 


10869 106554 


103411 




10C70 106556 


010004 




10871 1065;SO 


016501 


000002 


10872 106564 


005237 


002212' 


10876 106570 






106570 


104456 




106572 


001466 




106574 


111561' 




106576 


011746* 




10877 106600 






106600 


104406 




10878 106602 


015701 


110270' 


10879 106606 


010102 




iOfino 106610 


052702 


000002 


10881 106614 


020102 




10882 106616 


001406 




10883 106620 


005237 


002212' 


10867 106624 






106624 


104456 




106626 


001467 




106650 


111237' 




106632 


015374' 




10888 106O54 






106654 


104406 




10889 106636 


012703 


000012 


10090 106642 


012737 


140011 


10891 106650 


012704 


110570' 


10892 106654 


010465 


000000 


10895 106660 


004737 


016150' 


10894 106664 


016501 


000002 


108<>5 106670 


012702 


000200 


10896 106674 


020102 




10897 106676 


001406 




10898 106700 


005257 


002212' 


10902 106704 






106704 


104456 




106706 


001470 




106710 


111503' 




106712 


011746* 




10903 106714 






106714 


104406 




10904 106716 


013701 


110270' 


10905 106722 


010102 




10906 106724 


052702 


100000 


10907 106730 


020102 




10908 1C«752 


001406 




10909 106754 


005257 


002212* 


10913 106740 






106740 


104456 




106742 


001471 




106744 


111655' 




106746 


015574- 




10914 106750 






106 75C 


104406 




10915 106752 


005505 




10916 106754 


001537 




X0917 106756 


012700 


17777/ 



MACRO hlll5 Ol-rEB-84 17i54 



SEQ 299 



BCS 
MOV 
MOV 
INC 
ERRHRD 



150$ 1 CKLOOP 



110370 



1401: 
1501 1 



1559 t 



165t: 



laoi; 



1501 

r^0,R4 

TSSRCR5),Rl 

FATFLG 

ERRN0.T28RWN,PI<TSSR 



I BR, IF NO PROBLEM 
I SAVE PACKET ADDRESS 
iGET TSSR STATUS 
iBUMP COUNT 
iREWINO NOT ACCEPTED 



ILOOP ir SELECTED 



TRAP 
.WORD 
.UORO 
.UORD 

TRAP 



CIERHRD 
822 

T28nv)N 
PKTSSR 

CICLPl 



MOV 


T28BFRf6,Rl 


IPICK UP X^TO 




MOV 


R1,R2 


iSET UP EXPECTED 




BIS 


♦6IT1.R2 


iSET BOT BIT IN EXPECTED 




CMP 


R1.R2 


iDOES EXP . REC'D 




BEQ 


1401 


iBR. IF EQUAL COK) 




INC 


FATFLG 


iBUMP COUNT 




ERRHRD 


ERRN0,T28B0T,EXPREC 


(TAPE NOT AT BOT AFTER REWIND 








TRAP 


CIERHRD 






.UORO 


825 






.UORO 


T28B0T 






.UORD 


EXPHEC 


CKLOOP 




(LOOP IF SELECTED 








TRAP 


CICLPI 


MOV 


«10..R5 


lNUr«ER OF RECORDS TO URITE TM 




MOV 


♦140011, T28PK5 


1 WRITE TAPE MARK.ACK.CVC-l COMMAND 


MOV 


•T28PK5,R4 


iSET UP R4 WITH PACKET ADDRESS 




MOV 


R4,TS0BCR5) 


1 ISSUE COMHANC 




JSR 


PC.WAITF 


iWAXT FOR SSR TO SET 




MOV 


TSSR(R5).R1 


iPICK UP TSSR 




MOV 


♦S5R,R2 


iSET UP EXPECTED (SSR ONLY) 




CMP 


RI.R2 


iWAS STATUS GOOD 




BEQ 


1651 


iBR, IF TtRMINATION WAS GOOD 




INC 


FATFLG 


iBUMP COUNT 




ERRHRD 


ERRN0.T2eW0C, PKTSSR 


iTSSR NOT CORRECT AFTER WRT TAPE M. 






TRAP 


CIERHRD 






.WORD 


S24 






.WORD 


T28WOC 






.WORD 


PKTSSR 


CKLOOP 




iLOOP IF SELECTED 








TRAP 


CICLPI 


MOV 


T2a8FR*6.Rl 


iPICK UP XSTO 




MOV 


Rl..<2 


iSET UP EXPECTED 




BIS 


♦tiins.R? 


iSET TMK BIT IN EXPECTED 




CMP 


Rl,n2 


iDOES EXP . REC'D 




BEQ 


1801 


tBR, IF EQUAL (OK) 




INC 


rATFLG 


iBUMP COUNT 




ERRHRD 


ERRN0»T28TMK,EXPREC 


iTMK NOT SET AFTER vlRT TAPE MARK 






TRAP 


CIERhAD 






.WORD 


825 






.WORD 


T28TMK 






.WORD 


EXPREC 


CKLOOP 




(LOOP IF SELECTFD 








TRAP 


CICLPI 


DEC 


R3 


iBUMP COUNTER DOU;>i 




BNE 


1551 


iBR. IF LESS Than lo tape harks 




HOV 


^177777, RO 


iVALUt TO WRITTEN TQ M£M0R1 





;v^ - 

■ST 8 

10918 
10919 
10920 
10921 
10922 
10923 
10924 
'0925 
10926 
10927 
10928 
10929 
10933 



10934 

10935 
10936 
10937 
10938 
10939 
10940 
10944 



10945 

10946 
1094 7 
10948 
10949 
10950 
10954 



10955 

10956 
10957 
10958 
10959 
10960 
10961 
10962 
10963 
10964 
10965 
10969 



im^BBm'hk'mm 



C6 



106762 
106766 
106774 
107002 
107006 
107014 
107020 
107024 
107030 
107034 
107036 
107040 
107044 
107044 
107046 
107050 
107052 
107054 
107054 
10?0S6 
107062 
107064 
107070 
107072 
107074 
107100 
107100 
107102 
107104 
107106 
107110 
107110 
107112 
107116 
107122 
107124 
107126 
107132 
107132 
J.07154 

.o;i36 
loaio 

107142 
107142 
107144 
107152 
107160 
107164 
107170 
107174 
107200 
107204 
107206 
107210 
107214 
107214 
1072X6 



004737 
013737 
012737 
012704 
013737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001472 
110574' 
011746' 



104406 

013701 110270 

010102 

052702 100000 

020102 

001406 

005237 002212 

1044«^ 
001473 
111707' 
015374' 



^riARK 


MACRO M1H3 


Ol-FEB-84 


17j54 


017524' 
003114" 


110372' 


JSR 
MOV 


PC.FILLMEM 
FREE . T28We 


140401 


110370' 


MOV 


#140401, T2ePK3 


110370* 




MOV 


♦T28PK5.R4 


000024 


110376' 


MOV 


20. ,T28SZ 


000000 




MOV 


R4.TS0B(R5) 


016150' 




JSR 


PC.WAITF 


000002 




MPV 


TSSRCft5).Rl 


100204 




MOV 


CSSRISC!DIT2.R2 






CMP 


R1,R2 






BEQ 


2001 


002212' 




I^4C 


FATFLG 






ERRMRO 


E9RN0.T28RDF,PI<TSSR 



SEQ 300 



104406 
017701 
012702 
020102 
001406 
005237 

104456 

001474 

112122' 

015374' 

104406 
012757 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001475 



073776 
177777 



002212 



loonc 

OOOOOl 

110370' 

000000 

016150' 

000002 

100204 



002212 



iFTLL MEM WITH ALL ONES 

I STARTING READ BUFFER ADDRESS 

iREAO REVERSE, ACK, COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

(WAIT FOR SSR TO SET 

iGET 1SSR CONTENTS 

»SET LP EXPECTED 

I ARE THEY EQUAL 

iBR. IF OK 

iBUMP COUNT 

iTSSR INCORRECT AFTER WRITE DATA 



200 >: 



2105 t 



220$ ! CKLOOP 







TRAP 


CIERHRD 






.WORD 


626 






.WORD 


T28RDF 






.WORD 


PKTSSR 


CKLOOP 




iLOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


T28BFR»6,R1 


jPICK UP XSTO 




MOV 


R1.R2 


iSET UP EXPECTED 




BIS 


*fiITl5,R2 


iTMK SHOULD BE SET 




CMP 


Rl,n2 


lis TMK SET 




BEQ 


210* 


iBR. IF TMK WAS SET (^;000) 




INC 


FATFLG 


iBUMP COUNT 




ERRHRD 


f.RRN0,T28RRM, EXPREC 


iTMK NOT SET AFTER READ REV 








TRAP 


C$ERHRD 






.WORD 


827 






.WORD 


T28RRM 






.WORD 


EXPREC 


CKLOOP 




(LOOP IF SELECTED 








TRAP 


CJCLPl 


MOV 


SFREE.Rl 


1 FIRST LOC IN READ BUFFER 




MOV 


♦177777, R2 


lEXPECTEO IF NO DATA TRANS. 




CMP 


R1,R2 


iDIO ANY DATA GET TRANSFERRED 




BEQ 


2201 


iBR, IF NO DATA TRANS CGOOO) 




INC 


FATFLG 


iBJMP COUNT 




ERRHRD 


ERRN0.T28DTR, EXPREC 


iDATA TRANSFERRED ON READ TAPE 


MARK 






TRAP 


CIERHRD 






.WORD 


828 






.WORD 
.WORD 


T280TR 
EXPREC 



110370 
110372' 



MOV 


0100410. r2dPK3 


MOV 


01 , T28Re 


MOV 


0T28PK3,R4 


MOV 


R4.T5DB(R5) 


JSR 


PCWAITF 


MOV 


T5SRCR5:,R1 


MOV 


«SSR!SC!eiT2,R2 


CMP 


R1.R2 


BEQ 


222 1 


'.-.': 


FATFLG 


ENRHRO 


iRRND.TaaRDGtPKTSSR 



iLOOP IF SELECTED 

TRAP CtCLPl 

I SPACE REVERSE, ACK, COMMAND 

iNlMBER OF RECORDS TO SPACE BACK 

iSET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 

IWAIT FOR 5SR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

(ARE THEY EQUAL 

(BR, IF OK 

iBUMP COUNT 

(TSSR INCORRECT AFTER SPACt CMO. 

TRAP C^ERMRO 
,WORO 929 



}m si'm^uwui'm^K 



D8 



MACRO MU15 0l-Fte-e4 I7i54 



SEQ 301 



10970 

10971 
10972 
10973 
10974 
10975 
10976 
10980 



10981 

1098<? 
10983 
10984 
10985 
10986 
10990 



10991 

10992 
10993 
10994 
10995 
10996 
10997 
11001 



11002 

11003 
110O4 
11005 
11006 
11007 
11008 
11009 
11010 
11011 
11012 
11013 
11014 
11015 
11019 



107220 
107222 
107224 

107224 
107226 
107232 
107234 
107240 
107242 
107244 
107250 
107250 
107252 
107254 
107256 
107260 
107260 
107262 
107266 
107270 
107272 
107276 
107302 
107302 
107304 
107306 
107310 
107312 
107312 
107314 
107320 
10-'322 
107326 
107330 
107332 
107336 
107336 
107340 
107342 
107344 
107346 
107346 
107350 
107354 
107360 
107366 
107374 
107400 
107406 
107412 
107416 
107422 
107426 
107430 
107432 
107436 
107436 



110655* 
011746' 

104406 

013701 110270 

010102 

052702 100000 

020102 

001406 

005237 002212 

104456 
001476 
111765' 
015374' 



2221 J CKLOOP 



010714 



000002 

002212 



104406 
004737 
103411 
010004 
016501 
005237 

104<56 
001477 
111561' 
011746' 



104406 

013701 110270' 

010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001500 
111237' 
015374' 



104406 
012700 
004737 
013737 
012737 
012704 
013737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 



177777 
017324 
003114 
100001 
110370 
000024 
000000 
016150 
000002 
100204 



002212 



MOV 


T26arR.6.Rl 


MOV 


R1,R2 


BIS 


♦6IT15.R2 


CMP 


R1,R2 


BEG 


2261 


INC 


FATFLG 


ERRHRD 


ERRN0,T28RRN.EXPREC 



2261 t CKLOOP 



JSR 


PC, REWIND 


BCS 


230$ 


MOV 


R0,R4 


MOV 


TSSRCR5>,R1 


INC 


FATFLG 


ERRHRD 


ERRN0,T28RWN^PKT5SR 



2301: CKLOOP 



MOV 


T28BFR*6,R1 


MOV 


R1.R2 


BIS 


«6IT1,R2 


CMP 


R1,R2 


BEQ 


240$ 


INC 


FATFLG 


ERRHRD 


ERRNO , 128901 , EXPREC 



240$ I CKLOOP 



110372 
110370 

110376 



MOV 


0177777. RO 


JSR 


PC.FILLMEM 


MOV 


FREE,T28R9 


MOV 


010OO0UT26PK3 


MOV 


*T28PK3,H4 


MOV 


20.,T28SZ 


MOV 


R4,TSDBCR5) 


JSR 


PC.uAirr 


MOV 


TSSRCR5),R1 


MOV 


#SSR!SC!BIT2.R2 


CMP 


R1,R2 


BEQ 


245$ 


INC 


FATFLG 


ERRHRD 


ERRNO. TseWDE.PKTSSR 



I LOOP IF SELECTED 

TRAP 

iPiCK UP XSTO 

I SET UP EXPECTED 

iTMK SHOULD BE SET 

(IS TMK SET 

iBR, IF TMK WAS SET (GOOD) 

I BUMP COUNT 

J TMK NOT SET AFTER SPACE REV 

TRAP 
.WORD 
.WORD 
WORD 

iLOOP IF SELECTED 

TRAP 

I CALL TAPE REWIND COMMAND 

I BR, IF NO PROBLEM 

J SAVE PACKET ADDRESS 

iGET TSSR 

I BUMP COUNT 

(REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



.Wggg TSeROG 



TRAP 



PKTSSR 
C$CLP1 



C$ERHRD 
630 
T28RRN 
EXPREC 

C$CLP1 



C$ERHRD 
831 
T28RWN 
PKTSSR 

CJCLPl 



(LOOP IF SELECTED 

(PICK UP XSTO 

I SET UP EXPECTED 

(SET 60T BIT IN EXPECTED 

I DOES EXP " REC'D 

(BR. IF EQUAL (OK) 

(BUMP COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP C»ERHRD 
.WORD 832 
.WORD T28B0T 
.WORD EXPREC 

(LOOP IF SELECTED 

JPAP C5CLP1 

(VALUE TO WRITTEN TO MEMORY 

(FILL MEM WITH ALL ONES 

(STARTING READ BUFFER ADDRESS 

(READ FORWARD, ACK, COMMAND 

(SET liP R4 WITH PACKET ADDRESS 

(SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR, IF OK 

(BUMP COUNT 

(TSSR INCORRECT AFTER WRITE DATA 

TRAP C5ERHRD 



TSV7 - HARDWARE TESTS 1-8 
TEST 8: WRITE/READ TAPE MARK 



MACRO M1113 Ol-FEB-84 17:54 



E8 



SEQ 302 





107440 


001501 








107442 


111146' 








107444 


011746' 






11020 


107446 
107446 


104406 






11021 


107450 


013701 


110270' 




11022 


107454 


010102 






11023 


107456 


052702 


100000 




11024 


107462 


020102 






11025 


107464 


001406 






11026 


107466 


005237 


002212' 




11030 


107472 
107472 
107474 
107476 
107500 


104456 
O0\502 
112044' 
015374' 






11031 


107502 
107502 


104406 






11032 


107504 


017701 


073404 




1)033 


107510 


012702 


177777 




11034 


107514 


020102 






11035 


107 516 


001406 






11036 


107520 


005237 


002212' 




11040 


107524 
107524 
107526 
107530 
107532 


104456 
001503 
112122' 
015374* 






11041 


107534 
107534 


104406 






11042 


107536 


012/37 


100410 


110370' 


11043 


107544 


012737 


000005 


110372* 


11044 


107552 


012704 


110370' 




11045 


107556 


010465 


000000 




11046 


107562 


004737 


016150' 




11047 


107566 


016501 


000002 




11048 


107572 


012702 


100204 




11049 


107576 


020102 






11050 


107600 


001406 






11051 


107602 


00523V 


002212' 




11055 


107606 
107606 
107610 
107612 
107614 


104456 
001504 
110655' 
011746' 






11056 


107616 
107616 


104406 






11057 


107620 


013701 


110270' 




11058 


107624 


010102 






11059 


107626 


052702 


100000 




11060 


107632 


020102 






11061 


107634 


001406 






11062 


107636 


005237 


002212' 




11066 


107642 
107642 
107644 
107646 


104456 
001505 
1U765' 







245$: CKLOOP 



247$ 



CKLOOP 



250$: 



260$; 



I LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 



MOV 


T2eBFRf6.Rl 


MOV 


R1.R2 


BIS 


*BIT15,R2 


CMP 


R1.R2 


QEQ 


247$ 


INC 


rATFLG 


ERRHRD 


EftRN0,T2aRRP,EXPREC 



(PICK UP XSTO 

I SET UP EXPECTED 

iTMK SHOULD BE SET 

(IS TMK SET 

iBR, IF TMK WAS SET (GOOD) 

I BUMP COUNT 

J TMK NOT SET AFTER READ 



TRAP 



833 

T28WDE 

PKTSSR 

C$CLP1 



;LOOP IF SELECTED 



REV 

TRAP 

.WORD 

.WORD 

.WORD 

TRAP 



C$ERIHRD 
834 

T28RRP 
EXPREC 

C»CLP1 



MOV 


SFF;EE,Ri 


(FIRST LOC IN READ BUFFER 


MOV 


#177777, R2 


(EXPECTED IF NO DATA TRANS. 




CMP 


R1,R2 


iDIO ANY DATA GET TRANSFERRED 




BEQ 


250$ 


iBR, IF NO DATA TRANS (GOOD) 




INC 


FATFLG 


iBUMP COUNT 




ERRHRD 


ERRN0.T28DTR, EXPREC 


(DATA TRANSFERRED ON READ TAPE 


MARK 






TRAP 


C$ERHR 






.WORD 


835 






.WORD 


T28DTrj 






.WORD 


EXPREC 


CKLOOP 




(LOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


*100410,T28PK3 


1 SPACE REVERSE. ACK, COWANO 




MOV 


#5,T28RB 


1 NUMBER OF RECORDS TO SPACE BACK 


MOV 


*T28PK3,R4 


iSET UP R4 WITH PACKET ADDRESS 




MOV 


R4.TSDBCR5) 


(ISSUE COMMAND 




JSR 


PC.WAITF 


(WAIT FOR SSR \0 SET 




MOV 


TSSR(R5),R1 


(GET TSSR CONTENTS 




MOV 


#SSR!SC!BIT2,R2 


(SET UP EXPECTED 




CMP 


R1.R2 


(ARE THEY EQUAL 




BEQ 


260$ 


(BR, IF OK 




INC 


FATFLG 


(BUMP COUNT 




ERRHRD 


ERRN0.T2eRDG, PKTSSR 


(TSSR INCORRECT AFTER SPACE REV 


CMO. 






TRAP 


C$ERHR 






.WORD 


836 






.WORD 


T2eR0G 






.WORD 


PKTSSR 


CKLOOP 




(LOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


T28BFR»6,R1 


(PICK UP XSTO 




MOV 


R1.R2 


(SET UP EXPECTED 




BIS 


#BIT15.R2 


(TMK SHOULD BE SET 




CMP 


R1,R2 


(IS TMK SET 




BEQ 


270$ 


(BR, IF TMK WAS SET (GOOD) 




XHC 


FATFLG 


(BUMP COUNT 




ERRHRD 


ERRN0,T28RRN. EXPREC 


iTMK NOT SET AFTER READ REV 





TRAP 

.WORD 

,WORD 



C$ERHRD 

037 

T28RRN 



m 



TSV6 - PARAMETER COOING MACRO M1113 
SYMBOL TABLE 



Ol-FEB-84 17:54 



SEG 311 



LOE 

LOOPCN 

LOOPCO 

LDOPFL 

LOT 

L$ACP 

L$APT 

L$AU 

L$AUT 

LiAUTO 

L$CCP 

L$CLEA 

L$CO 

L$DEFO 

L$DESC 

L$DESP 

L$OEVF 

L$DISP 

LSDLY 

L$OTP 

LJDTYP 

L$DU 

LJOUT 

L$DVTY 

L$EF 

LJENVI 

L$ETP 

LJEXPl 

L$EXP4 

L$EXP5 

L$HARO 

LiHIME 

L$HPCP 

LJHPTP 

L*HW 

L$ICP 

LilNIT 

L$LADP 

LiLAST 

LiLOAD 

L$LUN 

L^MREV 

L$NAME 

L$PRIO 

LiPROT 

L$PRT 

LSREPP 

LiREV 

L$RPT 

L*SOFT 

L$SPC 

LJSPCP 

LiSPTP 

L$STA 

I $su 

LJTEST 
LSTIHL 



040000 G 

002206RG 

013026R 

003152RG 

000010 G 

002110RG 

002036RG 

0222 12RG 

002070RG 

0224 16RG 

002106RG 

0224 76RG 

002032RG 

002011RG 

003400RG 

002076RG 

002060RG 

002124RG 

002116RG 

00204 ORG 

002034RG 

022310RG 

002072RG 

003372RG 

002052RG 

002044RG 

002102RG 

002046RG 

002064RG 

002066RG 

112510RG 

002120RG 

00c^016RG 

002022RG 

002146RG 

002104RG 

021416RG 

002026RG 

11275fiRG 

00210()RG 

002074RG 

002050RG 

002000RG 

002042RG 

021406RG 

0021' 2RG 

002062RG 

002010RG 

022524RG 

H2642RG 

00205&RG 

002020RG 

00202ARG 

002030RG 

00215eRG 

002U4HG 

002014RG 



LIUNIT 
002 L 10000 
002 LlOOOl 
002 L 10002 

L 10003 
002 L 10004 
002 L 10005 
002 L 10006 
002 L 10007 
002 LlOOlO 
002 LlOOll 
002 L10012 
002 L10013 
C02 L10014 
002 L10015 
002 L10016 
002 L 10017 
002 L 10020 
002 L 10021 
002 L 10022 
002 L 10023 
002 L 10024 
002 L 10025 
002 L 10026 
002 L 10030 
002 L 10031 
002 LX0032 
002 L10033 
002 L 10034 
002 L 10035 
002 L 10036 
002 L 10037 
0C2 L 10040 
00*.^ L 10041 
002 L1004i.^ 
0C2 L 10043 
002 L 10044 
002 L 10045 
002 LlOO^o 
002 L 1004 7 
002 L 10050 
002 L10051 
002 Ll<>052 
002 L 10053 
002 L 10054 
002 L 10055 
002 L 10056 
002 L 1005 7 
002 L 10060 
002 L 10061 
002 L 10062 
002 H0063 
002 L10064 
002 L 10065 
002 L 10066 
002 LI 006 7 
002 L10070 



002012RG 
002154R 

002166R 
005574R 
011744R 
011762R 
012000R 
012006R 
012024R 
012042R 
012066R 
012140R 
012510R 
013024R 
013652R 
013674R 
015400R 
015406R 
015414R 
015426R 
015450R 
015476R 
015636R 
016146R 
022142R 
022306R 
022414R 
0224 74R 
022522R 
022764R 
024420R 
027100R 
025026R 
025350R 
025730R 
034250R 
027502R 
030352R 
031172R 
031406R 
031754R 
032320R 
046504R 
054716R 
0354 76R 
036252R 
036754R 
037420R 
040054R 
0405 lOR 
041102R 
041604R 
0420'-i0R 
042322R 
042606R 
043106R 
043572R 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 

oo:* 

002 
Oo2 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



L10071 
L10072 
L10073 
L 10074 
L10075 
L 10076 
L 10077 
LlOlOO 
LlOlOl 
L10102 
L10103 
L10^04 
L10105 
L10106 
L10107 
LlOllO 
LlOlll 
L10112 
L10113 
L10114 
L10115 
L10116 
L10117 
L10120 
L10121 
L10122 
L10123 
L10124 
L10125 
L10126 
L10127 
L10130 
L10131 
L10132 
L10133 
L10134 
L10135 
L10136 
L10140 
MEMAOO 
MEMCK 
MENASC 
MENERR 
MENRES 
MHRO - 
■iMVEC - 
MSA.FR- 
MSA. NO- 
MS A. NR- 
MSA.VO- 
MSGEXP 
MSGLOO 
MSGSTA 
MSGSU8 
MS. ATT- 
MS.EXT- 
MS.RSD- 



0554 32R 

047474R 

050074R 

050550R 

051214R 

0517S4R 

052714R 

053234R 

053636R 

075004R 

056370R 

057236R 

060130R 

061056R 

06ie34R 

0624 76R 

063350R 

06422.?R 

065076R 

065752R 

066622R 

067554R 

070604R 

07116^R 

071640R 

105042R 

075426R 

0762 lOR 

077O32R 

07W34R 

101464R 

112504R 

l')5442R 

105722R 

U0174R 

112530R 

112650R 

112742R 

112750R 

013654RG 

021116RG 

020357R 

020304R 

0204 06R 

170200 

000250 

OC0006 

000000 

000004 

000002 

012044RG 

012764RG 

O12250HG 

013642RG 

000006 

000200 

000001 



002 MS.RSF- 
002 MS.RST- 
002 NBA 
002 NEigPAS 
002 NODEV 
002 NOINIT 
002 NOINTR 
002 NOITS 
002 NOMAN 
002 NOMEM 
002 NP.IR - 
002 NP.LOO- 
002 NP.OUT- 
002 NP.WHP- 
002 NSI 
002 NSINIT 
002 NU. 
002 NULCR 
002 NXM 
002 NXMFLG 
002 NXMHI 
002 NXMLO 
002 NXMTST 
002 NXR 
002 NXRERR 
002 NXRX 
002 NXTU 
002 OFL 
002 ONEFIL- 
002 OIAPTS- 
002 OIAU - 
002 0I6GNR- 
002 OiBGNS- 
002 OIDU " 
002 0$ERRT- 
002 0*GNSW- 
002 0»POIN- 
002 O^SETU- 
002 PASRPT 
002 PATCH 
002 PATDAT 
002 PC. ERA- 
002 PC.IEP- 
002 PC.NOO- 
PC.REL- 
PC.REW- 
PKBCNT- 
PKHI • 
PKLOU ■ 
PKTADD 
002 PKTFRM 
002 PKTGET 
002 PKTMES 
002 PKTRAM 
PKTSSR 
PNT 
PRAMPK 



000020 

000010 

002000 

021650R 

003104RG 

004325R 

004211R 

002160RG 

020444R 

005450R 

000200 

000040 

000100 

000020 

004142R 

004377R 

004517R 

004520R 

00400*" 

003126RG 

003132RG 

003130RG 

021312R 

005730R 

005544RC 

0O5767R 

021662R 

000100 

000000 

000000 

00000 X 

000001 

000001 

000001 

000000 

000001 

000001 

000000 

021714R 

112730RG 

020140R 

002400 

002000 

COIOOO 

000000 

000400 

000006 

000004 

000002 

0O7454R 

0074 16R 

011764RG 

012010RC 

00473?Ro 

011746RG 

OOIOOO G 

013676R 



PRASC 
PRBEXP 
PRBMSG 
002 PRBREC 
002 PRBTOT 
002 PRBYTE 
002 PRI 
002 PRIADD 
002 PRIAO 
002 PRIBXO 
PRIEQU 
PRIPKT 
PRIRAM 
PRITAD 
002 PRITSS 
002 PRITO 
002 PRITl 
002 PRIXO^ 

PRIOO 
002 PRIOl 
002 PRI02 
002 PRI03 
002 PRI04 
002 PRIC5 
002 PRI06 
002 PRI07 
002 PRMESS 
PRMNO 
PRMSGE 
PRMSGO 
PRMSGl 
PRMSG2 
PROASC 
PRIASC 
PST32W 
PUNIT 
PU.Dll 
PW.D13 
002 PW.D22 
002 PW.NOP 
002 PW.NOl 
PW.RDE 
PW.RDR 
PW.RDS 
PW.RFI 
PW.WCT 
PW.WFI 
PW.WFM 
PW.WMI 
002 PW.WNP 
002 P.J.UTR 
002 P.ACK 
002 P.CMD 
002 P.CONT 
002 P.CVC 
P.FMT 
002 P. FORM 



014423R 

015370R 

015236R 

015372R 

015323R 

015022RG 

002000 G 

010060R 

010130R 

O07512RG 

007760R 

007270RG 

O07766R 

010174R 

00^632R 

010256R 

01032 IR 

007642RG 

000000 G 

000040 G 

<»00100 G 

C'0014C S 

000200 G 

000240 G 

000300 G 

000340 G 

014142R 

0023 lORG 

014452RG 

014632R 

014677R 

014735R 

014320R 

014365R 

003142RG 

022144R 

000021 

000022 

000020 

000000 

000023 

000024 

000001 

000005 

000003 

000006 

000004 

000007 

000010 

000011 

000002 

100000 

000037 

000012 

040000 

000140 

000011 



002 
002 
002 
002 
002 
002 

002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
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SEQ 312 



P. GETS 

P,IE 

P.INIT 

P,MOOE 

P.OPP 

P.POSI 

P,REAO 

P. SUB 

P.'JRIT 

P.WRTC 

P,URTS 

QVP 

RAMASC 

RAMDAT 

RAMERR 

RAMEXP 

RAHFOR 

RAMSIZ 

RAMTAO 

RCVHIA 

RCVLOA 

RDERfi 

RECMSG 

RECV 

t^EGSAV 

RE TERR 

RETRY 

REWIND 

RMC«E 

RMCHEN 

RMMSCe 

RtnSGE 

RMPKTB 

RIPKTE 

RMR 

RUPACK 

SC 

SCE 

SCHERR 

SCME 

SOELAY 

SELASC 

SELOAT 

SEL? 

SETMAP 

5ETU 

SFFMSG 

SFHERR 

SFIERR 

SFIMSG 

SFPTBL 

SIFLAG 

SIMSG 

SKIPT 

SOFINI 

SPACE 

SPMl 



000017 

000200 

000015 

007400 

0?0000 

000010 

000001 

010000 

000005 

000004 

00000^ 

0021 7 4R6 

014056R 

002232RG 

01S410RG 

015430RG 

010016R 

0022 72RG 

015416RG 

0022 74RG 

002276RG 

005176R 

002456RG 

002224RG 

020050R 

005362R 

034126A 

010714RG 

000167 

00C200 

000215 

000234 

000201 

000210 

010000 

OllOlOR 

100000 

020000 

0052 70fl 

005O05R 

010560R 

020352R 

000004 

000002 

017220R 

021746R 

012002f)G 

0036;5R 

003642R 

0117 349G 

002156RG 

O03144RG 

011666R 

003370R 

015674RG 

010566RG 

iiaesoR 



SPM4 
SRO 
SRI 
SR2 
SR3 
SSR 

STATCO 

SVCG8L 

SVCXNS 

SVCSUB 

SVC TAG 

002 SVCTST 

002 SILSYM 

002 SO.IOD 

002 SO.IFB 

002 SO.IFP 

002 SO.ILD 

002 SO. ION 

002 SO. IRQ 

002 SO.IRW 

002 SO. ISP 

002 SI. ice 

002 Sl.IEO 
002 Sl.IFM 
002 SI.IHE 
002 Sl.IID 
002 Sl.IlR 
002 SI.I2R 
SI. PAR 
S2.ATI 
S2.BTI 
S2.DIM 
S2.ILU 
S2.INR 
S2.0UT 
002 S2.UND 
TBLCND 
TCOASC 
002 TCOCOO 
002 TEMPI 
002 TEMP2 
002 TERCLS- 
TESTNO- 
TEXASC 
002 TFCASC 
002 TIMEXP 
002 TIMSGO 
002 riNERR 
002 TMPBFfl 
002 TNAM 
002 TRANST 
002 TSBA - 
002 TSBAH - 
002 TS06 • 
002 TSD6H • 
002 TSFCOO 
002 TSREJ • 



112700« 

177572 

177574 

177576 

172516 

000200 

012li2R 

000000 

000000 

000001 

000000 

000001 

010000 

OOOCIO 

000002 

000001 

000020 

0O0040 

000100 

000004 

000200 

002000 

010000 

001000 

000400 

001000 

020000 

040000 

100000 

000<)10 

000004 

000200 

000100 

000020 

000040 

000003 

003052RG 

006576R 

006576R 

00S106RG 

OOSllOftG 

000016 

OOOOIO 

006S35R 

00645 7R 

015452RG 

015!500R 

011721R 

002622m; 

016606R 

002156RG 

000000 G 

000001 G 

000000 G 

000001 G 
007136R 
000006 



002 TSSDEF 

TSSR 

TSSRBI 

TSSRFO 

TSSRH 

TSSX 

002 TSTBLK 

TSTCNT 

TSTENO 

TSTFLA 

TSTLOO 

TSTPTR 

TSTSET 

TST21I 

TST22I 

r$T23I 

TST24I 

TST25I 

TST26I 

TST27I 

TST20I 

TSV2 

T5V3 

TSV4 

TSV6 

TSV7 

TTIBFR 

TTICSR 

TTIVEC 

TIARGC 

TICODE 

TIERftN 

TIEXCM 

TIFLAC 

TfFREE 

TIGMAN 

002 TIHILI 

002 TILAST 

002 TILOLI 

002 TILSYM 

002 TILTNO 

FINEST 

TINSO 

002 TINSl 

002 T(NS2 

002 TIPCNT 

002 TIPTAB 

002 TIPTMV 

002 TIPTNU 

002 TtSAVL 

002 TISEGL 

TISIZE 

TISUBN 

TITACL 

TITAGN 

OOa TITEMP 

TITEST 



006506R 

000002 G 
0034 72RG 
006315R 

000003 G 
004010R 
002742RG 
002204RG 
016622R 
002304RG 
016360RG 
002306RG 
0164 12RG 
024244R 
026707R 
055666R 
046252R 
0552 30R 
074607R 
10464SR 
112301R 
002000ftG 
002166RG 
021406RG 
112506RG 
023306RG 
177^62 G 
177560 
000060 
000003 
001130 
001513 
000000 
000040 
112750R 
000000 
000776 
OOOOOl 
000000 
010000 
OCOOIO 
177777 
000000 
000005 
000002 
000000 
010137 
OOOOOl 
OOOOOl 
177777 
177777 
000005 
000003 
177777 
010141 
000000 
QQOOIO 



G 

G 



002 

002 
002 

00? 
OOi 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



002 



TITSTM 

TITSTS 

TMAU 

TMAUT 

TMCLE 

TMDAT 

TMDU 

TMHAR 

TMHW 

TMINI 

TMMSG 

TMPC 

TMPRO 

TIIPTA 

TMRPT 

TMSOF 

TM5RV 

TMSUB 

TMSU 

TMTES 

Tl 

T2 

T2.1 

T2.2 

T2.5 

T21AM3 

T21BFR 

T21BF2 

T21BS0 

T21BS1 

T210AT 

T210Ly 

T210SW 

T21L00 

T210FL 

T21PAC 

T21PK2 

T21RES 

T21RT2 

T21SSR 

T21S2 

T21S5 

T22AM3 

T22BFR 

T22eF2 

T226S0 

T226S1 

T220AT 

T22F0R 

T22L0O 

T220FL 

T22PAC 

T22PK2 

T22P0S 

T22fl0 

T22ReS 

T22RT2 



177777 

OOOOOl 

010031 

010033 

010034 

010140 

010032 

010134 

010000 

010030 

010025 

OOOOOl 

010027 

010137 

010035 

010135 

010026 

010155 

010001 

010150 

025306RG 

024422RG 

024452R 

025044R 

025366R 

024125R 

023724R 

024020R 

024020R 

02402 IR 

025710R 

023722R 

02572OR 

023536R 

024223R 

025700R 

024010R 

024266R 

024356R 

024026R 

024022R 

024024R 

026225R 

026012fl 

0261 lOR 

0261 lOR 

026111R 

026000R 

026124R 

024452R 

026325R 

0257 70R 

026100R 

026122R 

026116R 

026742R 

Oa7054R 



T22RWJ 
T22SSR 
T22S2 
T22i,3 
T22TM 
T22VCK 
T22WLK 
T22WRT 
T23A 
T23AM3 
T23B 
T23BA 
T23BFR 
T23BF2 
T23BS0 
T23BS1 
T23CHK 
T23C0N 
T230AT 
T23DSW 
002 T25E0T 
002 T23ET 
002 T23L00 
002 T230FL 
002 T25PAC 
002 T23PK2 
002 T23PK3 
002 T23ftES 
002 T2SRNC 
002 T23RS7 
002 T23RT2 
002 T23RT3 
002 T23AUN 
002 T23SSR 
002 T2357 
002 T23S2 
002 T23S3 
002 T25TM 
002 T23TMP 
002 T23VCK 
OOi? T25UB 
002 T23W0 
002 T23UDC 
002 T23U00 
002 T25W0R 
002 T23URT 
002 T25USS 
002 T24AM5 
002 T24BA 
002 T246FR 
002 T24BF2 
002 T24B0T 
002 T24BS0 
002 T24BS1 
002 T24C0N 
002 T 240 AT 
002 T24DLY 



0264 74R 

026130A 

026112R 

026114R 

026400P 

02654 7R 

026622R 

026120R 

005134RG 

053140R 

00S136RG 

033525R 

052402R 

032522R 

032522R 

05252 3R 

034062R 

05254 OR 

05?370R 

052400A 

052664R 

03257 7R 

027146R 

053206R 

032560n 

0324 70R 

052510R 

033702fl 

035065R 

032520R 

055774R 

034056R 

053016R 

032544R 

032516A 

032524R 

352526R 

052742ft 

052530R 

0554 52R 

052512« 

052534R 

055350R 

033261R 

052536R 

032532R 

053577R 

045240R 

045572P 

043652R 

043770ft 

044635R 

043770R 

043771R 

044002R 

045640R 

044006R 



002 
002 
002 
002 
002 
002 
002 
002 

ooa 

002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
00? 
002 
002 
C02 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
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UAM 


000200 G 




WF.IWF- 


000020 




XS0B0T« 


' 000002 


UNITN 


002172RG 


002 


WF.IWR- 


000100 




XSOEOT- 


• 000001 


UNPEG ■ 


000006 




WF.I3R- 


000002 




XSOIE - 


■ 000040 


USI 


004113R 


002 


WF.I4R- 


00000!. 




XSOILA« 


' 000400 


UAITF 


016150RG 


002 


WRTCHR 


010562RG 


002 


XSOILC- 


■ OOIOOO 


WCIFA- 


000200 




URTERR 


005105R 


002 


XSOLET- 


' 020000 


WCIFE- 


000002 




WRTMSG 


005046R 


002 


XSOMOT" 


• 000200 


WC.IGO- 


000001 




USMBK 


021110RG 


002 


XSONEF. 


- 002000 


WC.IRE- 


000010 




XFERAS 


015640R 


002 


XSOONL' 


' 000100 


WC.IRW- 


000004 




XNXM 


016276R 


002 


XSOPEO" 


• 000010 


UC.IOT- 


000100 




XORBFO 


007574R 


002 


XSORLL" 


• 010000 


WC.IIT- 


000040 




XORFOR 


007712R 


002 


XSORLS- 


' 040000 


UC,I5R- 


000020 




XSTO - 


000006 G 




XSOTMK' 


' 100000 


WF.IED- 


000010 




XSTl ■ 


000010 G 




XSOVCK' 


• 000020 


UF.IER- 


000004 




XST2 - 


000012 G 




XSOWLE- 


. 004000 


WF.IHI* 


000200 




XST? - 


000014 G 




XSOWLK- 


• 000004 


WF.IRE- 


00JO40 




XST4 « 


000016 G 








. ABS. 


000000 

cooooo 


000 

001 












ABS 


? 12750 


002 












ERRORS 


DETECTED; 
















VIRTUAL MEMORY USED: 31628 WORDS ( 124 PAGES) 
DYNAMIC MEMCHY: 20614 WORDS C 79 PAGES) 
ELAPSED TIME: 01:00:28 
CZTSCA,CZTSCA.SEa/-SP''SVC/ML»TSVlC.TSV22C,TSV3B,TSV4.TSV7A,TSV6 









SEQ 314 


XXCOMM 


003112RG 


002 X2.SPA- 


035400 


XMLWA- 


000000 


X2.UNI- 


000007 


XIFALS- 


000040 


X2.WCF- 


002000 


XIOFFS- 


000400 


X3.0CK- 


000010 


X$TRUE- 


000020 


X3.MBZ- 


000006 


Xl.COR- 


020000 


X3.M0E- 


177400 


Xl.OLT- 


100000 


X3.0PI- 


000100 


Xl.MBZ- 


017375 


XS.REV- 


000040 


Xl.RBP- 


000400 


X3.RIB- 


000001 


Xl.SPA- 


040000 


X3.SPA- 


000200 


Xl.UNC- 


000002 


X3.TRF- 


000020 


X2,BUF- 


000100 


X4.HSP" 


100000 


X2.EXT- 


000200 


X4.MBZ- 


017400 


X2.0PM- 


100000 


X4.RCE- 


040000 


X2.RCE- 


040000 


X4.TSM- 


020000 


X2,REV" 


000077 


Xa.WRC- 


000377 



TEST 


6: 


REREADS 


...Bl 


TEST 


6: 


REREADS 


...CI 


TEST 


6: 


REREADS 


,..D1 


TEST 


6: 


REREADS 


.,.E1 


TEST 


6: 


REREADS 


...Fl 


TEST 


6: 


REREADS 


...Gl 


TEST 


6: 


REREADS 


...HI 


TEST 


6: 


REREADS 


...11 


TEST 


6: 


REREADS 


>..J1 


TEST 


6: 


REREADS 


.. ,K1 


TEST 


6: 


REREADS 


...tl 


TEST 


6: 


REREADS 
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